CE PLUS - Nota 002253
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 11/10/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 15:18:55
Descrição da Nota: CAPTAÇÃO - CALCULO DE JUROS DA PARCELA
Sintoma
Após várias liquidações, o valor dos juros foi calculado corretamente na liquidação, porém ao entrar
em captação - modificar e dar um ENTER para que o programa recalcule o valor de juros da parcela, o
valor está ficando incorreto.
Solução
O programa está calculando os juros corretamente na captação de acordo com as liquidações efetuadas.
Criado contrato de pré pagamento com 5 parcelas de juros e principal. Feita somente uma liquidação
do valor parcial da 1ª parcela, e ao entrar em captação - modificar e dar um ENTER, o programa
calcula o valor da 1ª parcela corretamente, e não altera o valor de juros das demais parcelas.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 02253 Data: 11/10/2006 Hora: 16:15:13
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 02253
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00025
Agrupamento : 00135
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - CALCULO DE JUROS DA PARCELA
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - CALCULO DE JUROS DA PARCELA
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
SORT itab_zycbt006 BY dtpagto ASCENDING.
LOOP AT itab_zycbt006 WHERE dtpagext > itab_zycbt002-dtinicio AND
dtpagext <= itab_zycbt002-dtfinal.
v_liquid = v_liquid + itab_zycbt006-vljur.
v_dtcalc = itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM CALCJ_PRE_CAMBIAIS
ENDLOOP.
LOOP AT itab_zycbt006 WHERE dtpagext <= itab_zycbt002-dtfinal.
* << Fim da exclusão
SELECT SINGLE parid
FROM /pws/zycbt005
INTO itab_zycbt005-parid
WHERE nrseqc = itab_zycbt006-nrseqc
AND tpdesp = itab_zycbt006-tpdesp
...
...
ENDIF.
IF itab_zycbt002-dtpagto IS INITIAL AND
( /pws/zycbe001-tpcontr(1) EQ 'P' OR
/pws/zycbe001-tpcontr(1) EQ 'S' ) AND
/pws/zycbe001-ffrcalc EQ 'C'.
* >> Início da exclusão: FORM CALCJ_PRE_CAMBIAIS
v_nrparcj_aux = itab_zycbt002-nrparc - 1.
* << Fim da exclusão
* >> Início da inclusão: FORM CALCJ_PRE_CAMBIAIS
v_nrparcj_aux = itab_zycbt002-nrparc.
* << Fim da inclusão
READ TABLE itab_zycbt002j_aux WITH KEY nrparc = v_nrparcj_aux.
IF sy-subrc = 0 AND itab_zycbt002j_aux-dtpagto IS INITIAL.
* >> Início da exclusão: FORM CALCJ_PRE_CAMBIAIS
v_slpagar = /pws/zycbe001-vlme.
* << Fim da exclusão
LOOP AT itab_zycbt002p WHERE dtfinal < itab_zycbt002-dtfinal.
v_slpagar = v_slpagar - itab_zycbt002p-vlme.
ENDLOOP.
ENDIF.
ENDIF.
...