Sintoma

Na criação da DI através do B/L, a DI não leva os itens do embarque.

Solução

Enviar os dados do embarque ao criar a DI.

Informações Complementares

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

Nota Número 02116 Data: 15/09/2006 Hora: 11:45:20

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

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

Nota Número              : 02116

Categoria                : Erro de Programa

Prioridade               : Alta

Versão PW.CE             : 6.0

Pacote                   : 00024

Agrupamento              : 00129

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

AO CRIAR A DI ATRAVÉS DO BL NÃO LEVA OS ITENS DO EMBARQUE.

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

Palavras Chave:

EMBARQUE - DI - BL - CRIAR DI PELO EMBARQUE

ITENS DO EMBARQUE - PREENCHER DADOS.

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

Objetos da nota:

REPS /PWS/MZYCI002F02

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

Modificações efetuadas em REPS /PWS/MZYCI002F02

...

            ENDIF.

          ENDLOOP.

          IF ( v_tpdecl EQ 'DI' OR v_tpdecl EQ 'DSI' ).

            MOVE-CORRESPONDING /pws/zycie093 TO wa_zycie085.

            MOVE: /pws/zycie093-nrseqce TO wa_zycie085-nrbl.

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

            DATA   rimc7      LIKE indx-srtfd VALUE 'NRSEQ'.

            READ TABLE itab_zycit094s INDEX 1.

            IF sy-subrc EQ 0.

              SELECT SINGLE * FROM /pws/zycit001

              INTO   /pws/zycie001

              WHERE nrseq EQ itab_zycit094s-nrseq.

            ENDIF.

            EXPORT /pws/zycie001-nrseq TO MEMORY ID rimc7.

            MOVE : /pws/zycie001-j_1bbranch TO wa_zycie085-j_1bbranch,

                   /pws/zycie001-embarca TO wa_zycie085-identify.

* << Fim da inclusão

            EXPORT wa_zycie085 TO MEMORY ID rimc4.

            IF v_tpdecl EQ 'DI'.

              IF t001-land1 EQ 'AR' OR t001-land1 EQ 'CL'.

                CALL TRANSACTION '/PWS/ZYCI059_C' AND SKIP FIRST SCREEN.

              ELSE.

...