SAP动态树程序1

1、SAP动态树程序一 Author:SUNZK QQ:1131341075REPORT ZFIR_1027.INCLUDE ZFIR_1027_TOP.INCLUDE ZFIR_1027_CLS.INCLUDE ZFIR_1027_SEL.INCLUDE ZFIR_1027_O01.INCLUDE ZFIR_1027_I01.INCLUDE ZFIR_1027_F01.*&-*&  包含         

2、;       ZFIR_1026_TOP*&-*TYPE-POOLS:KKBLO .TABLES:T001,T012K,TCJ_POSITIONS ,ZFIT1011 , SSCRFIELDS,BKPF,ISELLIST,TCJ_DOCUMENTS.TYPES: BEGIN OF TY_TAB .        INCLUDE TYPE 

3、ZFIT1011 .TYPES: BANKA  TYPE  BNKA-BANKA ,       HBKID  TYPE  T012K-HBKID ,       BCJNR  TYPE  T012K-BCJNR,       Z

4、JLB   TYPE CHAR20 ,   "资金类别       KHHT   TYPE CHAR20 ,   "开户行描述       QCZHYE TYPE FDBL_DE_S ,"期初帐户余额 (2015-05-01)&#

5、160;      SRZJ_01 TYPE FDBL_DE_S , "运维收入       SRZJ_02 TYPE FDBL_DE_S , "咨询技术服务收入       SRZJ_03 TYPE FDBL_DE_S , "软件收入 &

6、#160;     SRZJ_04 TYPE FDBL_DE_S , "培训收入       SRZJ_05 TYPE FDBL_DE_S , "备用金收入       SRZJ_06 TYPE FDBL_DE_S , "其他收入  

7、60;    SRZJ_07 TYPE FDBL_DE_S , "运营资金昆明（收）       SRZJ_08 TYPE FDBL_DE_S , "运营资金上海（收）       SRZJ_09 TYPE FDBL_DE_S , "利息收入  &#

8、160;    SRZJ_10 TYPE FDBL_DE_S , "其他货币资金       SRZJ_11 TYPE FDBL_DE_S , "筹资收入       SRZJ_12 TYPE FDBL_DE_S , "借款    

9、;   SRZJ_13 TYPE FDBL_DE_S , "归还借款（收）       SRZJ_14 TYPE FDBL_DE_S , "提取差旅费（收）       SRZJ_15 TYPE FDBL_DE_S , "提取备用金（收）   

10、60;   SRZJ_16 TYPE FDBL_DE_S , "退款       SRZJ_17 TYPE FDBL_DE_S , "保证金       SRZJ_18 TYPE FDBL_DE_S , "一般户备用金     &

11、#160; SRZJ_19 TYPE FDBL_DE_S , "运营资金北京（收）       SRZJ_XJ TYPE FDBL_DE_S , "收入小计       ZCZJ_01 TYPE FDBL_DE_S ,"报销款       

12、ZCZJ_02 TYPE FDBL_DE_S ,"租房合同领导租房       ZCZJ_03 TYPE FDBL_DE_S ,"工资       ZCZJ_04 TYPE FDBL_DE_S ,"预借差旅费       ZCZJ_05 TYPE F

13、DBL_DE_S ,"预借报销款       ZCZJ_06 TYPE FDBL_DE_S ,"其他预借款       ZCZJ_07 TYPE FDBL_DE_S ,"合同付款       ZCZJ_08 TYPE FDBL_DE_S ,"培训费（

14、员工福利）       ZCZJ_09 TYPE FDBL_DE_S ,"培训费 （对公free）       ZCZJ_10 TYPE FDBL_DE_S ,"办公室装修费       ZCZJ_11 TYPE FDBL_DE_S ,"办公室房租 

15、      ZCZJ_12 TYPE FDBL_DE_S ,"转款手续费       ZCZJ_13 TYPE FDBL_DE_S ,"采购软件       ZCZJ_14 TYPE FDBL_DE_S ,"软件服务费     &

