ABAP获取汇率
data: exch_rate like bapi1093_0.
data: s_c_factor type p decimals 3,
t_c_factor type p decimals 3.
data: lv_waerk type waerk,"起始汇率
ln_waerk type waerk,"装换汇率
curdate type rscalday ,"汇率生效日期
l_rate type p decimals 4.
curdate = SY-DATUM .
BREAK-POINT.
*1. 获取汇率信息
call function ‘BAPI_EXCHANGERATE_GETDETAIL’
exporting
rate_type = ‘M’
from_curr = lv_waerk
to_currncy = ln_waerk
date = curdate
importing
exch_rate = exch_rate.
*2. 获取转换因子
call function ‘CURRENCY_CONVERTING_FACTOR’
exporting
currency = lv_waerk
importing
factor = s_c_factor.
call function ‘CURRENCY_CONVERTING_FACTOR’
exporting
currency = ln_waerk
importing
factor = t_c_factor.
l_rate = exch_rate-exch_rate * ( exch_rate-to_factor / exch_rate-from_factor ) * ( s_c_factor / t_c_factor ) .
BREAK-POINT.
文章来自于网络,如果侵犯了您的权益,请联系站长删除!