据说是Jack Wu的自定义函数!烂
生活随笔
收集整理的這篇文章主要介紹了
据说是Jack Wu的自定义函数!烂
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
Jack Wu的自定義函數!
1、建立自定義函數
1.1 整數顯示
FUNCTION CONVERSION_EXIT_Z0002_OUTPUT.
*"----------------------------------------------------------------------
*"*"Local interface:
*"??IMPORTING
*"? ???REFERENCE(INPUT)
*"??EXPORTING
*"? ???REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
??DATA: OUTPUT1(12)? ?TYPE C,
? ?? ???OUTDATUM? ?TYPE INT4.
??IF INPUT <> SPACE.
? ? OUTDATUM = INPUT.
? ? if input > 0.
? ?? ?move OUTDATUM TO OUTPUT .
? ? else.
? ?? ?OUTDATUM = OUTDATUM * ( -1 ).
? ?? ?move OUTDATUM TO OUTPUT1 .
? ?? ?CONCATENATE '-' output1 into output.
? ?? ?CONDENSE output NO-GAPS .
? ? endif.
??ELSE.
? ? OUTPUT = SPACE.
??ENDIF.
ENDFUNCTION.
1.2 浮點數顯示
FUNCTION conversion_exit_zsign_output.
*"----------------------------------------------------------------------
*"*"Local interface:
*"??IMPORTING
*"? ???REFERENCE(INPUT)
*"??EXPORTING
*"? ???REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
??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 .
??output = output2.
ENDFUNCTION.
2、設置ALV輸出格式字段格式
??clear ls_fcat.
??ls_fcat-fieldname = 'INT4'.
??ls_fcat-inttype? ?= 'I'.
??ls_fcat-intlen? ? = 10.
??ls_fcat-col_pos? ?= l_lin.
??ls_fcat-seltext_s = ls_fcat-fieldname.
??ls_fcat-seltext_m = ls_fcat-fieldname.
??ls_fcat-seltext_l = ls_fcat-fieldname.
??ls_fcat-edit_mask = '==Z0002'.
??append ls_fcat to ct_fcat.
3、調用函數就可達到負數符號前顯的效果。
??call function 'REUSE_ALV_GRID_DISPLAY'
? ? exporting
? ?? ?it_fieldcat? ?? ?? ?? ?? ?? ?? ???= lt_fcat
? ? tables
? ?? ?t_outtab? ?? ?? ?? ?? ?? ?? ?? ???= gt_outtab
? ? exceptions
? ?? ?program_error? ?? ?? ?? ?? ?? ?? ?= 1
? ?? ?others? ?? ?? ?? ?? ?? ?? ?? ?? ? = 2.
1、建立自定義函數
1.1 整數顯示
FUNCTION CONVERSION_EXIT_Z0002_OUTPUT.
*"----------------------------------------------------------------------
*"*"Local interface:
*"??IMPORTING
*"? ???REFERENCE(INPUT)
*"??EXPORTING
*"? ???REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
??DATA: OUTPUT1(12)? ?TYPE C,
? ?? ???OUTDATUM? ?TYPE INT4.
??IF INPUT <> SPACE.
? ? OUTDATUM = INPUT.
? ? if input > 0.
? ?? ?move OUTDATUM TO OUTPUT .
? ? else.
? ?? ?OUTDATUM = OUTDATUM * ( -1 ).
? ?? ?move OUTDATUM TO OUTPUT1 .
? ?? ?CONCATENATE '-' output1 into output.
? ?? ?CONDENSE output NO-GAPS .
? ? endif.
??ELSE.
? ? OUTPUT = SPACE.
??ENDIF.
ENDFUNCTION.
1.2 浮點數顯示
FUNCTION conversion_exit_zsign_output.
*"----------------------------------------------------------------------
*"*"Local interface:
*"??IMPORTING
*"? ???REFERENCE(INPUT)
*"??EXPORTING
*"? ???REFERENCE(OUTPUT)
*"----------------------------------------------------------------------
??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 .
??output = output2.
ENDFUNCTION.
2、設置ALV輸出格式字段格式
??clear ls_fcat.
??ls_fcat-fieldname = 'INT4'.
??ls_fcat-inttype? ?= 'I'.
??ls_fcat-intlen? ? = 10.
??ls_fcat-col_pos? ?= l_lin.
??ls_fcat-seltext_s = ls_fcat-fieldname.
??ls_fcat-seltext_m = ls_fcat-fieldname.
??ls_fcat-seltext_l = ls_fcat-fieldname.
??ls_fcat-edit_mask = '==Z0002'.
??append ls_fcat to ct_fcat.
3、調用函數就可達到負數符號前顯的效果。
??call function 'REUSE_ALV_GRID_DISPLAY'
? ? exporting
? ?? ?it_fieldcat? ?? ?? ?? ?? ?? ?? ???= lt_fcat
? ? tables
? ?? ?t_outtab? ?? ?? ?? ?? ?? ?? ?? ???= gt_outtab
? ? exceptions
? ?? ?program_error? ?? ?? ?? ?? ?? ?? ?= 1
? ?? ?others? ?? ?? ?? ?? ?? ?? ?? ?? ? = 2.
總結
以上是生活随笔為你收集整理的据说是Jack Wu的自定义函数!烂的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 新会计科目的编号及内容
- 下一篇: 调试Excel VBA代码