16、#160; ZCZJ_15 TYPE FDBL_DE_S ,"其他库存采购支出       ZCZJ_16 TYPE FDBL_DE_S ,"工资（代发）       ZCZJ_17 TYPE FDBL_DE_S ,"社保四险/医保险       ZCZJ_1

17、8 TYPE FDBL_DE_S ,"公积金       ZCZJ_19 TYPE FDBL_DE_S ,"残保金       ZCZJ_20 TYPE FDBL_DE_S ,"个人所得税       ZCZJ_21 TYPE FDBL_DE_S&#

18、160;,"工会经费       ZCZJ_22 TYPE FDBL_DE_S ,"社保代理/劳务派遣费       ZCZJ_23 TYPE FDBL_DE_S ,"差旅费       ZCZJ_24 TYPE FDBL_DE_S ,"机票款 &#

19、160;     ZCZJ_25 TYPE FDBL_DE_S ,"所得税（含汇算清缴）       ZCZJ_26 TYPE FDBL_DE_S ,"增值税       ZCZJ_27 TYPE FDBL_DE_S ,"附加税     &

20、#160; ZCZJ_28 TYPE FDBL_DE_S ,"印花税       ZCZJ_29 TYPE FDBL_DE_S ,"一般户备用金（机票款,支）       ZCZJ_30 TYPE FDBL_DE_S ,"租房预借款       ZCZJ_31

21、 TYPE FDBL_DE_S ,"车位租金       ZCZJ_32 TYPE FDBL_DE_S ,"电费（办公室）       ZCZJ_33 TYPE FDBL_DE_S ,"水费（办公室）       ZCZJ_34 TYPE FDBL_

22、DE_S ,"其他租赁费（办公室）       ZCZJ_35 TYPE FDBL_DE_S ,"采购固定资产       ZCZJ_36 TYPE FDBL_DE_S ,"保险费       ZCZJ_37 TYPE FDBL_DE_S ,"购办公

23、用品       ZCZJ_38 TYPE FDBL_DE_S ,"其他       ZCZJ_39 TYPE FDBL_DE_S ,"律师费       ZCZJ_40 TYPE FDBL_DE_S ,"运营资金上海（支）    

24、;   ZCZJ_41 TYPE FDBL_DE_S ,"运营资金昆明（支）       ZCZJ_42 TYPE FDBL_DE_S ,"支取备用金       ZCZJ_43 TYPE FDBL_DE_S ,"支取差旅费       Z

25、CZJ_44 TYPE FDBL_DE_S ,"其他服务费       ZCZJ_45 TYPE FDBL_DE_S ,"服务费（支）       ZCZJ_46 TYPE FDBL_DE_S ,"保证金       ZCZJ_47 TYPE FDB

26、L_DE_S ,"归还借款（支）       ZCZJ_48 TYPE FDBL_DE_S ,"奖金       ZCZJ_49 TYPE FDBL_DE_S ,"利息支出       ZCZJ_50 TYPE FDBL_DE_S ,"付支付宝备用金

27、       ZCZJ_51 TYPE FDBL_DE_S ,"运营资金-北京（支）       ZCZJ_XJ TYPE FDBL_DE_S ,"支出小计       QMYE    TYPE FDBL_DE_S ,"支出小计 

28、      ZHJ TYPE FDBL_DE_S ."合计TYPES: END OF TY_TAB .DATA:BEGIN OF GT_TCJ_POSITIONS OCCURS 0  .        INCLUDE TYPE TCJ_POSITIONS .DATA: TRANS

29、ACT_NAME TYPE TCJ_TRANS_NAMES-TRANSACT_NAME ,*      NUM TYPE CHAR4 ,*      ORT01 TYPE T001-ORT01 ,       HBKID TYPE   T012K-HBKID  

