Sintoma

Após o usuario digitar a paridade, o valor em USD está incorreto.

Solução

Alterada a maneira que o programa trata a quantidade de casas decimais.

Informações Complementares

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

Nota Número 06750 Data: 12/06/2008 Hora: 13:58:37

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

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

Nota Número              : 06750

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00005

Agrupamento              : 00051

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

Referência às notas relacionadas:

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

05990  - 00001 - 7.0    - 00004  - CODE INSPECTOR, VERIFICAÇÃO AMPLIADA GRUPOS DE FUNÇÃO CAMBIO

06023  - 00002 - 7.0    - 00004  - AJUDA DE PESQUISA, ASSOCIAÇÃO CARTA DE CREDITO IMPORTAÇÃO - CODE

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

ASSOCIAÇÃO - PAGAMENTO ANTECIPADO COM JPY

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

Palavras Chave:

ASSOCIAÇÃO - PAGAMENTO ANTECIPADO COM JPY

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

Objetos da nota:

REPS /PWS/LZYCMGF2F01

REPS /PWS/MZYCB113F01

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

Modificações efetuadas em REPS /PWS/LZYCMGF2F01

...

           AND v_trans IS INITIAL ).

        PERFORM ultima_associacao.

        /pws/zycbe117-belnr2     = v_belnr_ult.

      ENDIF.

      CLEAR:  itab_zycbt108-fassoc.

      MODIFY itab_zycbt108 INDEX v_tabix.

      IF itab_zycbt131-waers EQ /pws/zycbe117-waers.

        /pws/zycbe117-slpgant = itab_zycbt131-vlme +

 /pws/zycbe117-slpgant.

      ELSE.

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

        SELECT SINGLE * FROM tcurx WHERE currkey = itab_zycbt131-waers.

        IF sy-subrc <> 0.

          tcurx-currdec = 2.

        ENDIF.

* << Fim da inclusão

        /pws/zycbe117-slpgant = ( itab_zycbt131-vlme *

 itab_zycbt131-parid )

                             + /pws/zycbe117-slpgant.

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

        IF tcurx-currdec EQ 0.

          /pws/zycbe117-slpgant =

          /pws/zycbe117-slpgant / ( 10 ** ( tcurx-currdec - 2 ) ).

        ENDIF.

* << Fim da inclusão

      ENDIF.

...

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

Modificações efetuadas em REPS /PWS/MZYCB113F01

...

      /pws/zycbe131-vlmefin   = /pws/zycbe131-vlme *

                                /pws/zycbe131-parid.

      SELECT *

             UP TO 1 ROWS

             FROM tcurx

             WHERE currkey = /pws/zycbe131-waers.

      ENDSELECT.

      IF sy-subrc <> 0.

        tcurx-currdec = 2.

      ENDIF.

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

      IF tcurx-currdec > 0.

* << Fim da exclusão

        /pws/zycbe131-vlmefin = /pws/zycbe131-vlmefin

                           / ( 10 ** ( tcurx-currdec - 2 ) ).

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

      ENDIF.

* << Fim da exclusão

      itab_zycbt131-vlmefin   = /pws/zycbe131-vlmefin.

  ENDCASE.

  CLEAR v_vlmeant.

  MOVE itab_zycbt131-vlme TO v_vlmeant.

  itab_zycbt131-belnr       = /pws/zycbe131-belnr.

...