CE PLUS - Nota 007078
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 04/08/2008 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:42:40
Descrição da Nota: LIQUIDAÇÃO - DUMP DIVISÃO POR ZERO - /PWS/ZYCBT030-KWERT
Sintoma
Ao efetuar uma liquidação esta ocorrendo dump de divisão por zero.
Solução
Limpar a tabela interna itab_zycbt030 após sair do form verifica_documentos, para que continue da
forma que estava no programa, evitando o dump.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 07078 Data: 04/08/2008 Hora: 17:42:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 07078
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00006
Agrupamento : 00059
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
07067 - 00001 - 7.0 - 00006 - VINCULAÇÃO LIQUIDAÇÃO AUTOMÁTICA/LIQUIDAÇÃO - CHECK DOCUMENTOS CO
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - DUMP DIVISÃO POR ZERO - /PWS/ZYCBT030-KWERT
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - DUMP DIVISÃO POR ZERO - /PWS/ZYCBT030-KWERT
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F03
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F01
...
PERFORM verif_contas.
IF v_cta_bloq EQ 'S'.
EXIT.
ENDIF.
PERFORM seleciona_dados.
PERFORM seleciona_zycbt030.
PERFORM verifica_documentos.
IF v_erro_documento EQ 'X'.
EXIT.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_PAGA_DOCUMENTO
PERFORM seleciona_zycbt030.
* << Fim da inclusão
" Lê parâmetros gerais
PERFORM get_parameters_001.
IF wa_zycbt007-liq_trans EQ 'R'. "Cinthia - 15/07/03
PERFORM lancamento_estorno_t.
ELSE.
PERFORM lancamento_estorno.
ENDIF.
PERFORM lancamento_provisao.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_CONTAS'
EXPORTING
i_bloqueia = ' ' "Desbloqueia contas
TABLES
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
erro_bloqueio = 2
OTHERS = 3.
...
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
IF sy-subrc NE 0.
v_periodo_aberto = 'X'.
ELSE.
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe005-bukrs
i_gjahr = v_ano
i_koart = 'D'
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
v_periodo_aberto = 'X'.
ELSE.
CALL FUNCTION 'FI_PERIOD_CHECK'
EXPORTING
i_bukrs = /pws/zycbe005-bukrs
i_gjahr = v_ano
i_koart = '+'
i_monat = v_monat
EXCEPTIONS
error_period = 1
error_period_acc = 2
OTHERS = 3.
IF sy-subrc NE 0.
v_periodo_aberto = 'X'.
ENDIF.
ENDIF.
ENDIF.
PERFORM verifica_documentos.
IF v_erro_documento EQ 'X'.
EXIT.
ENDIF.
* >> Início da inclusão: FORM SELECIONA_PAGA_DOCUMENTO2
PERFORM seleciona_zycbt030.
* << Fim da inclusão
PERFORM bloqueia_contas USING itab_zycbt006[].
IF v_cta_bloq EQ 'S'.
EXIT.
ENDIF.
IF v_periodo_aberto = 'X'.
v_zycbe001 = /pws/zycbe001.
PERFORM estorno_periodo_fechado.
ELSE.
PERFORM estorno_periodo_aberto.
ENDIF.
CHECK sy-subrc EQ 0.
CALL FUNCTION '/PWS/ZYCB_ENQUEUE_CONTAS'
EXPORTING
i_bloqueia = ' ' "Desbloqueia contas
TABLES
itab_zycbt224 = itab_zycbe224
EXCEPTIONS
zycbe224_null = 1
erro_bloqueio = 2
OTHERS = 3.
IF sy-subrc NE 0.
ENDIF.
v_zycbe001 = /pws/zycbe001.
PERFORM lancamento_provisao2.
...
...