Sintoma

Ao executar a rotina mensal do tipo Clearing do pagto, para a moeda de JPY, foi encontrado no fator

de conversão um erro na coluna  "Valor MI".

Solução

Ajustado os campos para validar moedas sem casa decimal

.

Informações Complementares

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

Nota Número 00474 Data: 16/12/2005 Hora: 14:50:42

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

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

Nota Número              : 00474

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00091

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

Referência às notas relacionadas:

Número - Ordem - Versão - Pacote - Descrição Breve

00471  - 00001 - 6.0    - 00021  - CALCULO DO VALOR MI PARA JPY NA ROTINA MENSAL PARA CLERING NO PAG

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

CALCULO DO VALOR MI PARA JPY NA ROTINA MENSAL PARA CLEARING NO PAGAMENTO

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

Palavras Chave:

ROTINA MENSAL JPY VLMI VALOR MI CLEARING PAGAMENTO

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

Objetos da nota:

REPS /PWS/ZYCBI003

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

Modificações efetuadas em REPS /PWS/ZYCBI003

Contexto: FORM exibe_relatorio.

  DATA: v_nrlines    TYPE i,

        v_vlmej      LIKE /pws/zycbt001-vlme,  " Somatório por contrato

        v_vlmeir     LIKE /pws/zycbt001-vlme,  " Somatório por contrato

        v_vlmejc(16),

        v_vlmij      LIKE /pws/zycbt001-vlme,  " Somatório por contrato

        v_vlmiir     LIKE /pws/zycbt001-vlme,  " Somatório por contrato

        v_vlmijc(16),

        v_nrcorresp  LIKE /pws/zycbt154-nrcorresp,

        v_vlrjprov   LIKE /pws/zycbt154-vlme,

        v_vlirprov   LIKE /pws/zycbt154-vlme,

        v_faux,                           " Flag fim por contrato

        v_waers      LIKE /pws/zycbt001-waers,

        v_vlme_mes   LIKE /pws/zycbt001-vlme,

        v_vlmi_mes   LIKE /pws/zycbt001-vlmi,

        aux_relat    LIKE itab_relat,

        v_nrdias(8)  TYPE n,

        v_tjuros     LIKE /pws/zycbt004-vlme,

        v_tir        LIKE /pws/zycbt004-vlme,

        v_primeiro   TYPE c,

        v_sy_index   LIKE sy-tabix.

...

*   Mostra somatório dos juros por tipo de contrato

    ON CHANGE OF itab_relat-tpcontr.

      LOOP AT itab_sub_tipo.

        FORMAT COLOR 1 INVERSE OFF INTENSIFIED OFF.

        IF itab_sub_tipo-vlmij IS INITIAL.

*         Chamado 276775 - Renato - 13.12.2005 - Inicio

*         itab_sub_tipo-vlmij = itab_sub_tipo-vlmej * v_txc.

          PERFORM calcula_vlmi USING itab_sub_tipo-tpcontr

                                     itab_sub_tipo-waers

                                     itab_sub_tipo-vlmej

                                     v_txc

                               CHANGING itab_sub_tipo-vlmij.

*         Chamado 276775 - Renato - 13.12.2005 - Fim

        ENDIF.

        IF itab_sub_tipo-tpcontab IS INITIAL."CHAMADO 226741 -08/06/2005

          WRITE: / sy-vline,

                   text-006, text-008, itab_sub_tipo-tpcontr.

* CHAMADO 226741 - 08/06/2005 - INICIO

        ELSE.

          WRITE: / sy-vline,

                   text-128, text-132, text-008, itab_sub_tipo-tpcontr.

        ENDIF.

* CHAMADO 226741 - 08/06/2005 - FIM

...

      REFRESH itab_sub_tipo.

      CLEAR itab_sub_tipo.

      LOOP AT itab_sub_tipo_pr.

*       Chamado 276775 - Renato - 13.12.2005 - Inicio

*       IF itab_sub_tipo-vlmij IS INITIAL. "AP - 202088

        IF itab_sub_tipo_pr-vlmij IS INITIAL. "AP - 202088

*         itab_sub_tipo_pr-vlmij = itab_sub_tipo_pr-vlmej * v_txc.

          PERFORM calcula_vlmi USING itab_sub_tipo_pr-tpcontr

                                     itab_sub_tipo_pr-waers

                                     itab_sub_tipo_pr-vlmej

                                     v_txc

                               CHANGING itab_sub_tipo_pr-vlmij.

*         Chamado 276775 - Renato - 13.12.2005 - Fim

        ENDIF.

        FORMAT COLOR 1 INVERSE OFF INTENSIFIED OFF. " Elaine 28.10.02

...

      itab_relat-vlrprov = itab_relat-vlmej - v_vlrjprov.

      itab_relat-vlrjprov = v_vlrjprov.

      itab_relat-vlirprov  = itab_relat-vlmeir - v_vlirprov.

      MODIFY itab_relat TRANSPORTING vlrprov vlirprov.

      ULINE.

