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

最新推荐文章于 2025-04-08 16:45:13 发布

转载最新推荐文章于 2025-04-08 16:45:13 发布 · 398 阅读

本文介绍了一种通过调用特定函数获取汇率信息及货币转换因子的方法，并演示了如何使用这些信息进行货币之间的换算计算。

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

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/