Sintoma

Ao efetuar um refinanciamento com moedas diferentes, esta fixo a categoria da moeda como 'M'. O

correto é buscar da /pws/zycbt011.

Solução

Passar a buscar através da tabela de parâmetro /PWS/ZYCBT011.

Informações Complementares

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

Nota Número 07054 Data: 30/07/2008 Hora: 17:32:20

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

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

Nota Número              : 07054

Categoria                : Erro de Programa

Prioridade               : Média

Versão PW.CE             : 7.0

Pacote                   : 00006

Agrupamento              : 00058

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

Referência às notas relacionadas:

Número - Ordem - Descrição Breve

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

REFINANCIAMENTO - MOEDAS DIFERENTES - CATEGORIA DA MOEDA - F-51

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

Palavras Chave:

REFINANCIAMENTO MOEDAS DIFERENTES CATEGORIA DA MOEDA F-51

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

Objetos da nota:

REPS /PWS/MZYCM101F01

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

Modificações efetuadas em REPS /PWS/MZYCM101F01

...

                        AND bukrs EQ /pws/zycbe112-bukrs

                        AND gjahr EQ /pws/zycbe112-dtdesem(4).

  APPEND itab_zycbt036.

ENDFORM.

FORM calcula_montante.

  DATA:  v_difer       LIKE /pws/zycbt116-vlme,

         v_parcela_brl LIKE /pws/zycbt116-vlme,

         v_txcbrl      LIKE tcurr-ukurs,                    "#EC NEEDED

         v_vlrme       LIKE /pws/zycbt116-vlme,

         v_msg1(30),

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

         v_msg2(30).

* << Fim da exclusão

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

         v_msg2(30),

         v_ctmoed      TYPE /pws/zycbt011-ctmoed.

* << Fim da inclusão

  CLEAR: v_difer, v_parcela_brl, v_txcbrl.

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

  SELECT SINGLE ctmoed FROM /pws/zycbt011 INTO v_ctmoed

                WHERE codeven = '001RD'

                  AND codmod  = text-016

                  AND bukrs   = /pws/zycbe112-bukrs.

  IF sy-subrc NE 0.

    v_ctmoed = 'M'.

  ENDIF.

* << Fim da inclusão

  SELECT SINGLE kurst

        FROM /pws/zycbt009

        INTO /pws/zycbt009-kurst

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

        WHERE codpadr = 'M'.

* << Fim da exclusão

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

        WHERE codpadr = v_ctmoed.

  IF sy-subrc NE 0.

    /pws/zycbt009-kurst = v_ctmoed.

  ENDIF.

* << Fim da inclusão

  CALL FUNCTION '/PWS/ZYCB_MONTANTE_CONVERTE'

       EXPORTING

            i_montante                 = itab_zycbt035-wrbtr

            i_demoeda                  = /pws/zycbe112-waers

            i_paramoeda                = wa_zycbt007-waersb

            i_ctmoeda                  = /pws/zycbt009-kurst

            i_dtbase                   = itab_zycbe033-budat

       IMPORTING

            e_montante                 = v_parcela_brl

            e_txc                      = v_txcbrl

...