SAP ABAP负号提前的解决方案

1、SE37定义函数：CONVERSION_EXIT_Z001_OUTPUT

FUNCTION conversion_exit_z001_output.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  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.

FUNCTION conversion_exit_z001_output.

*"----------------------------------------------------------------------

*"*"本地接口：

*" 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.

2、ALV的fieldcat中设置EDIT_MASK，当传值’==Z001′.时会自动调用此函数将负号提前。

发表评论 取消回复

发表评论取消回复