SAP 中负号前移的问题
SAP负号的显示都是在数字的后面如23－这样来表示负数，和我们的习惯都不一样。如何让负数显示的时候负号在最前了？个人想到了一个简单的方法，不知道有没有更简单的。就是用字符显示数据，然后循环右移负号将其靠前显示。但是注意如果是ｐ类型的赋值给ｃ类型，后面会有＇.000＇。ｃ类型还会有空格存在，所以要注意清楚空格和后缀０.示例代码如下：*数量
l_amount = wa-erfmg.
*负号左移消除0
SHIFT l_amount up to '-' leftCIRCULAR .
SHIFT l_amount RIGHT DELETING TRAILING '.0'.
condense l_amount.
首先要让负号显示在最前，这里用的是左移直到出现负号，如果没有负号的话是不会移动的。去除掉末尾的0让其整数显示，然后在去除空格，这样就可以实现负号前移了。
系统也有标准函数来完成这个功能，CLOI_PUT_SIGN_IN_FRONT。
FUNCTION CLOI_PUT_SIGN_IN_FRONT.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"CHANGING
*" VALUE(VALUE) TYPECLIKE
*"----------------------------------------------------------------------
DATA: TEXT1(1) TYPE C.
SEARCH VALUE FOR '-'.
IF SY-SUBRC = 0 AND SY-FDPOS <> 0.
SPLIT VALUE AT '-' INTO VALUE TEXT1.
CONDENSE VALUE.
CONCATENATE '-' VALUE INTO VALUE.
ELSE.
CONDENSE VALUE.
ENDIF.
ENDFUNCTION.
这个函数也非常好懂，就是查找负号，找到后换个顺序就可以了。
参考：http://blog.iyunv.com/donkey2004112103/archive/2009/05/23/4210686.aspx
我经过测试，得到一种比较简单也比较实用的方法。将负号前移之后将金额字段加上千分位符。
先在内表中定义一个字符型字段dmbtrc length 16,再定义一个中间金额变量，为了不改变原内表中的值。.
在内表的LOOP中执行以下操作。
mid_dmbtr = wa-dmbtr.
IF mid_dmbtr < 0 .
mid_dmbtr = - mid_dmbtr.
WRITE mid_dmbtr TO wa_hkont-dmbtrc.
CONDENSE wa_hkont-dmbtrc.
CONCATENATE '-' wa_hkont-dmbtrc INTO wa_hkont-dmbtrc.
mid_dmbtr= - mid_dmbtr.
ELSE.
WRITE mid_dmbtr TO wa_hkont-dmbtrc.
ENDIF.
modify itab from wa index sy-tabix.
实现的方法比较多，根据个人爱好选择就可以了。
页:
[1]