SAP汇率转换的操作

今天碰到需要进行汇率转换的操作，下面代码挺有用的。

REPORT  z_barry_convert_currency                .

DATA: jine  LIKE bseg-wrbtr  .
DATA: date LIKE sy-datum .
DATA: curr_ex LIKE bapicurr-bapicurr .

date = '20060831' .

DATA: fa LIKE bseg-wrbtr ,
      fc LIKE t001-waers ,
      lc LIKE t001-waers ,
      ty LIKE tcurr-kurst .

fa = 100.
fc = 'JPY' .
lc = 'RMB' .
ty = 'M'.

curr_ex = fa .
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL'
  EXPORTING
    currency             = fc
    amount_external      = curr_ex
    max_number_of_digits = 13
  IMPORTING
    amount_internal      = fa.

CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  EXPORTING
    date             = date
    foreign_amount   = fa
    foreign_currency = fc
    local_currency   =