ITPub博客

首页 > Linux操作系统 > Linux操作系统 > SAP ABAP:获取汇率的完整实现之一

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

原创 Linux操作系统 作者:leniz 时间:2011-07-21 14:59:54 0 删除 编辑
 
经常用到,好不容易做了一个完整的。
 
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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2008-05-31

  • 博文量
    448
  • 访问量
    1113322