SAP负号的显示都是在数字的后面如23-这样来表示负数,和我们的习惯都不一样。如何让负数显示的时候负号在最前了?个人想到了一个简单的方法,不知道有没有更简单的。就是用字符显示数据,然后循环右移负号将其靠前显示。但是注意如果是p类型的赋值给c类型,后面会有'.000'。c类型还会有空格存在,所以要注意清楚空格和后缀0.示例代码如下:
*数量
l_amount = wa-erfmg.
*负号左移消除0
SHIFT l_amount up to '-' left CIRCULAR .
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) TYPE CLIKE
*"----------------------------------------------------------------------
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.csdn.net/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.
实现的方法比较多,根据个人爱好选择就可以了。