CE PLUS - Nota 004643
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação de Fatura
Data/Hora da Publicação: 06/09/2007 00:00:00
Data/Hora Última Alteração: 22/02/2011 12:40:23
Descrição da Nota: LIQUIDAÇÃO - LANÇAMENTOS CONTÁBEIS CONTA CORRENTE ME
Sintoma
Erro: 1) Criei um contrato e vinculei com 5 faturas, sendo que para uma das faturas criei uma
ordem de pagamento no programa de valores mantidos no exterior (no valor total da fatura),
para outra fatura fiz uma liquidação em andamento e para as outras 3 faturas não fiz nem
liquidação em andamento e nem ordem de pagamento (ou seja, o valor está todo na conta do
cliente). A) Ao salvar a liquidação, o programa está fazendo o seguinte: - Faz o lançamento da
1ª fatura corretamente (Desmembramento conta corrente,
Desmembramento ACE e Liquidação); - Faz o lançamento da 2ª fatura corretamente (Desmembramento da
liquidação em andamento, Desmembramento ACE e Liquidação); - Mas a partir da 3ª fatura (onde não
tenho saldo nem ma Tabela /PWS/ZYCBT226 e nem na Tabela /PWS/ZYCBT209),
o programa faz os lançamentos errados: Faz somente o desmembramento do ACE e Liquidação
e não faz o desmembramento do cliente, mas baixa o saldo corretamente na Tabela /PWS/ZYCBT030.
B) Ao tentar estornar qualquer fatura da liquidação, o programa está fazendo o estorno do
documento de liquidação e depois tenta fazer o clearing da conta corrente (mesmo que a fatura
nem tenha passado pela conta corrente).
Solução
Ajustar consistência com dados da ordem e do histórico, para que faça os lançamentos de conta
corrente ME corretamente.
Versões Tratadas
7.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 04643 Data: 06/09/2007 Hora: 10:39:12
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 04643
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00002
Agrupamento : 00011
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
04450 - 00001 - 7.0 - 00002 - LIQUIDAÇÃO - AJUSTE PARA PONTO DE EXIT LIQ001
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - LANÇAMENTOS CONTÁBEIS CONTA CORRENTE ME
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO LANÇAMENTOS CONTÁBEIS CONTA CORRENTE ME
ESTORNO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
NOT itab_zyglt100-zexit_ativa IS INITIAL.
PERFORM (itab_zyglt100-formulario)
IN PROGRAM (itab_zyglt100-programa)
TABLES itab_zycbt209
CHANGING v_slliq.
IF NOT v_liquida2 IS INITIAL.
CONTINUE.
ENDIF.
ENDIF.
ENDIF.
* >> Início da inclusão: FORM LANCAMENTO_PROVISAO2
CLEAR v_ordem.
* << Fim da inclusão
LOOP AT itab_zycbt226 ASSIGNING <fs_zycbt226>
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf
AND gsberf EQ itab_zycbt006-gsberf.
v_ordem = v_ordem + <fs_zycbt226>-sld_exterior.
ENDLOOP.
IF sy-subrc EQ 0.
LOOP AT itab_zycbt225 ASSIGNING <fs_zycbt225>
WHERE nrinvoic EQ itab_zycbt006-nrinvoic
AND nrparcf EQ itab_zycbt006-nrparcf
...
...
MODIFY itab_zycbt030.
PERFORM grava_zycbt084 USING ' '.
ENDLOOP.
IF v_subrc NE 0.
EXIT.
ENDIF.
SELECT * FROM /pws/zycbt084 INTO TABLE itab_zycbt084
WHERE nrseqc = itab_zycbt006-nrseqc.
LOOP AT itab_zycbt231.
READ TABLE itab_zycbt226 ASSIGNING <fs_zycbt226>
* >> Início da exclusão: FORM ESTORNO_PERIODO_ABERTO
WITH KEY nrseq = itab_zycbt231-nrseq.
* << Fim da exclusão
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
WITH KEY nrseq = itab_zycbt231-nrseq
nrinvoic = itab_zycbt030-nrinvoic.
* << Fim da inclusão
IF sy-subrc EQ 0.
READ TABLE itab_zycbt084 WITH KEY
nrseq_ordem = itab_zycbt231-nrseq
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
nrinvoic = itab_zycbt030-nrinvoic
* << Fim da inclusão
tdesmemb = 'O'.
IF sy-subrc = 0.
PERFORM clearing_cc.
IF sy-subrc NE 0.
...