ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 币别转换

币别转换

原创 Linux操作系统 作者:ftsz0079 时间:2012-12-03 11:28:16 0 删除 编辑

CONVERT_TO_LOCAL_CURRENCY(货币汇率转换)
 
 
 
*&---------------------------------------------------------------------*
*& Report  Z_BARRY_CONVERT_CURRENCY                                    *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  z_barry_convert_currency   
lixiaojuan 说:
            .

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

date = '20070519' .

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

fa = 3 .
fc = 'EUR' .
lc = 'ATS' .
ty = 'M'.

CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  EXPORTING
    date             = date
    foreign_amount   = fa
    foreign_currency = fc
    local_currency   = lc
    type_of_rate     = ty
  IMPORTING
    local_amount     = jine
  EXCEPTIONS
    no_rate_found    = 1
    OTHERS           = 2.
WRITE:/ jine .

 

注意点:

1.Exporting各个参数一
lixiaojuan 说:
定不能用常量,要用变量

2.汇率存放在表:TCURR中,另外TCUR*有关于汇率的其他数据

3.碰到比较变态的货币,例如日元,它们是没有小数点的,系统内存储的和你看到的不同,有个BAPI可以使用:BAPI_CURRENCY_CONV_TO_INTERNAL

4.维护汇率的Tcode:OB07、OB08

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

上一篇: [转]SAP常用函数
请登录后发表评论 登录
全部评论

注册时间:2012-07-16

  • 博文量
    47
  • 访问量
    70567