CE PLUS - Nota 000847
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 09/02/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:01:41
Descrição da Nota: LIQUIDAÇÃO - ATUALIZAÇÃO DO SALDO NO ESTORNO
Sintoma
No estorno da liquidação o programa não está voltando o saldo corretamente para as tabelas:
/pws/zycbt030 (Campo VLSLLIQ) e /pws/zycbt209 (Campo SALDO).
Solução
Alterado consistências no programa para que a atualização dos saldos ocorra com sucesso.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00847 Data: 09/02/2006 Hora: 13:15:20
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00847
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00100
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - ATUALIZAÇÃO DO SALDO NO ESTORNO
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO ATUALIZAÇÃO SALDO ESTORNO /PWS/ZYCBT030 CAMPO VLSLLIQ
/PWS/ZYCBT209 CAMPO SALDO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
itab_zycbe033-d_newko = itab_zyglt316-konth.
v_saknr_ace = itab_zyglt316-konth.
ENDIF.
ENDIF.
ELSE.
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
PERFORM seleciona_desconto.
* << Fim da exclusão
READ TABLE itab_zycbt219 INDEX 1.
v_saknr_ace = itab_zycbt219-kunnr.
ENDIF.
PERFORM verify_null_field USING v_saknr_ace
'SAKNR'
...
...
augbl = itab_zycbt006-belnr AND
gjahr = v_year AND
kunnr = itab_zycbt006-kunnr AND
belnr <> itab_zycbt006-belnr.
LOOP AT itab_trans WHERE koart IS initial.
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
READ TABLE itab_cli WITH KEY belnr = itab_trans-belnr.
IF sy-subrc NE 0.
* << Fim da exclusão
itab_trans-koart = 'D'.
MODIFY itab_trans.
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
ENDIF.
* << Fim da exclusão
ENDLOOP.
ENDIF.
ENDLOOP.
DELETE itab_trans WHERE koart EQ space.
PERFORM anula_liquidacao.
...