Sintoma

Ao criar uma da colocar os itens, mas errar o meio de embarque da pasta basicas. Você elimina os

itens, e muda o meio de embarque, salva a DA ao voltar na DA, o meio de embarque volta para o

anterior.

Solução

Verificar corretamente as alterações e Gravar a DA

Informações Complementares

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

Nota Número 10021 Data: 30/03/2010 Hora: 10:48:40

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

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

Nota Número              : 10021

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 8.0

Pacote                   : 00003

Agrupamento              : 00016

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

DESEMBARAÇO DA NÃO ESTA GRAVANDO O MEIO DE EMBARQUE

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

Palavras Chave:

DESEMBARAÇO - DA - MEIO - EMBARQUE

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

Objetos da nota:

DYNP /PWS/SAPMZYCI070                        0110

DYNP /PWS/SAPMZYCI070                        0120

REPS /PWS/MZYCI070F03

REPS /PWS/MZYCI070O01

REPS /PWS/MZYCI070TOP

REPS /PWS/SAPMZYCI070

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI070                        0110

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0110

PROCESS BEFORE OUTPUT.

  MODULE:

          verifica_nacional,

* >> Início da inclusão:

          DESCR_MEIOTRANSP,

* << Fim da inclusão

          set_screen,

          screen_lines.

  LOOP AT itab_zycit444 WITH CONTROL tc_doc

       CURSOR tc_doc-current_line.

    MODULE: set_screen_lines,

            fill_struct86   .

  ENDLOOP.

  LOOP AT itab_zycit445 WITH CONTROL tc_pro

       CURSOR tc_pro-current_line.

    MODULE: set_screen_lines,

...

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

Modificações efetuadas em DYNP /PWS/SAPMZYCI070                        0120

EXCLUIR CAMPO TEXTO "/PWS/ZYCIE442-MEIOTRANSP"

INCLUIR CAMPO TEXTO "S_MEIOTRANSP_120"

Comprimento Visível      2

Linha                    1

Coluna                   21

Formato                  CHAR

Linhas mínimas           2

Texto                    __

Código função

MODIFICAR LÓGICA DE PROCESSAMENTO TELA 0120

PROCESS BEFORE OUTPUT.

  MODULE: load_text,

          set_screen,

* >> Início da inclusão:

          MEIOTRANSP_120,

* << Fim da inclusão

          screen_lines.

  LOOP AT itab_zycit464 WITH CONTROL tc_con.

    MODULE: fill_struct464,

            set_screen_lines.

  ENDLOOP.

PROCESS AFTER INPUT.

  LOOP AT itab_zycit464.

    MODULE modi_data464.

  ENDLOOP.

  FIELD /pws/zycie442-multimod   MODULE load_mmo ON REQUEST.

...

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

Modificações efetuadas em REPS /PWS/MZYCI070F03

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

Modificações efetuadas em REPS /PWS/MZYCI070O01

...

    ELSE.

      /pws/zycie442-tpdi = 'S'.

    ENDIF.

 ELSEIF ( sy-tcode <> '/PWS/ZYCI070_C' AND sy-tcode <> '/PWS/ZYCI070_I'

                                                                      )

                                                  AND s_cnpj IS INITIAL.

    PERFORM: load_init.

    v_txtkey = /pws/zycie442-nrseqda.

    PERFORM read_text.

  ENDIF.

* >> Início da exclusão: MODULE LOAD_DATA

  MOVE /pws/zycie442 TO wa_zycit442.

* << Fim da exclusão

  PERFORM seleciona_saldo_da.

ENDMODULE.

MODULE fill_struct86 OUTPUT.

  MOVE itab_zycit444 TO /pws/zycie444.

  IF NOT /pws/zycie444-tipo IS INITIAL.

    PERFORM load_instdesp.

  ENDIF.

ENDMODULE.

MODULE fill_struct87 OUTPUT.

  MOVE itab_zycit445 TO /pws/zycie445.

...

...

  /pws/zycie443-ebelp = itab_it_aux-ebelp .

  /pws/zycie443-matnr = itab_it_aux-matnr .

  /pws/zycie443-descr = itab_it_aux-descr .

  /pws/zycie443-j_1bnbm = itab_it_aux-j_1bnbm .

  v_mark = itab_it_aux-mark .

ENDMODULE.

MODULE status_0153 OUTPUT.

  SET PF-STATUS 'ST0153'.

  SET TITLEBAR '0153'.

ENDMODULE.

* >> Início da inclusão:

module DESCR_MEIOTRANSP output.

  IF NOT /pws/zycie442-meiotransp IS INITIAL.

    SELECT SINGLE bezei INTO S_TRANS

    FROM /pws/zycit054

    WHERE vktra_ci EQ /pws/zycie442-meiotransp.

  ENDIF.

endmodule.

module MEIOTRANSP_120 output.

 S_MEIOTRANSP_120 = /pws/zycie442-meiotransp.

endmodule.

* << Fim da inclusão

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

Modificações efetuadas em REPS /PWS/MZYCI070TOP

...

  s_pgbkn    LIKE lfbk-bankn,

  s_pgnom    LIKE lfbk-koinh,

  s_inco1_ci LIKE /pws/zycit031-inco1_ci,

  s_inco1    LIKE /pws/zycit031-inco1,

  s_inco_ok  TYPE char1,

  s_tax      LIKE /pws/zycie442-ukursfob,

  s_local    LIKE t001w-werks,

  s_regdescr LIKE /pws/zycit024-descricao,

  s_urf      LIKE /pws/zycet132-descdesp,

  s_trans    LIKE /pws/zycit054-bezei,

* >> Início da inclusão:

  S_MEIOTRANSP_120 LIKE /pws/zycie442-meiotransp,

* << Fim da inclusão

  s_pais     LIKE t005t-landx,

  s_ppais    LIKE t005-/pws/codpa,

  s_pdesc    LIKE t005t-landx,

  s_urfe     LIKE /pws/zycet132-descdesp,

  s_fbcm     LIKE tcurc-/pws/codmo,

  s_frcm     LIKE tcurc-/pws/codmo,

  s_stcm     LIKE tcurc-/pws/codmo,

  s_fbdesc   LIKE tcurt-ltext,

  s_frdesc   LIKE tcurt-ltext,

  s_stdesc   LIKE tcurt-ltext,

...

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

Modificações efetuadas em REPS /PWS/SAPMZYCI070