*     Chamado 276775 - Renato - 13.12.2005 - Inicio

*     v_vlmij = v_vlmej * v_txc.

      PERFORM calcula_vlmi USING itab_relat-tpcontr

                                 itab_relat-waers

                                 v_vlmej

                                 v_txc

                           CHANGING v_vlmij.

*     Chamado 276775 - Renato - 13.12.2005 - Fim

      FORMAT COLOR COL_NORMAL INTENSIFIED ON.

      WRITE: /    sy-vline, text-106, text-130, itab_relat-nrparcj,

                  text-131,

              172 itab_relat-vlmej CURRENCY itab_relat-waers,

                  itab_relat-waers,

             (16) itab_relat-vlmij CURRENCY wa_zycbt007-waersb,

             225 v_vlmeir CURRENCY v_waers NO-ZERO,

              AT v_tamr sy-vline.

      FORMAT COLOR OFF.

...

        MOVE itab_relat-vlmej  TO v_vlmej.

        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.

*       Chamado 265348 - Início - Fábio Kazuo Hatanaka - 25.10.2005

*       Chamado 276775 - Renato - 13.12.2005 - Inicio

**       Chamado 257490 - Renato - 15.09.2005 - Inicio

*        v_vlmij = v_vlmej * v_txc.

**       Chamado 257490 - Renato - 15.09.2005 - Fim

* >> Início da Deleção

*       PERFORM calcula_vlmi USING itab_relat-tpcontr

*                                  itab_relat-waers

*                                  v_vlmej

*                                  v_txc

*                            CHANGING v_vlmij.

* Ch. 276775 - 16.12.2005 - Fim

* << Fim da Deleção

*       Chamado 276775 - Renato - 13.12.2005 - Fim

*       Chamado 265348 - Fim - Fábio Kazuo Hatanaka - 25.10.2005

**       Chamado 257490 - Início - Fábio Kazuo Hatanaka - 14.09.2005

**       Correção dos valores.

*        IF aux_relat-tpcontr+0(1) NE 'P' AND

*           aux_relat-tpcontr+0(1) NE 'S'.

*          v_vlmej =  v_vlmej * ( 10 ** ( itab_tcurx-currdec - 2 ) ).

*

*          itab_relat-vlrprov =

*            itab_relat-vlrprov * ( 10 ** ( itab_tcurx-currdec - 2 ) ).

*        ENDIF.

**       Chamado 257490 - Fim    - Fábio Kazuo Hatanaka - 14.09.2005

        FORMAT COLOR COL_NORMAL INTENSIFIED ON.

        WRITE: /    sy-vline,

                    text-106,

                172 v_vlmej CURRENCY v_waers,

                    v_waers,

               (16) v_vlmij CURRENCY wa_zycbt007-waersb.

        WRITE: 225 v_vlmeir CURRENCY v_waers NO-ZERO.

        WRITE:   AT v_tamr sy-vline.

        FORMAT COLOR OFF.

        FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

        WRITE: /    sy-vline,

                148 text-059,

                172 itab_relat-vlrprov CURRENCY v_waers,

                    v_waers,

                225 itab_relat-vlirprov CURRENCY v_waers NO-ZERO.

        WRITE:   AT v_tamr sy-vline.

        FORMAT COLOR OFF.

        ULINE.

      ENDIF.

      CLEAR v_primeiro.

      PERFORM exibe_top_relatorio.

...

  LOOP AT itab_sub_tipo.

    FORMAT COLOR 1 INVERSE OFF INTENSIFIED OFF.

*   PWS69843240 - Cham 265348 - Início - Fábio K Hatanaka - 21.10.2005

*   Não estava sendo atualizado o valor dos juros corretamente

*   IF itab_sub_tipo-vlmij IS INITIAL.

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

*   itab_sub_tipo-vlmij = itab_sub_tipo-vlmej * v_txc.

* >> Início da Deleção

* Ch. 276775 - 16.12.2005 - Início

*   PERFORM calcula_vlmi USING itab_sub_tipo-tpcontr

*                              itab_sub_tipo-waers

*                              itab_sub_tipo-vlmej

*                              v_txc

*                        CHANGING itab_sub_tipo-vlmij.

* Ch. 276775 - 16.12.2005 - Fim

* << Fim da Deleção

*   Chamado 276775 - Renato - 13.12.2005 - Fim

*   ENDIF.

*   PWS69843240 - Cham 265348 - Fim    - Fábio K Hatanaka - 21.10.2005

    IF itab_sub_tipo-tpcontab IS INITIAL. " CHAMADO 226741 - 08/06/2005

      WRITE: / sy-vline,

               text-006, text-008, itab_sub_tipo-tpcontr.

