Sintoma

Na liquidação com arbitragem, o campo valor vinculado não está levando em consideração o fator de

conversão de moedas sem casas decimais, fazendo com que o campo seja exibido com o o valor

incorreto.

Solução

O programa foi ajustado e passou a levar em consideração o fator de conversão para o campo valor

vinculado.

Informações Complementares

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

Nota Número 00430 Data: 09/12/2005 Hora: 11:16:03

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

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

Nota Número              : 00430

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 - Descrição Breve

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

NA LIQUIDAÇÃO COM ARBITRAGEM, O VALOR VINCULADO NÃO ESTÁ CORRETO

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

Palavras Chave:

LIQUIDAÇÃO ARBITRAGEM JPY VALOR VINCULADO FATOR CONVERSÃO

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

Objetos da nota:

REPS /PWS/MZYCB004F01

REPS /PWS/MZYCB004F03

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

Modificações efetuadas em REPS /PWS/MZYCB004F01

...

    ENDIF.

    LOOP AT itab_zycbt005.

      itab_zycbt005-vlme  = itab_zycbt005-slpagar.

      IF itab_zycbt005-waers NE itab_zycbt005-waers_c.

        itab_zycbt005-vlme = itab_zycbt005-vlme / itab_zycbt005-parid.

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

        PERFORM verifica_casas_decimais

          USING

            itab_zycbt005-vlme

            itab_zycbt005-waers

          CHANGING itab_zycbt005-vlme.

* << Fim da inclusão

      ENDIF.

      MODIFY itab_zycbt005.

      MOVE-CORRESPONDING itab_zycbt005 TO itab_paridade.

      MOVE itab_zycbt005-parid TO itab_paridade-v_parid.

      MOVE itab_zycbt005-waers_c TO itab_paridade-v_waers_c.

...

...

  CLEAR itab_zyglt100.

  REFRESH itab_zyglt100.

  MOVE sy-repid TO v_rep.

  CALL FUNCTION '/PWS/ZYGL_BUSCA_EXIT_CLIENTE'

       EXPORTING

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

            i_codmod      = 'E'

            i_func        = v_rep

* << Fim da exclusão

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

            i_codmod                = 'E'

            i_func                  = v_rep

* << Fim da inclusão

       TABLES

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

            itab_zyglt100 = itab_zyglt100

* << Fim da exclusão

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

            itab_zyglt100           = itab_zyglt100

* << Fim da inclusão

       EXCEPTIONS

            i_codmod_nao_encontrado = 1

            i_func_nao_encontrado   = 2

            i_zexit_nao_encontrado  = 3

            OTHERS                  = 4.

...

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

Modificações efetuadas em REPS /PWS/MZYCB004F03

...

  LOOP AT itab_zycbt045 WHERE nrinvoic = itab_zycbt030-nrinvoic.

    v_zbd1t = v_zbd1t + itab_zycbt045-nrdias.

  ENDLOOP.

  ITAB_ZYCBE033-zbd1t  = v_zbd1t.

endform.

* >> Início da inclusão:

FORM verifica_casas_decimais

  USING

    value(p_valor)

    value(p_waers)

  CHANGING

    p_valor_aj.

  DATA v_decimais LIKE tcurx-currdec.

  SELECT SINGLE currdec

    FROM tcurx

    INTO v_decimais

    WHERE currkey EQ p_waers.

  IF sy-subrc NE 0.

    v_decimais = 2.

  ENDIF.

  IF v_decimais EQ 0.

    p_valor_aj = p_valor / 100.

  ELSE.

    p_valor_aj = p_valor * 100.

  ENDIF.

ENDFORM.

* << Fim da inclusão

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

Modificações efetuadas em /PWS/SAPMZYCB005 tela 0100

O campo da table control Valor Vinculado (Moeda Contrato) passou a ter como referência o campo

V_WAERS_C ao invés do campo /PWS/ZYCBE006-WAERS.