CURRENCY_CONVERTING_FACTOR ABAP 通貨転換

FORM CURRENCY_CONVERTING USING IW_CURRENCY TYPE ANY

                                                CHANGING OW_BETRAG TYPE ANY.

  DATA: LW_FACTOR TYPE P DECIMALS 3.

  CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'

  EXPORTING

    CURRENCY = IW_CURRENCY

  IMPORTING

    FACTOR  = LW_FACTOR

  EXCEPTIONS

    TOO_MANY_DECIMALS = 1

    OTHERS  = 2.

  IF SY-SUBRC =  0.

    IF LW_FACTOR <>  0.

      OW_BETRAG = OW_BETRAG * LW_FACTOR.

    ENDIF.

  ENDIF.

ENDFORM.