ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 将RMB转换成KUSD

将RMB转换成KUSD

原创 Linux操作系统 作者:vivike 时间:2011-07-01 11:32:47 0 删除 编辑
最近在做一个case,里面的item单位是已经定义好了的,其中有个单位定义为KUSD,而我们的key figure是没有单位,也没有币别栏位的,纯粹一数字,而我从系统得到的数据却是以RMB为单位的数据,因此,需要将RMB首先转换为USD,然后就简单了;
RMB转换为USD code 如下:
 
  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L4S52 { color: #0000FF; } TABLES:TCURR.
 
  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L4S31 { font-style. italic; color: #808080; } .L4S32 { color: #3399FF; } .L4S33 { color: #4DA619; } .L4S52 { color: #0000FF; } DATA:l_day like sy-datum.
DATA:l_date like tcurr-GDATU.
DATA:l_rate LIKE tcurr-UKURS.
data chdat(8type c.
data chdat2(8type c.

*BREAK-POINT.
CONCATENATE SOURCE_FIELDS-CALMONTH '01' INTO l_day.

CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL'
  EXPORTING
    date_external            = l_day
  IMPORTING
    date_internal            = l_date
  EXCEPTIONS
    date_external_is_invalid = 1.
MOVE l_date TO chdat.
chdat2 = '99999999' - chdat.

select UKURS FROM tcurr INTO l_rate
  WHERE GDATU = chdat2 and FCURR = 'RMB' AND KURST = 'M' AND TCURR =
  'USD'.
ENDSELECT.

     RESULT = -1 * SOURCE_FIELDS-AMOUNT / l_rate / 1000 .

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

上一篇: Modify
下一篇: Routine in DTP Filter
请登录后发表评论 登录
全部评论

注册时间:2010-06-01

  • 博文量
    37
  • 访问量
    89701