Sintoma

Ao rodar a rotina mensal, nas duas ultimas linhas do 1º relatório ("Subtotal juros PT" e "Total

Geral moeda -Juros USD"), o valor ME aparece preenchido corretamente de acordo com o Subtotal do

Contrato, mas o Valor MI está vindo errado (isso quando temos um pagamento de juros para o

contrato). OBS: Quando não temos nenhum pagamento de juros para o contrato, o Valor MI aparece

corretamente no relatório da rotina mensal

Solução

Ao calcular o Valor MI, efetuar antes a dedução dos pagamentos de juros do valor ME, para que o

cálculo fique correto.

Informações Complementares

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

Nota Número 01441 Data: 26/05/2006 Hora: 17:14:31

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

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

Nota Número              : 01441

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00023

Agrupamento              : 00115

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

ROTINA MENSAL EXPORTAÇÃO - VALOR MI SUBTOTAL E TOTAL

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

Palavras Chave:

ROTINA MENSAL EXPORTAÇÃO VALOR MI SUBTOTAL TOTAL

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

...

           FOR ALL ENTRIES IN itab_zycbt001

           WHERE currkey = itab_zycbt001-waers.

  ENDIF.

ENDFORM.

FORM exibe_relatorio.

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

  FIELD-SYMBOLS:

    <fs_itab_relat> LIKE LINE OF itab_relat[].

* << Fim da inclusão

  DATA: v_nrlines    TYPE i,

        v_vlmej      LIKE /pws/zycbt001-vlme,

        v_vlmeir     LIKE /pws/zycbt001-vlme,

        v_vlmejc(16),

        v_vlmij      LIKE /pws/zycbt001-vlme,

...

...

        MOVE itab_relat-vlmij  TO v_vlmij.

        MOVE itab_relat-vlmeir TO v_vlmeir.

        MOVE itab_relat-vlme_mes TO v_vlme_mes.

        MOVE itab_relat-vlmi_mes TO v_vlmi_mes.

        ULINE.

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

        PERFORM calcula_vlmi USING aux_relat-tpcontr

                                   aux_relat-waers

                                   v_vlmej

                                   v_txc

                             CHANGING v_vlmij.

* << Fim da inclusão

        FORMAT COLOR COL_NORMAL INTENSIFIED ON.

        WRITE: /    sy-vline,

                    text-106,

                172 v_vlmej CURRENCY v_waers,

                    v_waers,

...

...

          CONCATENATE text-015 v_vlmejc INTO itab_msg-msg.

          APPEND itab_msg.

        ENDIF.

      ENDIF.

    ENDIF.

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

    LOOP AT itab_relat

      ASSIGNING <fs_itab_relat>

      WHERE

        tpcontab EQ itab_relat-tpcontab AND

        nrseqc   EQ itab_relat-nrseqc   AND

        nrcontr  EQ itab_relat-nrcontr  AND

        tpcontr  EQ itab_relat-tpcontr.

      IF <fs_itab_relat>-txc GT 0.

        EXIT.

      ENDIF.

    ENDLOOP.

* << Fim da inclusão

    IF itab_relat-tpcontab IS INITIAL.

      itab_sub_tipo-tpcontab = itab_relat-tpcontab.

      itab_sub_tipo-tpcontr  = itab_relat-tpcontr.

      itab_sub_tipo-waers    = itab_relat-waers.

      itab_sub_tipo-vlmej    = itab_relat-vlmej.

      itab_sub_tipo-vlme_mes = itab_relat-vlme_mes.

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

      itab_sub_tipo-vlmij    = itab_relat-vlmij.

* << Fim da exclusão

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

      IF <fs_itab_relat> IS ASSIGNED.

        itab_sub_tipo-vlmij = itab_relat-vlmej * <fs_itab_relat>-txc.

      ELSE.

* << Fim da inclusão

      itab_sub_tipo-vlmi_mes = itab_relat-vlmi_mes.

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

      ENDIF.

* << Fim da inclusão

      itab_sub_tipo-vlmeir   = itab_relat-vlmeir.

      COLLECT itab_sub_tipo.

      itab_total-tpcontab = itab_relat-tpcontab.

      itab_total-waers    = itab_relat-waers.

      itab_total-vlmej    = itab_relat-vlmej.

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

      IF <fs_itab_relat> IS ASSIGNED.

        itab_total-vlmij = itab_relat-vlmej * <fs_itab_relat>-txc.

      ELSE.

* << Fim da inclusão

      itab_total-vlmij    = itab_relat-vlmij.

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

      ENDIF.

* << Fim da inclusão

      itab_total-vlmeir   = itab_relat-vlmeir.

...