CE PLUS - Nota 003075
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Liquidação em Andamento
Data/Hora da Publicação: 09/02/2007 00:00:00
Data/Hora Última Alteração: 18/02/2011 17:08:07
Descrição da Nota: LIQUIDAÇÃO - CONTA CLIENTE
Sintoma
Ao efetuar o estorno de uma liquidação (que utilizou parte da liquidação em andamento e parte do
cliente normal) está ocorrendo erro na seleção da conta do cliente.
Solução
Foi adicionada uma consistencia no programa para que a conta do cliente seja selecionada
corretamente com base nos parametros do programa 007.
Versões Tratadas
6.0
Pré-Requisitos
Produto:
Nota
Descrição
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03075 Data: 09/02/2007 Hora: 16:14:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03075
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00026
Agrupamento : 00151
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
02372 - 00001 - 6.0 - 00025 - LIQUIDAÇÃO EM ANDAMENTO CONTA CLIENTE
----------------------------------------------------------------------------------------------------
LIQUIDAÇÃO - CONTA CLIENTE
----------------------------------------------------------------------------------------------------
Palavras Chave:
LIQUIDAÇÃO - CONTA CLIENTE
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB004F02
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB004F02
...
ENDLOOP.
IF itab_zycbt209-hkont NE v_saknr_ace.
DELETE itab_trans WHERE hkont EQ v_saknr_ace.
ENDIF.
LOOP AT itab_trans.
itab_trans-umskz = space.
itab_trans-koart = 'S'.
MODIFY itab_trans.
ENDLOOP.
ELSEIF itab_zycbt209-koart EQ 'D'.
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
IF /pws/zycbt089-tp_liq_and NE 'D'.
v_kunnr = itab_zycbt006-kunnr.
ELSE.
* << Fim da inclusão
IF /pws/zycbt089-liq_and_cod_cli IS INITIAL.
SELECT SINGLE ktokd FROM kna1
INTO v_ktokd
WHERE kunnr EQ itab_zycbt006-kunnr.
SELECT SINGLE codtrans
FROM /pws/zyglt368
INTO v_kunnr
WHERE ktokd = v_ktokd.
ELSE.
v_kunnr = /pws/zycbt089-liq_and_cod_cli.
* >> Início da inclusão: FORM ESTORNO_PERIODO_ABERTO
ENDIF.
* << Fim da inclusão
ENDIF.
LOOP AT itab_bsad WHERE bukrs = itab_zycbt006-bukrs AND
augdt = itab_zycbt006-dtpagto AND
augbl = itab_zycbt006-belnr AND
gjahr = v_year AND
kunnr = v_kunnr AND
belnr <> itab_zycbt006-belnr.
MOVE-CORRESPONDING itab_bsad TO itab_trans.
APPEND itab_trans.
ENDLOOP.
...