原文首发于http://www.itpub.net/thread-1063918-1-1.html[@more@]

例子程序

REPORT ztest.
DATA: USD TYPE WRBTR, JPY TYPE WRBTR, JPY_E TYPE BAPICURR-BAPICURR.
DATA: USD_K TYPE WAERS, JPY_K TYPE WAERS.
DATA: RET TYPE BAPIRETURN.
JPY = '10000.01'.
USD_K = 'USD'.
JPY_K = 'JPY'.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  EXPORTING
    date                    = SY-DATUM
    foreign_amount          = JPY
    foreign_currency        = JPY_K
    local_currency          = USD_K
IMPORTING
   LOCAL_AMOUNT            = USD
          .
WRITE: JPY CURRENCY JPY_K, JPY_K,
       USD CURRENCY USD_K, USD_K.
ULINE.
JPY_E = JPY.
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL'
  EXPORTING
    currency                   = JPY_K
    amount_external            = JPY_E
    max_number_of_digits       = 23
IMPORTING
   AMOUNT_INTERNAL            = JPY
   RETURN                     = RET
          .
IF RET IS NOT INITIAL.
  MESSAGE ID RET-CODE(2) TYPE RET-TYPE NUMBER RET-CODE+2(3)
    WITH RET-MESSAGE_V1 RET-MESSAGE_V2 RET-MESSAGE_V3 RET-MESSAGE_V4.
ENDIF.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  EXPORTING
    date                    = SY-DATUM
    foreign_amount          = JPY
    foreign_currency        = JPY_K
    local_currency          = USD_K
IMPORTING
   LOCAL_AMOUNT            = USD.
WRITE: JPY CURRENCY JPY_K, JPY_K,
       USD CURRENCY USD_K, USD_K.

测试的输出结果为

1,000,001 JPY 8,714.61 USD
10,000 JPY 87.15 USD

你看懂了么？

ITPub博客

调用CONVERT_TO_LOCAL_CURRENCY时，要注意货币单位小数点的问题

最新文章