CONVERSION

• 文章

  SAP ABAP负号提前的解决方案

  1、SE37定义函数：CONVERSION_EXIT_Z001_OUTPUT

  ABAP

  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.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

  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中设置ED…

  ag

  2018.06.20

  7.6K000