CE PLUS - Nota 003071
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Captação
Data/Hora da Publicação: 09/02/2007 00:00:00
Data/Hora Última Alteração: 10/03/2010 14:28:13
Descrição da Nota: CAPTAÇÃO - CALCULO DE JUROS
Sintoma
O cálculo de juros na captação para os contratos de Pré pagamento do tipo "Linear ao ano sobre as
cambiais" está incorreto.
Solução
foi adicionada uma consistencia para saber se a parcela foi totalmente liquidada.
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 03071 Data: 09/02/2007 Hora: 10:46:07
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 03071
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 - Descrição Breve
----------------------------------------------------------------------------------------------------
CAPTAÇÃO - CALCULO DE JUROS
----------------------------------------------------------------------------------------------------
Palavras Chave:
CAPTAÇÃO - CALCULO DE JUROS
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/MZYCB001F01
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/MZYCB001F01
...
IF itab_zycbt002j_aux[] IS INITIAL.
itab_zycbt002j_aux[] = itab_zycbt002[].
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'.
v_nrparcj_aux = itab_zycbt002-nrparc.
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 inclusão: FORM CALCJ_PRE_CAMBIAIS
IF NOT v_slpagar IS INITIAL.
* << Fim da inclusão
LOOP AT itab_zycbt002p WHERE dtfinal < itab_zycbt002-dtfinal.
v_slpagar = v_slpagar - itab_zycbt002p-vlme.
ENDLOOP.
* >> Início da inclusão: FORM CALCJ_PRE_CAMBIAIS
ENDIF.
* << Fim da inclusão
ENDIF.
ENDIF.
IF v_dtcalc EQ '00000000'.
v_dtcalc = itab_zycbt002-dtinicio.
...