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 00471 Data: 16/12/2005 Hora: 14:08:38

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

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

Nota Número              : 00471

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 6.0

Pacote                   : 00021

Agrupamento              : 00094

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

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

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

Palavras Chave:

ROTINA MENSAL JPY VLMI VALOR MI CLEARING PAGAMENTO

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

Objetos da nota:

REPS /PWS/ZYCBI003

REPS /PWS/ZYCBR003

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

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.

* >> Início da Inclusão

*         Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*         itab_sub_tipo-vlmij = itab_sub_tipo-vlmej * v_txc.

* << Fim da Deleção

* >> Início da Inclusão

          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

* << Fim da Inclusão

        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.

* >> Início da Inclusão

*       Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

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

* << Fim da Deleção

* >> Início da Inclusão

        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

* << Fim da Inclusão

        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.

* >> Início da Inclusão

*     Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*     v_vlmij = v_vlmej * v_txc.

* << Fim da Deleção

* >> Início da Inclusão

      PERFORM calcula_vlmi USING itab_relat-tpcontr

                                 itab_relat-waers

                                 v_vlmej

                                 v_txc

                           CHANGING v_vlmij.

*     Chamado 276775 - Renato - 13.12.2005 - Fim

* << Fim da Inclusão

      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

* >> Início da Inclusão

*       Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

**       Chamado 257490 - Renato - 15.09.2005 - Inicio

*        v_vlmij = v_vlmej * v_txc.

**       Chamado 257490 - Renato - 15.09.2005 - Fim

* << Fim da Deleção

* >> Início da Inclusão

        PERFORM calcula_vlmi USING itab_relat-tpcontr

                                   itab_relat-waers

                                   v_vlmej

                                   v_txc

                             CHANGING v_vlmij.

*       Chamado 276775 - Renato - 13.12.2005 - Fim

* << Fim da Inclusão

*       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.

* >> Início da Inclusão

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*   itab_sub_tipo-vlmij = itab_sub_tipo-vlmej * v_txc.

* << Fim da Deleção

* >> Início da Inclusão

    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

* << Fim da Inclusão

*   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

* >> Início da Inclusão

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*   itab_sub_tipo_pr-vlmij = itab_sub_tipo_pr-vlmej * v_txc.

* << Fim da Deleção

* >> Início da Inclusão

    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

* << Fim da Inclusão

* 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.

* >> Início da Inclusão

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*   itab_total-vlmij = itab_total-vlmej * v_txc.

* << Fim da Deleção

* >> Início da Inclusão

    PERFORM calcula_vlmi USING ' '

                               itab_total-waers

                               itab_total-vlmej

                               v_txc

                         CHANGING itab_total-vlmij.

*   Chamado 276775 - Renato - 13.12.2005 - Fim

* << Fim da Inclusão

*   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

* >> Início da Inclusão

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*   itab_total_pr-vlmij = itab_total_pr-vlmej * v_txc.

* << Fim da Deleção

* >> Início da Inclusão

    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

* << Fim da Inclusão

* 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.                               " EXIBE_RELATORIO

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

Modificações efetuadas em REPS /PWS/ZYCBR003

Contexto: FORM calcula_vlmi USING p_tpcontr

                        p_waers

                        p_vlmej

                        p_txc

                  CHANGING p_vlmij.

  IF wa_zycbt011-ctmoed IS INITIAL.

* >> Início da Inclusão

*   Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*   CONCATENATE '005' itab_relat-tpcontr INTO v_codeven.

* << Fim da Deleção

* >> Início da Inclusão

    CONCATENATE '005' p_tpcontr INTO v_codeven.

*   Chamado 276775 - Renato - 13.12.2005 - Fim

* << Fim da Inclusão

    SELECT SINGLE ctmoed FROM /pws/zycbt011

                         INTO wa_zycbt011-ctmoed

                         WHERE codeven = v_codeven AND

                               codmod  = text-066.

  ENDIF.

...

  READ TABLE itab_tcurx WITH KEY currkey = p_waers.

  IF sy-subrc           EQ 0   AND

     itab_tcurx-currdec EQ 0.

* >> Início da Inclusão

*    Chamado 276775 - Renato - 13.12.2005 - Inicio

* << Fim da Inclusão

* >> Início da Deleção

*    AND ( p_tpcontr+0(1)   EQ 'P' OR p_tpcontr+0(1) EQ 'S' ).

*<< Fim da Deleção

* >> Início da Inclusão

*    Chamado 276775 - Renato - 13.12.2005 - Fim

* << Fim da Inclusão

    V_VLMEAUX = P_VLMEJ / ( 10 ** ( itab_tcurx-currdec - 2 ) ).

  ELSE.

    v_vlmeaux = p_vlmej.

  ENDIF.

  p_vlmij = ( ( p_txc / v_defator ) * v_parafator ) * v_vlmeaux.

ENDFORM.                    " calcula_vlmi