加载中…
个人资料
Lemon
Lemon
  • 博客等级:
  • 博客积分:0
  • 博客访问:204,979
  • 关注人气:38
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

ABAP 取汇率

(2012-07-26 22:41:56)
标签:

sap

abap

获取汇率

convert_to

local_currency

bapi_currency

杂谈

分类: Sap
DATAdate LIKE sy-datum            "获取汇率的时间,函数会取离指定时间前面最近维护的一个汇率
DATArate  LIKE vbrp-kursk         "要输出的汇率  最好参考一个有5位小数点的类型 不然精度会丢失
DATAcurr_ex LIKE bapicurr-bapicurr 
date sy-datum .
DATAfa LIKE vbrp-kursk          "要转换的金额 这里要求的是汇率 故1即可
      fc LIKE t001-waers          "外币
      lc LIKE t001-waers          "本币
      ty LIKE tcurr-kurst         "类型
fa 1      
fc 'JPY'  
lc 'CNY'  
ty 'M'   
date SY-DATUM   
curr_ex fa .

*"对于像JPY TWD 等 比人民币小的  不然出来的金额会扩大(一般是扩大100倍)
CALL FUNCTION 'BAPI_CURRENCY_CONV_TO_INTERNAL'
  EXPORTING
    currency             fc
    amount_external      curr_ex
    max_number_of_digits 13
  IMPORTING
    amount_internal      fa.

"获取汇率  
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     rate
  EXCEPTIONS
    no_rate_found    1
    OTHERS           2.

WRITE:rate.

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有