ABAP 负号提前
发布时间 2023-05-24 11:55:12作者: 楚怼像
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" REFERENCE(INPUT)
*" EXPORTING
*" REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
*作用：
* 1.将金额类型等数字类型，负号实现前置；
* 2.可以保留千分位;
* 3.适用于多个这样的字段修改需求;
*调用方式：
* 在对应的alv设置fieldcat时针对设置金额等数字类型的字段添加代码：固定写成’ZXXX’形式。
* WE_FIELDCAT-EDIT_MASK = '==Z001'.
DATA: output1(20),
output2(20),
outnum(16) TYPE p DECIMALS 3.
IF input IS NOT INITIAL .
outnum = input.
IF input > 0.
WRITE outnum TO output1.
ELSE.
outnum = outnum * ( -1 ).
WRITE outnum TO output1.
CONCATENATE '-' output1 INTO output1.
ENDIF.
ELSE.
CLEAR output1.
ENDIF.
CONDENSE output1 NO-GAPS.
WRITE output1 TO output2 RIGHT-JUSTIFIED.
output = output2.
CLEAR: output2.
ENDFUNCTION.