CE PLUS - Nota 003888
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 11/06/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 15:34:58
Descrição da Nota: LIQUIDAÇÃO - NÃO CONTABILIZAR QUANDO 209 TIVER SALDO IGUAL A ZERO.
Sintoma
Ao salvar uma liquidação utilizando uma fatura que já possui uma liquidação em andamento (mas com o
SALDO da Tabela /PWS/ZYCBT209 = 0,00), o programa está tentando fazer um desmembramento da
liquidação em andamento, mas joga no campo montante da F-30 o valor de 0,00 (isso porque não existe
mais saldo na liquidação em andamento), portanto o programa nem deveria tentar fazer o
desmembramento na transitória da liquidação em andamento, deveria fazer somente o desmembramento do
cliente normal.
Solução
Ajuste efetuado, inserindo tratamento para que o programa não efetue contabilizaçãpo quando o saldo
da tabela 209 estiver igual a zero.
Versões Tratadas
7.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03888 Data: 11/06/2007 Hora: 14:07:30
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03888
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00001
Agrupamento : 00170
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - NÃO CONTABILIZAR QUANDO 209 TIVER SALDO IGUAL A ZERO.
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - NÃO CONTABILIZAR QUANDO 209 TIVER SALDO IGUAL A ZERO.
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
gsberf = itab_zycbt006-gsberf.
IF sy-subrc EQ 0.
ASSIGN: itab_zycbt030-vlsltrans TO <fs_vltrans>,
itab_zycbt030-kwert TO <fs_vlfat>.
ENDIF.
ENDIF.
ENDIF.
LOOP AT itab_zycbt209 WHERE nrinvoic = itab_zycbt006-nrinvoic AND
gsberf = itab_zycbt006-gsberf AND
nrparcf = itab_zycbt006-nrparcf.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
IF itab_zycbt209-saldo NE 0.
* << Fim da inclusão
IF itab_zycbt209-saldo LE v_slliq.
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = itab_zycbt209-saldo.
PERFORM desmembra_liq_and.
IF sy-subrc EQ 0.
v_slliq = v_slliq - itab_zycbt209-saldo.
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF .
...
...
itab_zycbt209-baixa = 'X'.
itab_zycbt209-vlbaixa = v_slliq.
PERFORM desmembra_liq_and.
IF sy-subrc EQ 0.
CLEAR v_slliq.
MODIFY itab_zycbt209.
ELSE.
v_subrc = 4.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
ENDIF.
* << Fim da inclusão
IF v_slliq IS INITIAL.
EXIT.
ENDIF.
ENDLOOP.
IF v_subrc EQ 4.
EXIT.
ENDIF.
IF v_slliq GT 0.
LOOP AT itab_zycbt030 WHERE nrinvoic = itab_zycbt006-nrinvoic
AND gsberf = itab_zycbt006-gsberf
...