Sintoma

Criei uma remessa em JPY com forma de pagamento: à pagar competência e a contabilização foi feita

corretamente. Mas ao entrar no complemento do boleto, informei todos os dados, mas se eu der dois

"ENTER" ou gravar o complemento está dando DUMP. O mesmo problema ocorre para as remessas em JPY com

forma de pagamento: Regime de caixa.

Solução

1- Ajustado campo VLMI da tabela /PWS/ZYCBE064 para que não receba mais valores negativos.

2- Ajuste sendo que para cada OKCODE novo a Talbre Control assuma o valor orginal.

Informações Complementares

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

Nota Número 01574 Data: 13/06/2006 Hora: 10:54:33

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

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

Nota Número              : 01574

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00118

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

COMPLEMENTO DO BOLETO - DUMP CAMPO VLMI E TABLE CONTROL

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

Palavras Chave:

COMPLEMENTO DO BOLETO - DUMP CAMPO VLMI E TABLE CONTROL

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

Objetos da nota:

REPS /PWS/MZYCB110I01

REPS /PWS/MZYCB110O01

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

Modificações efetuadas em REPS /PWS/MZYCB110I01

...

  ENDIF.

ENDMODULE.

MODULE user_command_0200 INPUT.

  PERFORM descricoes.

  PERFORM calcula_valores_totais.

* >> Início da inclusão: MODULE USER_COMMAND_0200

  CLEAR v_corrige.

* << Fim da inclusão

  v_corrige = /pws/zycbe031-vlme * /pws/zycbe031-kursf.

  v_corrige = v_corrige - /pws/zycbe031-vlmi.

  /pws/zycbe031-vlmi = /pws/zycbe031-vlmi + v_corrige.

  DESCRIBE TABLE itab_zycbt031_tc LINES v_conta.

  READ TABLE itab_zycbt031_tc INDEX v_conta.

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

  itab_zycbt031_tc-v_vlmi = itab_zycbt031_tc-v_vlmi + v_corrige.

* << Fim da exclusão

* >> Início da inclusão: MODULE USER_COMMAND_0200

  itab_zycbt031_tc-v_vlmi = /pws/zycbe031-vlmi.

* << Fim da inclusão

  MODIFY itab_zycbt031_tc INDEX v_conta TRANSPORTING v_vlmi.

  DATA: e_subrc       LIKE sy-subrc,

        e_exec_okcode.

  CLEAR: r_okcode, e_exec_okcode, v_syrepid.

  CALL METHOD cl_gui_cfw=>dispatch.

...

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

Modificações efetuadas em REPS /PWS/MZYCB110O01

...

    itab_zycbt031_tc1[] = itab_zycbt031_tc[].

  ELSEIF NOT itab_zycbt031_tc[] IS INITIAL AND

         itab_zycbt031_tc1[] IS INITIAL.

    itab_zycbt031_tc1[] = itab_zycbt031_tc[].

  ENDIF.

* >> Início da inclusão: MODULE CARREGA_DADOS

  tc_cont-lines = 1.

* << Fim da inclusão

ENDMODULE.

MODULE status_0102 OUTPUT.

  SET TITLEBAR '0102'.

  SET SCREEN '0102'.

  SET PF-STATUS '0102'.

...