SAP ABAP:获取汇率的完整实现之一

 

经常用到，好不容易做了一个完整的。

 

data: cw_rate like bapi1093_0.
data: s_c_factor type p decimals 3,
      t_c_factor type p decimals 3,.
data:  s_waerk type waerk,
       t_waerk type waerk,
       curdate type rscalday,"add by Robin 2010.08.07
       l_rate type p decimals 4.

*1. 获取汇率信息

    call function 'BAPI_EXCHANGERATE_GETDETAIL'
      exporting
        rate_type  = 'M'
        from_curr  =  s_waerk
        to_currncy =  t_waerk
        date       =  curdate
      importing
        exch_rate  = cw_rate.

*2. 获取转换因子
    call function 'CURRENCY_CONVERTING_FACTOR'
      exporting
        currency = s-waerk
      importing
        factor   = s_c_factor.

    call function 'CURRENCY_CONVERTING_FACTOR'
      exporting
        currency = t-waerk
      importing
        factor   = t_c_factor.

      l_rate = cw_rate-exch_rate * ( cw_rate-to_factor / cw_rate-from_factor )
                * ( s_c_factor / t_c_factor ) .

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/554557/viewspace-702753/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/554557/viewspace-702753/