凡尘clsoho™的博客

E-mail & MSN: clsoho@hotmail.com
QQ1超级群: <101817641已满> QQ2群:<110722895已满>
QQ3超级群:<23765855>QQ4超级群:<85338969>

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.

实现的方法比较多,根据个人爱好选择就可以了。

posted on 2010-05-04 09:14  凡尘clsoho  阅读(4625)  评论(0编辑  收藏  举报