ALV中的负数符号提前
rec_fieldcat-edit_mask = '==ZSIGN'.
上面的语句会在ALV执行中调用下面的Function,这个Function需要在SE37中手动建立。
CONVERSION_EXIT_ZSIGN_OUTPUT
下面是具体的代码。大家可以根据实际情况修改。
FUNCTION CONVERSION_EXIT_ZSIGN_OUTPUT.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(INPUT)
*" EXPORTING
*" REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
DATA: output3 type string .
DATA: output1(19) TYPE c,
output2(19),
outdatum TYPE p DECIMALS 2.
IF not input is initial.
outdatum = input.
IF input > 0.
WRITE outdatum TO output1 ."RIGHT-JUSTIFIED .
CONCATENATE ' ' output1 INTO output1.
ELSE.
outdatum = outdatum * ( -1 ).
WRITE outdatum TO output1 ."RIGHT-JUSTIFIED.
CONCATENATE '-' output1 INTO output1.
ENDIF.
ELSE.
* output = '0.00'.
CLEAR output1.
ENDIF.
CONDENSE output1 NO-GAPS .
WRITE output1 TO output2 RIGHT-JUSTIFIED .
output3 = output1.
output = output3.
ENDFUNCTION.
阅读(2038) | 评论(0) | 转发(0) |