30、;,    "帐号*      FUNAC  TYPE  T012K-FUNAC ,    "资金性质*      FUNACT TYPE  ZFIE1002-FUNACT , "资金性质描述      ACA

31、TR  TYPE  T012K-ACATR ,    "资金类别明细      ACATRT TYPE  ZFIE1002-ACATRT , "账户性质描述*      TEXT1  TYPE  T012T-TEXT1 ,    

32、    "银行账户描述      BANKA  TYPE  BNKA-BANKA ,       "银行账户描述      CLASS TYPE CHAR20 .*      CSHYE  

33、TYPE  FAGL_BALANCE_LINE-DEBIT,*      QCYE   TYPE  FAGL_BALANCE_LINE-DEBIT,*      CSHRQ  TYPE  BKPF-BUDATDATA:END OF  GT_TCJ_POSITIONS   ."-SC100-*

34、0;    ALV实列DATA: GC_ALVGRID100    TYPE REF TO CL_GUI_ALV_GRID.*     客户容器DATA: GC_CCONTAINER100 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,      GO_TREE100  &

35、#160;    TYPE REF TO CL_GUI_COLUMN_TREE,      GV_CONT_100      TYPE        SCRFNAME VALUE 'ALV100',*     ALV字段设置 

36、0;    GT_FIELDCAT100   TYPE LVC_T_FCAT,      GS_FIELDCAT100   TYPE LVC_S_FCAT,*     ALV布局      GS_LAYOUT100     TYPE LVC_S_LA

37、YO,      GT_SORT100       TYPE LVC_T_SORT,      GS_SORT100       TYPE LVC_S_SORT,      GT_UIFUNCTION100 TYPE UI_FUNCTION

38、S.*-* DOI varibles*-*DATA: INITIALIZED(1),      SPLITTER   TYPE REF TO CL_GUI_SPLITTER_CONTAINER,      CONTAINER TYPE REF TO CL_GUI_CONTAINER,     

39、60;CONTROL     TYPE REF TO I_OI_CONTAINER_CONTROL,      DOCUMENT TYPE REF TO I_OI_DOCUMENT_PROXY,      FILENAME LIKE RLGRAP-FILENAME   ,   &

40、#160;  RETCODE TYPE SOI_RET_STRING,      SPREADSHEET TYPE REF TO I_OI_SPREADSHEET,      ERROR    TYPE REF TO I_OI_ERROR,      ERRORS

41、60;TYPE REF TO I_OI_ERROR OCCURS 0 WITH HEADER LINE,      APP TYPE VRM_ID,      BDS_INSTANCE TYPE REF TO CL_BDS_DOCUMENT_SET,      DOC_SIGNA

42、TURE TYPE SBDST_SIGNATURE,      WA_DOC_SIGNATURE LIKE LINE OF DOC_SIGNATURE,      DOC_COMPONENTS TYPE SBDST_COMPONENTS,      DOC_URIS TYPE SBDST_URI,  

43、;    WA_DOC_URIS LIKE LINE OF DOC_URIS,      EXCEL(80) VALUE 'Excel.Sheet',      RANGES TYPE SOI_RANGE_LIST,      RANGEITEM TYPE SOI

44、_RANGE_ITEM,      EXCEL_INPUT TYPE SOI_GENERIC_TABLE,      EXCEL_INPUT_WA TYPE SOI_GENERIC_ITEM,      TABLENAME(10),      OKCODE(15),    

45、60; ROW(4),      COLUMN(4),      DATA(39),      DOCUMENT_TYPE(80),      ITEM_URL(256).DATA:BEGIN OF GT_CULUMN OCCURS 0 ,NAME TYPE TV_ITMNAME

46、,TEXT TYPE TV_HEADING ,END OF GT_CULUMN .DATA:BEGIN OF GT_T012  OCCURS 0 .        INCLUDE TYPE   T012   .DATA: BANKA TYPE BNKA-BANKA .DATA:END

