CE PLUS - Nota 005064
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Vinculação
Data/Hora da Publicação: 23/10/2007 00:00:00
Data/Hora Última Alteração: 21/02/2011 10:55:13
Descrição da Nota: VINCULAÇÃO - LIQ. AUTOM. DE CAMBIO PRONTO COM LIQUIDAÇÃO EM ANDAMENTO
Sintoma
O programa não está fazendo o batch input de maneira correta quando houve alguma liquidação em
andamento que já foi utilizada em outro contrato.
Solução
Adicionada verificação para o campo saldo da tabela 209.
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 05064 Data: 23/10/2007 Hora: 18:39:40
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 05064
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 7.0
Pacote : 00003
Agrupamento : 00018
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Versão - Pacote - Descrição Breve
03538 - 00001 - 7.0 - 00001 - VINCULAÇÃO - LIQUIDAÇÃO CAMBIO PRONTO
04418 - 00002 - 7.0 - 00002 - VINCULAÇÃO CP COM LIQUIDAÇÃO AUTOMÁTICA - ESTORNO
04725 - 00003 - 7.0 - 00002 - VINCULAÇÃO - CONTABILIZAÇÃO E ESTORNO DE CAMBIO PRONTO
----------------------------------------------------------------------------------------------------
VINCULAÇÃO - LIQ. AUTOM. DE CAMBIO PRONTO COM LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Palavras Chave:
VINCULAÇÃO - LIQ. AUTOM. DE CAMBIO PRONTO COM LIQUIDAÇÃO EM ANDAMENTO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB009F07
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB009F07
...
wa_zycbt005-slpagar = wa_zycbt005-vlme_p.
LOOP AT itab_zycbt030 WHERE nrinvoic = wa_zycbt005-nrinvoic AND
nrparcf = wa_zycbt005-nrparcf AND
gsberf = wa_zycbt005-gsberf.
itab_zycbt030-v_kwert = ( itab_zycbt030-kwert /
itab_zycbt030-s_kwert ) *
wa_zycbt005-vlme_p.
LOOP AT itab_zycbt209
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
* >> Início da inclusão: FORM FILL_DATE1_F30_CP
saldo > 0 AND
* << Fim da inclusão
nrparcf = wa_zycbt005-nrparcf.
CHECK wa_zycbt005-slpagar GT 0.
PERFORM desmembra_liq_and CHANGING wa_zycbt005.
MODIFY itab_zycbt209.
ENDLOOP.
MODIFY itab_zycbt030.
IF wa_zycbt005-slpagar GT 0.
PERFORM lanca_cp.
ENDIF.
ENDLOOP.
...
...
ELSE.
itab_zycbe033-kursf = /pws/zycbe001-txcneg.
ENDIF.
PERFORM verify_null_field USING itab_zycbe033-kursf
'TXCAMB'
text-080.
CLEAR v_wrbtr.
LOOP AT itab_zycbt209
WHERE nrinvoic = wa_zycbt005-nrinvoic AND
gsberf = wa_zycbt005-gsberf AND
* >> Início da inclusão: FORM LANCA_CP
saldo > 0 AND
* << Fim da inclusão
nrparcf = wa_zycbt005-nrparcf.
v_wrbtr = v_wrbtr + itab_zycbt209-vlme - itab_zycbt209-saldo.
ENDLOOP.
itab_zycbe033-wrbtr = itab_zycbt030-v_kwert - v_wrbtr.
IF itab_zycbe033-wrbtr EQ 0.
EXIT.
ENDIF.
CLEAR itab_zycbe033-newbs.
itab_zycbe033-c_gsber = wa_zycbt005-gsberf.
itab_zycbe033-d_gsber = wa_zycbt005-gsberf.
...
...
SELECT SINGLE kursf FROM bkpf
INTO itab_zycbe033-kursf
WHERE bukrs EQ itab_zycbt209-bukrs
AND belnr EQ v_belnr
AND gjahr EQ itab_zycbt209-dtbelnr(4).
IF itab_zycbt209-saldo GT p_zycbt005-slpagar.
itab_zycbe033-wrbtr = p_zycbt005-slpagar.
ELSE.
itab_zycbe033-wrbtr = itab_zycbt209-saldo.
ENDIF.
* >> Início da inclusão: FORM DESMEMBRA_LIQ_AND
CHECK itab_zycbe033-wrbtr > 0.
* << Fim da inclusão
IF itab_zycbt209-saldo = itab_zycbt209-vlme.
v_desmembramento = 'X'.
ENDIF.
v_gjahr = itab_zycbt209-dtbelnr(4).
IF itab_zycbt209-belnr2 IS INITIAL.
itab_zycbe033-belnr = itab_zycbt209-belnr.
ELSE.
itab_zycbe033-belnr = itab_zycbt209-belnr2.
ENDIF.
itab_zycbe033-dtdocto = itab_zycbt209-dtbelnr.
...