Sintoma

O programa não esta respeitamdo a Data da Di no momento da apropriação.

Solução

Ordenação das importações levando em conta a data da di e os dois ultimos caracteres do número

sequencial do embarque de importação.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 04167 Data: 13/07/2007 Hora: 09:33:14

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 04167

Categoria                : Melhoria

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00003

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

ORDENAÇÃO DAS IMPORTAÇÕES NA APROPRIAÇÃO

----------------------------------------------------------------------------------------------------

Palavras Chave:

ORDENAÇÃO IMPORTAÇÕES APRORIAÇÃO EXPORTAÇÕES DTDI

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/ZYCIR254F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/ZYCIR254F01

...

        CLEAR itab_stko. REFRESH itab_stko.

        SELECT * FROM stko INTO TABLE itab_stko

               FOR ALL ENTRIES IN it_zycit247

               WHERE stlty EQ 'M'

                 AND stlnr EQ it_zycit247-stlnr

                 AND stlal EQ it_zycit247-stlal.

      ENDIF.

      PERFORM sort_records_zycit247.

      PERFORM lock_record_receb.

      PERFORM lock_record_ato.

* >> Início da exclusão: FORM RUN_APPROPRIATION_EXPORTATION

      SORT it_zycit279 BY nrseq ebeln ebelp matnr.

* << Fim da exclusão

* >> Início da inclusão: FORM RUN_APPROPRIATION_EXPORTATION

      SORT it_zycit279 BY dtdi nrseq+8(2) nrseq(8) ebeln ebelp matnr.

* << Fim da inclusão

      LOOP AT it_zycet002.

        IF t001-bukrs NE it_zycet002-bukrs.

          SELECT SINGLE * FROM t001 WHERE bukrs EQ it_zycet002-bukrs.

        ENDIF.

        PERFORM converte_um_base USING    it_zycet002-matnr

                              CHANGING it_zycet002-vrkme

                                       it_zycet002-fkimg.

        IF it_zycet002-fkimg IS INITIAL.

          CONTINUE.

        ENDIF.

...