Sintoma

O programa apresenta mensagem de erro na contabilização quando uma fatura anterior apresentou algum

erro.

Solução

Foi adicionado um comando para limpar a variável v_subrc.

Informações Complementares

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

Nota Número 04276 Data: 25/07/2007 Hora: 17:08:37

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

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

Nota Número              : 04276

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00002

Agrupamento              : 00005

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

LIQUIDAÇÃO EM ANDAMENTO - MENSAGEM DE ERRO NA CONTABILIZAÇÃO

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

Palavras Chave:

LIQUIDAÇÃO EM ANDAMENTO - MENSAGEM DE ERRO NA CONTABILIZAÇÃO

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

Objetos da nota:

REPS /PWS/MZYCB031I01

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

Modificações efetuadas em REPS /PWS/MZYCB031I01

...

ENDMODULE.

MODULE verifica_linhas INPUT.

  PERFORM verifica_linhas.

ENDMODULE.

MODULE get_invoice INPUT.

  PERFORM get_invoice.

ENDMODULE.

MODULE user_command_0100 INPUT.

  DATA: e_subrc       LIKE sy-subrc,

        e_exec_okcode.

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

  CLEAR: r_okcode, e_exec_okcode, v_syrepid.

* << Fim da exclusão

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

  CLEAR: r_okcode, e_exec_okcode, v_syrepid, v_subrc.

* << Fim da inclusão

  CALL METHOD cl_gui_cfw=>dispatch.

  IF NOT r_okcode IS INITIAL.

    ok_code = r_okcode.

  ENDIF.

  CLEAR itab_zyglt100.

  IF itab_zyglt100[] IS INITIAL.

    v_syrepid = sy-repid.

    CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

         EXPORTING

              i_codmod                = 'E'

...