47、60;OF GT_T012  .DATA:BEGIN OF GT_SUB_ALV OCCURS 0 .        INCLUDE TYPE TCJ_POSITIONS .DATA: END OF GT_SUB_ALV .DATA: BEGIN OF IT_TAB  OCCURS 0,  

48、;     FLAG(1),       AREANO(5) TYPE N ,       TABCONTENT TYPE ZTAB_EXCEL ,      END OF IT_TAB.DATA:  BEGIN OF ITAB&

49、#160;OCCURS 0.        INCLUDE STRUCTURE ALSMEX_TABLINE.DATA:  END OF ITAB.RANGES:R_BUKRS FOR T001-BUKRS .DATA:GV_FLAG  TYPE C ,     EV_REGCT TYPE  ZFI

50、NODID,     GV_NUM   TYPE CHAR3  ,     G_VALUE TYPE STRING .DATA:GT_HIERARCHY TYPE SOI_HIERARCHY_TABLE.DATA:GT_T001     TYPE T001 OCCURS 0 WITH HE

51、ADER LINE ,     GT_T012K    TYPE TABLE OF T012K WITH HEADER LINE ,     GT_ZFIE1002 TYPE TABLE OF  ZFIE1002 WITH HEADER LINE .TYPES:TT_DEMO_I

52、TEM  TYPE STANDARD TABLE OF DEMO_ITEM,      TT_ZFIT1011   TYPE STANDARD TABLE OF ZFIT1011,      TT_TAB        TYPE STANDARD T

53、ABLE OF TY_TAB ,      TY_DEMO_ITEM  TYPE DEMO_ITEM,      TY_ZFIT1011   TYPE ZFIT1011.DATA:GT_NODE_TAB   TYPE TREEV_NTAB,     GT_ITEM_TAB 

54、60; TYPE STANDARD TABLE OF DEMO_ITEM,     GT_ZFIT1011   TYPE TABLE OF ZFIT1011,     GT_TAB        TYPE  TT_TAB ,    

55、0;WT_TAB        TYPE  TT_TAB ,     GS_TAB        TYPE  TY_TAB,     WS_TAB        TYPE  TY_TAB&#

56、160;.FIELD-SYMBOLS:<ZFIT1011> TYPE ZFIT1011.DATA:GT_TCJ_DOCUMENTS    TYPE TCJ_DOCUMENTS OCCURS 0 WITH HEADER LINE,     GT_TCJ_TRANSACTIONS TYPE TCJ_TRANSACTIONS OCCURS 0 WITH HEAD

57、ER LINE ,     GT_TCJ_TRANS_NAMES  TYPE TCJ_TRANS_NAMES OCCURS 0 WITH HEADER LINE ,     GT_BNKA             TYPE BNKA OCC

58、URS 0 WITH HEADER LINE  .*-*            ALV related*-*DATA: GT_SUB_FIELDCAT TYPE LVC_T_FCAT.DATA: GT_FIELDCAT TYPE LVC_T_FCAT,      IT_FIELDCAT&#

59、160;TYPE LVC_T_FCAT,      IS_FIELDCAT TYPE LVC_S_FCAT,      IT_EVENTS    TYPE  SLIS_T_EVENT WITH HEADER LINE,      IT_SUB_EVENTS   

60、0;TYPE  SLIS_T_EVENT WITH HEADER LINE,      GS_LAYOUT    TYPE  LVC_S_LAYO,      IT_SORT      TYPE  SLIS_T_SORTINFO_ALV,    &#

61、160; IT_PRINT     TYPE  SLIS_PRINT_ALV,      G_GRID TYPE REF TO CL_GUI_ALV_GRID.DATA: G_REPID        LIKE SY-REPID,      GT_LAYOUT

