CE PLUS - Nota 000673
Módulo: CÂMBIO EXPORTAÇÃO
Funcionalidade: Rotina Mensal
Data/Hora da Publicação: 18/01/2006 00:00:00
Data/Hora Última Alteração: 18/02/2011 14:47:42
Descrição da Nota: 281688 - ROTINA MENSAL ULTIMA PARCELA - DEDUZ JUROS LIQUIDAÇÃO
Sintoma
Rotina mensal de contratos de pré pagamento com forma de cálculo (Linear ao ano sobre o saldo
devedor) com a opção ``Deduz Juros`` e está ocorrendo o seguinte erro:
- Fiz várias liquidações para o contrato, sendo que todas elas fiz na data final da parcela
(consequentemente data início da parcela seguinte) e ao rodar a rotina mensal os cálculos estão
sendo feitos corretamente exceto para a última parcela do contrato.
Solução
Cálculo reestruturado na rotina mensal quando fazemos a liquidação na data final da parcela de juros
para os contratos de pré pagamento com forma de cálculo = Linear ao ano sobre o saldo devedor e
utilizamos a opção "Deduz Juros".
Versões Tratadas
6.0
Informações Complementares
----------------------------------------------------------------------------------------------------
Nota Número 00673 Data: 18/01/2006 Hora: 14:46:19
----------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------
Nota Número : 00673
Categoria : Erro de Programa
Prioridade : Média
Versão PW.CE : 6.0
Pacote : 00022
Agrupamento : 00097
----------------------------------------------------------------------------------------------------
Referência às notas relacionadas:
Número - Ordem - Descrição Breve
----------------------------------------------------------------------------------------------------
281688 - ROTINA MENSAL ULTIMA PARCELA - DEDUZ JUROS LIQUIDAÇÃO
----------------------------------------------------------------------------------------------------
Palavras Chave:
281688 - ROTINA MENSAL ULTIMA PARCELA - DEDUZ JUROS LIQUIDAÇÃO
----------------------------------------------------------------------------------------------------
Objetos da nota:
REPS /PWS/ZYCBR003
----------------------------------------------------------------------------------------------------
Modificações efetuadas em REPS /PWS/ZYCBR003
...
AND nrseqc = itab_zycbt001-nrseqc.
IF v_ultimo EQ itab_zycbt006-dtpagto.
CONTINUE.
ENDIF.
IF v_inicio EQ itab_zycbt006-dtpagto.
* >> Início da exclusão: FORM PROCESSA_PERIODO_JL
IF itab_zycbt006-deduz_juros NE 'X'.
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_PERIODO_JL
IF itab_zycbt006-deduz_juros = 'X'.
v_deduz = 'X'.
ELSE.
* << Fim da inclusão
v_saldo_aux = v_saldo_aux + itab_zycbt006-vlme.
ENDIF.
CONTINUE.
ENDIF.
v_ultimo = itab_zycbt006-dtpagto.
...
...
v_saldo_inicial = v_saldo_inicial - itab_zycbt006-vlme.
ENDLOOP.
IF s_dtentr > itab_relat-dtate
AND v_deduz EQ 'X'.
v_per_dias = s_dtentr - itab_relat-dtate.
* >> Início da exclusão: FORM PROCESSA_PERIODO_JL
v_juros = ( itab_relat-vlme * itab_zycbt002j-txjtotal / 100 )
* << Fim da exclusão
* >> Início da inclusão: FORM PROCESSA_PERIODO_JL
v_juros = ( v_saldo_final * itab_zycbt002j-txjtotal / 100 )
* << Fim da inclusão
* ( v_per_dias / v_base_dias ).
itab_relat-vlmej = v_juros.
itab_relat-vlme = v_saldo_final.
itab_relat-dtde = itab_relat-dtate.
itab_relat-dtate = s_dtentr.
...