ABAP中将数值字段负号提前的方法

CONDENSE和CONCATENATE语句实现去空格和负号提前效果。

主程序代码：

1. REPORT  ZLXG_SIGN.
   
2. DATA:C_VALUE1 TYPE C LENGTH 10 VALUE '100-'.
   
3. DATA:C_VALUE2 TYPE C LENGTH 10 VALUE '  2  200-'.
   
4. DATA: CHAR_OUT1 TYPE C LENGTH 10.
   
5. DATA: CHAR_OUT2 TYPE C LENGTH 10.
   
6. WRITE:'原始数据'.
   
7. WRITE:/ 'C_VALUE1:',C_VALUE1,/ 'C_VALUE2:', C_VALUE2.
   
8. NEW-LINE.
   
9. WRITE:'负号提前，去除空格'.
   
10. PERFORM SIGN_CONVER
    
11.             USING
    
12.                C_VALUE1
    
13.             CHANGING
    
14.                CHAR_OUT1.
    
15. WRITE:/ 'C_VALUE1:',CHAR_OUT1.
    
16. 
    
17. PERFORM SIGN_CONVER
    
18.             USING
    
19.                C_VALUE2
    
20.             CHANGING
    
21.                CHAR_OUT2.
    
22. WRITE:/ 'C_VALUE1:',CHAR_OUT2.
    
23. 
    
24. *&---------------------------------------------------------------------*
    
25. *&      Form  SIGN_CONVER
    
26. *&---------------------------------------------------------------------*
    
27. *       text
    
28. *----------------------------------------------------------------------*
    
29. *  -->  p1        text
    
30. *  <--  p2        text
    
31. *----------------------------------------------------------------------*
    
32. FORM SIGN_CONVER USING CHAR_IN CHANGING CHAR_OUT .
    
33. DATA: CHAR_1 TYPE C LENGTH 10.
    
34. DATA: CHAR_2 TYPE C LENGTH 10.
    
35. SPLIT CHAR_IN AT '-' INTO CHAR_1 CHAR_2.
    
36. CONDENSE CHAR_1 NO-GAPS.
    
37. CONCATENATE '-' CHAR_1 INTO CHAR_OUT.
    
38. ENDFORM.                    " SIGN_CONVER

复制代码

程序执行效果：


负号提前SAP有标准函数可以调用的：

游客，如果您要查看本帖隐藏内容请回复

扩展阅读：ABAP报表中负值展示问题的处理方法

感謝無私分享，學習了

学习学习学习，

感谢分享~~~~

非常好想看看

谢谢分享~学习啦

非常好 想看看

看看是哪一個標準函數。 Thanks

有用 分享给同事了 谢谢

谢谢大神分享

call which bapi?
pls.

感谢楼主无私分享，前来学习

。。。。

thanks for you share

谢谢分享受益良多

很有帮助，谢谢谢谢

感谢分享。。。

感謝無私分享，學習了

学习啦，感谢楼主分享

thank for sharing~