SAP 中负号前移的问题

最新推荐文章于 2023-06-07 09:18:28 发布

weixin_30915275

最新推荐文章于 2023-06-07 09:18:28 发布

阅读量379

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/clsoho/archive/2010/05/04/1726941.html

本文介绍了一种在SAP系统中使负号显示在数值前面的方法，通过字符显示数据并循环右移负号使其靠前显示。此外，还提供了一个标准函数CLOI_PUT_SIGN_IN_FRONT来实现这一功能，并给出了具体的示例代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

SAP负号的显示都是在数字的后面如23－这样来表示负数，和我们的习惯都不一样。如何让负数显示的时候负号在最前了？个人想到了一个简单的方法，不知道有没有更简单的。就是用字符显示数据，然后循环右移负号将其靠前显示。但是注意如果是ｐ类型的赋值给ｃ类型，后面会有＇.000＇。ｃ类型还会有空格存在，所以要注意清楚空格和后缀０.示例代码如下：

*数量
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.youkuaiyun.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.

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

转载于:https://www.cnblogs.com/clsoho/archive/2010/05/04/1726941.html