62、_ALV  TYPE LVC_S_LAYO.DATA: WA_SORT        TYPE SLIS_SORTINFO_ALV,      GT_SORT        TYPE LVC_T_SORT,      GS_T012K  &

63、#160;    TYPE T012K.DATA: LR_GRID        TYPE REF TO CL_GUI_ALV_GRID.DATA: G_LAYOUT      TYPE SLIS_LAYOUT_ALV,      TITLE    

64、TYPE LVC_TITLE,      IVARIANT LIKE DISVARIANT.DATA FNAME(20).*-* FIELD symbols*-*FIELD-SYMBOLS: <FIELD> TYPE ANY,               <FIELD1>&#

65、160;TYPE ANY .FIELD-SYMBOLS: <FS> LIKE GT_TCJ_POSITIONS.FIELD-SYMBOLS:<FS_TAB> TYPE TY_TAB .*&-*&  包含                ZFIR_1026_CLS*&-*-* 

66、0; INCLUDE BCALV_TOOLBAR_EVENT_RECEIVER                               *-*CLASS LCL_EVENT_RECEIVER DEFINITION.  PUBL

67、IC SECTION.    METHODS:          CONSTRUCTOR IMPORTING HANDLE TYPE REF TO CL_GUI_COLUMN_TREE                 &

68、#160;          CB_NODE_DOUBLE_CLICK TYPE RS38L_FNAM,      HANDLE_ITEM_DOUBLE_CLICK FOR EVENT ITEM_DOUBLE_CLICK              &

69、#160;              OF CL_GUI_COLUMN_TREE                             IMPORTING&#

70、160;NODE_KEY ITEM_NAME.  PRIVATE SECTION.    DATA: TREE_HANDLE TYPE REF TO CL_GUI_COLUMN_TREE.    DATA: TREE_CB_NODE_DOUBLE_CLICK TYPE RS38L_FNAM.ENDCLASS.       

71、60;            "lcl_toolbar_event_receiver DEFINITION*-*       CLASS LCL_EVENT_RECEIVER IMPLEMENTATION*-*-*CLASS  LCL_EVENT_RECEIVER  IMPLEMENTATION . 

72、0;METHOD CONSTRUCTOR.    TREE_HANDLE = HANDLE.    TREE_CB_NODE_DOUBLE_CLICK = CB_NODE_DOUBLE_CLICK.  ENDMETHOD.                   

73、 "constructor  METHOD HANDLE_ITEM_DOUBLE_CLICK.    DATA:LV_NODID TYPE ZFINODID .    DATA:LV_ITEM_NAME TYPE NAME1 .    DATA:LS_TCJ_POSITIONS LIKE LINE OF GT_TCJ_POSIT

74、IONS .    DATA:LS_SUB_ALV LIKE LINE OF GT_SUB_ALV .    DATA:LV_1 TYPE STRING ,         LV_2 TYPE STRING ,        &#

75、160;LV_3 TYPE STRING ,         LV_4 TYPE STRING .*    BREAK AB_LUOFY.    CLEAR :LV_NODID,LV_ITEM_NAME.    LV_NODID = NODE_KEY  . &

76、#160;  LV_ITEM_NAME = ITEM_NAME  .    READ TABLE GT_TAB WITH KEY NODID = LV_NODID TRANSPORTING NO FIELDS.    IF SY-SUBRC = 0.      CLEA

77、R: GT_SUB_ALV ,GS_TAB.      REFRESH:WT_TAB ,GT_SUB_ALV.      PERFORM FRM_GET_CLICK_DATA USING LV_NODID   .  "  使用递归找寻下级数据      LOOP AT&

78、#160;WT_TAB INTO GS_TAB .        LOOP AT GT_TCJ_POSITIONS INTO LS_TCJ_POSITIONS  WHERE  COMP_CODE  = GS_TAB-BUKRS   "公司代码        &

79、#160;                                                 &

80、#160;AND HBKID       = GS_TAB-HBKID  "银行CODE                                

