Sintoma

Erro ao recalcular juros de contrato de Pré pagamento.Criei o contrato, fiz a primeira liquidação do

contrato no vencimento da parcela (12/04/2007) e o pagamento da primeira parcela de juros.Rodei as

rotinas até 30/06/2007 e em 15/07/2007 fiz a segunda liquidação com o flag deduz Juros.Ao recalcular

a segunda parcela de juros, o programa mostra valor incorrero por não considerar a amortização da

primeira parcela.Vide arquivo anexo.

Solução

Ajuste efetuado na captação para equalizar com a rotina mensal.

Informações Complementares

----------------------------------------------------------------------------------------------------

Nota Número 03802 Data: 30/05/2007 Hora: 15:53:51

----------------------------------------------------------------------------------------------------

----------------------------------------------------------------------------------------------------

Nota Número              : 03802

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00168

----------------------------------------------------------------------------------------------------

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

----------------------------------------------------------------------------------------------------

CAPTAÇÃO - (CÁLCULO JUROS)

----------------------------------------------------------------------------------------------------

Palavras Chave:

CAPTAÇÃO - CÁLCULO JUROS-LIQUID.ANTES DO VENCTO-C/DEDUZ JRS

----------------------------------------------------------------------------------------------------

Objetos da nota:

REPS /PWS/MZYCB001F01

----------------------------------------------------------------------------------------------------

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

             WHERE nrseqc = itab_zycbt006l-nrseqc

               AND tpdesp = itab_zycbt006l-tpdesp

               AND nrparc = itab_zycbt006l-nrparc

               AND dtincl = itab_zycbt006l-dtincl

               AND nrinvoic = itab_zycbt006l-nrinvoic

               AND nrparcf = itab_zycbt006l-nrparcf

               AND gsberf = itab_zycbt006l-gsberf

               AND dtvincul = itab_zycbt006l-dtvincul

               AND dtvencto = itab_zycbt006l-dtvencto.

      saldo_inicial = saldo_inicial +

                     ( itab_zycbt006l-vlme * /pws/zycbt005-parid ).

    ENDLOOP.

* >> Início da inclusão: FORM JUROS

    LOOP AT itab_zycbt006l WHERE dtpagto <= itab_zycbt002-dtinicio.

      SELECT SINGLE parid

             FROM /pws/zycbt005

             INTO /pws/zycbt005-parid

             WHERE nrseqc = itab_zycbt006l-nrseqc

               AND tpdesp = itab_zycbt006l-tpdesp

               AND nrparc = itab_zycbt006l-nrparc

               AND dtincl = itab_zycbt006l-dtincl

               AND nrinvoic = itab_zycbt006l-nrinvoic

               AND nrparcf = itab_zycbt006l-nrparcf

               AND gsberf = itab_zycbt006l-gsberf

               AND dtvincul = itab_zycbt006l-dtvincul

               AND dtvencto = itab_zycbt006l-dtvencto.

      saldo_inicial = saldo_inicial -

                     ( itab_zycbt006l-vlme * /pws/zycbt005-parid ).

    ENDLOOP.

* << Fim da inclusão

    v_diasj = ultimo - itab_zycbt002-dtinicio.

    v_juros = v_juros + (

              saldo_inicial * itab_zycbt002-txjtotal / 100

              * v_diasj / v_nrdias ).

  ELSE.

    CLEAR itab_zycbt006l.

    REFRESH itab_zycbt006l.

    saldo_inicial = /pws/zycbe001-slpagar.

...