Sintoma

Quando é alterado o esquema de pagamento do principal ou dos juros (período ou taxa) o sistema deve

atualizar automaticamente o campo Montante da aba Período de Juros. O programa não recalcula o

valores de juros mantendo os valores antigos.

Solução

Verificar se existe documento de principal e se a transação é de criação, ao efetuar o enter para

recalcular os juros de contrato de Pré-pagamento.

Informações Complementares

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

Nota Número 03530 Data: 24/04/2007 Hora: 11:56:28

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

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

Nota Número              : 03530

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00027

Agrupamento              : 00163

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

CAPTAÇÃO PT - CÁLCULO PARCELA JUROS

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

Palavras Chave:

CAPTAÇÃO PT PRÉ-PAGAMENTO CÁLCULO PARCELA JUROS

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

Objetos da nota:

REPS /PWS/MZYCB001F01

REPS /PWS/MZYCB001I01

REPS /PWS/MZYCB001TOP

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

Modificações efetuadas em REPS /PWS/MZYCB001F01

...

        ( itab_zycbt002-dtfinal - itab_zycbt002-dtinicio ).

      v_ind_juros = 'X'.

    ENDIF.

  ENDIF.

  v_dtaux = itab_zycbt002-dtfinal.

  CLEAR v_calc.

  IF ( /pws/zycbe001-tpcontr(1) EQ 'P' OR

       /pws/zycbe001-tpcontr(1) EQ 'S' ) AND

     /pws/zycbe001-ffrcalc EQ 'L'    AND

     itab_zycbt002-vlme > 0.

* >> Início da exclusão: FORM DIAS_JUROS

    IF (    itab_zycbt002-nrparc NE '001'

         OR itab_zycbt002-dtpagto NE '00000000')

    AND NOT itab_zycbt002-belnr IS INITIAL

* << Fim da exclusão

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

    IF     itab_zycbt002-nrparc NE '001'.

    IF NOT itab_zycbt002-belnr IS INITIAL

* << Fim da inclusão

    AND sy-tcode NE c_transacao_c.

      v_calc = 'X'.

    ELSEIF v_vigencia IS INITIAL

    AND    itab_zycbt002-belnr IS INITIAL

    AND sy-tcode NE c_transacao_c.

      v_calc = 'X'.

      v_vigencia = 'X'.

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

    ENDIF.

* << Fim da inclusão

    ENDIF.

  ENDIF.

  IF ( /pws/zycbe001-tpcontr(1) EQ 'P' OR

       /pws/zycbe001-tpcontr(1) EQ 'S' ) AND

     /pws/zycbe001-ffrcalc EQ 'C'    AND

     itab_zycbt002-fjur    EQ ' ' .

    IF itab_zycbt002-belnr   NE  ' ' .

      v_calc = 'X'.

    ELSE.

      v_calc = 'X'.

      v_cambiais = 'X'.

      PERFORM calcj_pre_cambiais.

    ENDIF.

  ENDIF.

* >> Início da exclusão: FORM DIAS_JUROS

  IF v_calc EQ ' '.

* << Fim da exclusão

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

  IF v_calc EQ ' '

  OR v_calc_todas = 'X'.

* << Fim da inclusão

    IF itab_zycbt002-dtpagto IS INITIAL.

      IF NOT itab_zycbt002-txjtotal IS INITIAL.

        IF NOT itab_zycbt002-tptxjur IS INITIAL.

          READ TABLE itab_zycbt010

               WITH KEY tptxjur = itab_zycbt002-tptxjur.

          IF NOT itab_zycbt010-nrdias IS INITIAL.

            IF NOT itab_zycbt002-dtfinal IS INITIAL.

              IF NOT itab_zycbt002-dtinicio IS INITIAL.

                IF /pws/zycbe001-tpcontr(1) = 'A' OR

                   /pws/zycbe001-tpcontr(1) = 'E'.

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

Modificações efetuadas em REPS /PWS/MZYCB001I01

...

ENDMODULE.

MODULE atualiza_zyglt209 INPUT.

  LOOP AT itab_zyglt209.

    MOVE: /pws/zygle209-bcofav TO itab_zyglt209-bcofav.

    MODIFY itab_zyglt209.

  ENDLOOP.

ENDMODULE.

MODULE dias_juros INPUT.

  IF sy-dynnr EQ '0102'.

    PERFORM pt_linear.

* >> Início da inclusão: MODULE DIAS_JUROS

    CLEAR v_vigencia.

    CLEAR v_calc_todas.

* << Fim da inclusão

    LOOP AT itab_zycbt002.

* >> Início da inclusão: MODULE DIAS_JUROS

    IF itab_zycbt002-nrparc = '001'

    AND itab_zycbt002-belnr IS INITIAL.

      v_calc_todas = 'X'.

    ENDIF.

* << Fim da inclusão

      IF v_cambiais = 'X' AND sy-tcode eq c_transacao_a.

        CLEAR v_cambiais.

        EXIT.

...

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

Modificações efetuadas em REPS /PWS/MZYCB001TOP

...

  v_juros            LIKE /pws/zycbt002-vlme,

  v_resposta,

  v_salvo(1),

  v_aviso(1),

  v_del2(1),

  v_del3(1),

  v_del4(1),

  v_del5(1),

  v_erro_bi(1),

  v_calc(1),

* >> Início da inclusão:

  v_vigencia(1),

  v_calc_todas(1),

* << Fim da inclusão

  v_cambiais(1),

  v_pagto(1),

  v_beln             LIKE /pws/zycbt004-belnr,

  v_altcanc(1),

  v_altliq(1),

  v_numseq           LIKE /pws/zycbt091-nrseql,

  v_altval(1),

  v_vlliq_me         LIKE /pws/zycbt091-vlme,

  v_vlliq_mi         LIKE /pws/zycbt091-vlmi,

  v_juros_ok(1),

...