* CHAMADO 226741 - 08/06/2005 - INICIO

    ELSE.

      WRITE: / sy-vline,

               text-128, text-132, text-008, itab_sub_tipo-tpcontr.

    ENDIF.

* CHAMADO 226741 - 08/06/2005 - FIM

    WRITE:   172 itab_sub_tipo-vlmej CURRENCY itab_sub_tipo-waers,

                 itab_sub_tipo-waers,

            (16) itab_sub_tipo-vlmij CURRENCY wa_zycbt007-waersb,

             225 itab_sub_tipo-vlmeir

                 CURRENCY itab_sub_tipo-waers NO-ZERO.

    WRITE:  AT v_tamr sy-vline.

...

  LOOP AT itab_sub_tipo_pr.

* Maurício - Chamado 157092 - 19.04.2004

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

*   itab_sub_tipo_pr-vlmij = itab_sub_tipo_pr-vlmej * v_txc.

* >> Início da Deleção

* Ch. 276775 - 16.12.2005 - Início

*   PERFORM calcula_vlmi USING itab_sub_tipo_pr-tpcontr

*                              itab_sub_tipo_pr-waers

*                              itab_sub_tipo_pr-vlmej

*                              v_txc

*                        CHANGING itab_sub_tipo_pr-vlmij.

* Ch. 276775 - 16.12.2005 - Fim

* << Fim da Deleção

*   Chamado 276775 - Renato - 13.12.2005 - Fim

* Maurício - Chamado 157092 - Fim Alteração

    FORMAT COLOR 1 INVERSE OFF INTENSIFIED OFF.

    WRITE: /     sy-vline,

                 text-006, text-008, itab_sub_tipo_pr-tpcontr,

             172 itab_sub_tipo_pr-vlmej CURRENCY itab_sub_tipo_pr-waers,

                 itab_sub_tipo_pr-waers,

            (16) itab_sub_tipo_pr-vlmij CURRENCY wa_zycbt007-waersb.

    WRITE:  AT v_tamr sy-vline.

    ULINE.

    FORMAT COLOR OFF.

  ENDLOOP.

...

  LOOP AT itab_total.

*   PWS69843240 - Cham 265348 - Início - Fábio K Hatanaka - 21.10.2005

*   Não estava sendo atualizado o valor dos juros corretamente

*   IF itab_total-vlmij IS INITIAL.

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

*   itab_total-vlmij = itab_total-vlmej * v_txc.

* >> Início da Deleção

* Ch. 276775 - 16.12.2005 - Início

*   PERFORM calcula_vlmi USING ' '

*                              itab_total-waers

*                              itab_total-vlmej

*                              v_txc

*                        CHANGING itab_total-vlmij.

* Ch. 276775 - 16.12.2005 - Fim

* << Fim da Deleção

*   Chamado 276775 - Renato - 13.12.2005 - Fim

*   ENDIF.

*   PWS69843240 - Cham 265348 - Fim    - Fábio K Hatanaka - 21.10.2005

    FORMAT COLOR 3 INVERSE OFF INTENSIFIED OFF.

    IF itab_total-tpcontab IS INITIAL. " CHAMADO 226741 - 08/06/2005

      WRITE: /     sy-vline,

                   text-049, itab_total-waers.

* CHAMADO 226741 - 08/06/2005 - INICIO

    ELSE.

      WRITE: / sy-vline,

               text-129, itab_total-waers.

    ENDIF.

* CHAMADO 226741 - 08/06/2005 - FIM

    WRITE: 172  itab_total-vlmej CURRENCY itab_total-waers,

                itab_total-waers,

           (16) itab_total-vlmij CURRENCY wa_zycbt007-waersb,

           225  itab_total-vlmeir

                CURRENCY itab_total-waers NO-ZERO.

    WRITE: AT v_tamr sy-vline.

    FORMAT COLOR OFF.

    ULINE.

  ENDLOOP.

...

  LOOP AT itab_total_pr.

* Maurício - Chamado 157092 - 19.04.2004

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

*   itab_total_pr-vlmij = itab_total_pr-vlmej * v_txc.

    PERFORM calcula_vlmi USING ' '

                               itab_total_pr-waers

                               itab_total_pr-vlmej

                               v_txc

                         CHANGING itab_total_pr-vlmij.

*   Chamado 276775 - Renato - 13.12.2005 - Fim

* Maurício - Chamado 157092 - Fim Alteração

    FORMAT COLOR 3 INVERSE OFF INTENSIFIED OFF.

    WRITE: /     sy-vline,

                 text-105, itab_total_pr-waers,

             172 itab_total_pr-vlmej CURRENCY itab_total_pr-waers,

                 itab_total_pr-waers,

            (16) itab_total_pr-vlmij CURRENCY wa_zycbt007-waersb.

    WRITE: AT v_tamr sy-vline.

    FORMAT COLOR OFF.

    ULINE.

  ENDLOOP.

ENDFORM.

ENDFORM.

ENDFORM.