81、0;                          AND CAJO_NUMBER =  GS_TAB-BCJNR   .  "银行描述        &#

82、160; IF GS_TAB-RCFLG = 'X'.            CHECK  LS_TCJ_POSITIONS-NODID  IS NOT INITIAL .          ELSE.    &#

83、160;       CHECK  LS_TCJ_POSITIONS-NODID  IS   INITIAL .          ENDIF.          IF LV_ITEM_NAME = 'ZHJ&#

84、39; OR LV_ITEM_NAME = 'NODID'.  "合计项不做限制          ELSE.            SPLIT LV_ITEM_NAME AT '_'  INTO LV_1 

85、LV_2 .  "分割出资金类别，资金类别明细            SPLIT LS_TCJ_POSITIONS-CLASS AT '_'  INTO LV_3 LV_4 .  "分割出资金类别，资金类别明细        

86、0;   CONDENSE:LV_1,LV_2,LV_3,LV_4 NO-GAPS .            CHECK LV_1 = LV_3 .  "检查出资金类别            IF LV_2 = 

87、;'XJ' .            ELSE.              CHECK LV_2 = LV_4 .            ENDIF.&#

88、160;         ENDIF.          GS_TAB-NODID = LS_TCJ_POSITIONS-NODID .  "区域中心标识.          MOVE-CORRESPONDING LS_TCJ_POSITI

89、ONS TO   LS_SUB_ALV .          APPEND LS_SUB_ALV  TO GT_SUB_ALV .          CLEAR  LS_SUB_ALV.        

90、;ENDLOOP.      ENDLOOP.      SORT GT_SUB_ALV BY COMP_CODE CAJO_NUMBER FISC_YEAR POSTING_NUMBER POSITION_NUMBER.      DELETE ADJACENT DUPLICATES FROM GT_SUB

91、_ALV COMPARING COMP_CODE CAJO_NUMBER FISC_YEAR POSTING_NUMBER POSITION_NUMBER.      IF  GT_SUB_ALV IS NOT INITIAL.        PERFORM FRM_SUB_FIELDCAT .   

92、;     PERFORM FRM_SUB_EVENTS .        PERFORM FRM_SUB_ALV .      ENDIF.    ENDIF.  ENDMETHOD.          &#

93、160;         "handle_item_double_clickENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATIONDATA:GO_APPLICATION TYPE REF&

94、#160;TO LCL_EVENT_RECEIVER.*-*  ->  p1        参数:1 列  2 行  3 值*  <-  p2        作用:填充excel*-*DEFINE HFILL-CELL.  ITAB-CO

95、L = &1.  ITAB-ROW = &2.  IF &4 = 'X'.    IF  &3 < 0 .      CLEAR G_VALUE.      G_VALUE = ABS( 

96、;&3 ).      CONCATENATE  '-'  G_VALUE INTO G_VALUE .      CONDENSE G_VALUE NO-GAPS .      MOVE G_VALUE TO ITAB-VALUE.  

97、;  ELSE.      MOVE &3 TO ITAB-VALUE.    ENDIF.  ELSE.    MOVE &3 TO ITAB-VALUE.  ENDIF.  APPEND ITAB. CLEAR ITAB.END-OF-DEFINITION.*&

98、-*&  包含                ZFIR_1026_SEL*&-*SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE K1.SELECT-OPTIONS: S_BUKRS  FOR BKPF-BUKRS 

99、OBLIGATORY,                S_BUDAT  FOR ISELLIST-BDATE DEFAULT SY-DATUM OBLIGATORY NO INTERVALS NO-EXTENSION.SELECTION-SCREEN END OF BLOCK BLK1.START-OF-SE

100、LECTION.  REFRESH GT_T012K.  EV_REGCT = 'GI' .  SELECT * INTO TABLE GT_ZFIT1011 FROM ZFIT1011 WHERE BUKRS IN S_BUKRS            

