ABAP编程中,有个概念很重要,即Currency Converting Factor(货币转换因子)。可能很多ABAP初学者都不知道这是什么东西,这里我们就简单探讨下。
1. 什么是货币转换因子
在SAP中,货币是维护在TCURC表里面,这从Domain: WAERS中可以看到。
不过这里我们要介绍的是表TCURX,它维护了货币金额的小数位。比如JPY日元,在该表是0。正常的货币都是2位小数的。那么,该表有什么意义呢?我们来看下面的例子。
DATA: netwr TYPE p DECIMALS 2.
netwr = '1.3'.
WRITE: netwr CURRENCY 'JPY'.
netwr = '1.3'.
WRITE: netwr CURRENCY 'JPY'.
输出的结果是130,即1.3*100,我们说日元的转换因子为100。这是因为TCURX定义了日元没有小数位,那么数据库表的实际数字 1.3 就解释成了130。反过来就是,我们认为的130日元,在数据库里存储成了1.3。这个过程都是SAP自动处理的。
同理,小数位为1的,其转换因子为10;而RMB因为小数位为2,其转换因子为1,这也是系统的默认值。
2. 如何将CURR字段赋给DEC(P)字段
如果要将一个CURR字段赋值给类型为DEC(P)的字段,则要考虑货币转换因子的影响。当我们写与外系统集成的接口时,这就显得很有必要了。
这里介绍个函数:CURRENCY_CONVERTING_FACTOR,它可用于读取货币转换因子。
DATA: v LIKE vbap-netwr,
p TYPE p DECIMALS 2,
cur LIKE vbap-waerk,
factor TYPE p DECIMALS 3.
p TYPE p DECIMALS 2,
cur LIKE vbap-waerk,
factor TYPE p DECIMALS 3.
v = '1.3'.
cur = 'JPY'.
CALL FUNCTION 'CURRENCY_CONVERTING_FACTOR'
EXPORTING
currency = cur
IMPORTING
factor = factor
EXCEPTIONS
too_many_decimals = 1
OTHERS = 2.
IF sy-subrc <> 0.
factor = 1.
ENDIF.
p = v * factor.
WRITE: p.
这样,我们与外系统集成时,应该以p作为接口参数,130日元就不会错误地成了1.3日元。
3. ABAP编程中需要注意的地方
在编程中,我们对CURR字段要多加以注意,下面简单举几个应用例子。
(1) List中,当输出CURR字段时,记得指定对应的货币.
如: WRITE: vbap-netwr CURRENCY vbap-waerk.
(2) Screen中,对于CURR字段,需要设置对应的货币字段,
(3) ALV中,需要对FIELD CATALOG进行设置.
如: ls_cfieldname = 'WAERS'. "这里的WAERS是内表中的另一字段