101、0;                                    OR   NODID = 'GI'.  IF S_BUKRS

102、0;IS NOT INITIAL.    LOOP AT GT_ZFIT1011 ASSIGNING <ZFIT1011> WHERE BUKRS IS INITIAL.      <ZFIT1011>-DWNOD = S_BUKRS-LOW.    ENDLOOP.  ENDIF. 

103、 IF GT_ZFIT1011 IS INITIAL .    MESSAGE  '请先维护资金层次维护表：ZFIT1011' TYPE 'S'  DISPLAY LIKE 'E' .    LEAVE LIST-PROCESSING .  ENDIF.*->权限检查 

104、60;AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'  ID 'BUKRS' FIELD S_BUKRS-LOW.  IF SY-SUBRC <> 0.    MESSAGE S055(ZFI) DISPLAY LIKE 'E'.    EXIT.  EN

105、DIF.  CALL SCREEN 100.*&-*&  包含                ZFIR_1026_O01*&-*&-*&      Module  STATUS_0100  OUTPUT*&-*  

106、;     text*-*MODULE STATUS_0100 OUTPUT.*  SET PF-STATUS '0100'.*  SET TITLEBAR  '0100'.  PERFORM FRM_BUILT_ALV_100.ENDMODULE.          

107、0;      " STATUS_0100  OUTPUT*&-*&      Module  STATUS_0200  OUTPUT*&-*       text*-*MODULE STATUS_0200 OUTPUT.*  SET PF-STATUS&

108、#160;'xxxxxxxx'.*  SET TITLEBAR 'xxx'.  DATA: L_TOP TYPE I, L_LAST TYPE I.  DATA:INDICATOR(100) TYPE C VALUE '正在写入，请等待.'.  SET PF-STATUS 'EXCEL_PF'. 

109、0;PERFORM FRM_CREATE_BASIC_OBJECT.  PERFORM PROGRESS_INDICATOR  USING INDICATOR.  LOOP AT IT_TAB  .    ITAB = IT_TAB-TABCONTENT.    PERFORM FRM_SET_CELL.  ENDLOOP. &

110、#160;PERFORM FRM_SET_GROUP CHANGING GT_HIERARCHY.* *高度宽度自适应5  CALL METHOD DOCUMENT->EXECUTE_MACRO    EXPORTING      MACRO_STRING = 'module.Macro1'.ENDMODULE.     &#

111、160;           " STATUS_0200  OUTPUT*&-*&  包含                ZFIR_1026_I01*&-*&-*&     

112、60;Module  USER_COMMAND_0100  INPUT*&-*       text*-*MODULE USER_COMMAND_0100 INPUT.  CASE SY-UCOMM.    WHEN '&F03' .      LEAVE TO SC

113、REEN 0.    WHEN  '&F15' OR'&F12'   .      LEAVE PROGRAM.    WHEN 'EXPORT' .      PERFORM FRM_EXCEL_OUTPUT .&

114、#160;   WHEN OTHERS.  ENDCASE.  CALL METHOD CL_GUI_CFW=>FLUSH.  CLEAR :SY-UCOMM.ENDMODULE.                 " USER_COMMAND_0100  

115、;INPUT*&-*&      Module  USER_COMMAND_0200  INPUT*&-*       text*-*MODULE USER_COMMAND_0200 INPUT.  CASE SY-UCOMM.    WHEN 'BACK'.  

116、60;   CALL METHOD CL_GUI_CFW=>FLUSH.      CALL METHOD CL_GUI_CFW=>DISPATCH.      FREE: CONTROL,DOCUMENT,ERROR,BDS_INSTANCE,SPREADSHEET.      REFRESH: DOC_COMPONENTS, DOC_URIS,DOC_SIGNATURE.      CLEAR:INITIALIZED.      CALL METHOD CONTAINER->FREE.      CALL ME