SAP动态树程序DialogALV报表

1、SAP动态树程序Dialog ALV报表-Author：SUNZK QQ：1131341075 微信：DreamSunlight88REPORT 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 .       

3、; INCLUDE TYPE ZFIT1011 .TYPES: BANKA  TYPE  BNKA-BANKA ,       HBKID  TYPE  T012K-HBKID ,       BCJNR  TYPE  T012K-BCJNR,  &

4、#160;    ZJLB   TYPE CHAR20 ,   "资金类别       KHHT   TYPE CHAR20 ,   "开户行描述       QCZHYE TYPE FDBL_DE_S ,&q

5、uot;期初帐户余额 (2015-05-01)       SRZJ_01 TYPE FDBL_DE_S , "运维收入       SRZJ_02 TYPE FDBL_DE_S , "咨询技术服务收入       SRZJ_03 TYPE FDBL_DE_S

6、 , "软件收入       SRZJ_04 TYPE FDBL_DE_S , "培训收入       SRZJ_05 TYPE FDBL_DE_S , "备用金收入       SRZJ_06 TYPE FDBL_DE_S ,&

7、#160;"其他收入       SRZJ_07 TYPE FDBL_DE_S , "运营资金昆明（收）       SRZJ_08 TYPE FDBL_DE_S , "运营资金上海（收）       SRZJ_09 TYPE FDBL_DE_S ,

8、 "利息收入       SRZJ_10 TYPE FDBL_DE_S , "其他货币资金       SRZJ_11 TYPE FDBL_DE_S , "筹资收入       SRZJ_12 TYPE FDBL_DE_S , &

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

10、;提取备用金（收）       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 ,"预借差旅费      

13、 ZCZJ_05 TYPE FDBL_DE_S ,"预借报销款       ZCZJ_06 TYPE FDBL_DE_S ,"其他预借款       ZCZJ_07 TYPE FDBL_DE_S ,"合同付款       ZCZJ_08 TYPE&#

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

15、L_DE_S ,"办公室房租       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 ,"社保四险/医保险   

17、    ZCZJ_18 TYPE FDBL_DE_S ,"公积金       ZCZJ_19 TYPE FDBL_DE_S ,"残保金       ZCZJ_20 TYPE FDBL_DE_S ,"个人所得税       ZCZJ

18、_21 TYPE FDBL_DE_S ,"工会经费       ZCZJ_22 TYPE FDBL_DE_S ,"社保代理/劳务派遣费       ZCZJ_23 TYPE FDBL_DE_S ,"差旅费       ZCZJ_24 TYPE FDB

19、L_DE_S ,"机票款       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 ,"租房预借款   &

21、#160;   ZCZJ_31 TYPE FDBL_DE_S ,"车位租金       ZCZJ_32 TYPE FDBL_DE_S ,"电费（办公室）       ZCZJ_33 TYPE FDBL_DE_S ,"水费（办公室）      

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

23、#160;FDBL_DE_S ,"购办公用品       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 ,"支取差旅费  &

25、#160;    ZCZJ_44 TYPE FDBL_DE_S ,"其他服务费       ZCZJ_45 TYPE FDBL_DE_S ,"服务费（支）       ZCZJ_46 TYPE FDBL_DE_S ,"保证金      &#

26、160;ZCZJ_47 TYPE FDBL_DE_S ,"归还借款（支）       ZCZJ_48 TYPE FDBL_DE_S ,"奖金       ZCZJ_49 TYPE FDBL_DE_S ,"利息支出       ZCZJ_50 TYPE 

27、;FDBL_DE_S ,"付支付宝备用金       ZCZJ_51 TYPE FDBL_DE_S ,"运营资金-北京（支）       ZCZJ_XJ TYPE FDBL_DE_S ,"支出小计       QMYE    TYPE FD

28、BL_DE_S ,"支出小计       ZHJ TYPE FDBL_DE_S ."合计TYPES: END OF TY_TAB .DATA:BEGIN OF GT_TCJ_POSITIONS OCCURS 0  .        INCLUDE TYPE TCJ_PO

29、SITIONS .DATA: TRANSACT_NAME TYPE TCJ_TRANS_NAMES-TRANSACT_NAME ,*      NUM TYPE CHAR4 ,*      ORT01 TYPE T001-ORT01 ,       HBKID TYPE 

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

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

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

33、;  CSHYE  TYPE  FAGL_BALANCE_LINE-DEBIT,*      QCYE   TYPE  FAGL_BALANCE_LINE-DEBIT,*      CSHRQ  TYPE  BKPF-BUDATDATA:END OF  GT_TCJ_POSITIONS &

34、#160; ."-SC100-*     ALV实列DATA: GC_ALVGRID100    TYPE REF TO CL_GUI_ALV_GRID.*     客户容器DATA: GC_CCONTAINER100 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,     

35、; GO_TREE100       TYPE REF TO CL_GUI_COLUMN_TREE,      GV_CONT_100      TYPE        SCRFNAME VALUE 'ALV100',*   

36、;  ALV字段设置      GT_FIELDCAT100   TYPE LVC_T_FCAT,      GS_FIELDCAT100   TYPE LVC_S_FCAT,*     ALV布局      GS_LAYOUT100   

37、  TYPE LVC_S_LAYO,      GT_SORT100       TYPE LVC_T_SORT,      GS_SORT100       TYPE LVC_S_SORT,      GT_UIFUNCTION

38、100 TYPE UI_FUNCTIONS.*-* 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,  

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

42、60;   DOC_SIGNATURE TYPE SBDST_SIGNATURE,      WA_DOC_SIGNATURE LIKE LINE OF DOC_SIGNATURE,      DOC_COMPONENTS TYPE SBDST_COMPONENTS,      DOC_URIS T

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

44、0;RANGEITEM TYPE SOI_RANGE_ITEM,      EXCEL_INPUT TYPE SOI_GENERIC_TABLE,      EXCEL_INPUT_WA TYPE SOI_GENERIC_ITEM,      TABLENAME(10),      OKCODE(1

45、5),      ROW(4),      COLUMN(4),      DATA(39),      DOCUMENT_TYPE(80),      ITEM_URL(256).DATA:BEGIN OF GT_CULUMN OCCURS 0 ,

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

47、0;BNKA-BANKA .DATA:END 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 &

48、#160;OCCURS 0,       FLAG(1),       AREANO(5) TYPE N ,       TABCONTENT TYPE ZTAB_EXCEL ,      END OF IT_TAB.DATA: 

49、 BEGIN OF ITAB OCCURS 0.        INCLUDE STRUCTURE ALSMEX_TABLINE.DATA:  END OF ITAB.RANGES:R_BUKRS FOR T001-BUKRS .DATA:GV_FLAG  TYPE C ,     EV_

50、REGCT TYPE  ZFINODID,     GV_NUM   TYPE CHAR3  ,     G_VALUE TYPE STRING .DATA:GT_HIERARCHY TYPE SOI_HIERARCHY_TABLE.DATA:GT_T001     TYPE T001 O

51、CCURS 0 WITH HEADER LINE ,     GT_T012K    TYPE TABLE OF T012K WITH HEADER LINE ,     GT_ZFIE1002 TYPE TABLE OF  ZFIE1002 WITH HEADER&#

52、160;LINE .TYPES:TT_DEMO_ITEM  TYPE STANDARD TABLE OF DEMO_ITEM,      TT_ZFIT1011   TYPE STANDARD TABLE OF ZFIT1011,      TT_TAB       &

53、#160;TYPE STANDARD TABLE OF TY_TAB ,      TY_DEMO_ITEM  TYPE DEMO_ITEM,      TY_ZFIT1011   TYPE ZFIT1011.DATA:GT_NODE_TAB   TYPE TREEV_NTAB,   &#

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

55、;,     WT_TAB        TYPE  TT_TAB ,     GS_TAB        TYPE  TY_TAB,     WS_TAB       

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

57、URS 0 WITH HEADER LINE ,     GT_TCJ_TRANS_NAMES  TYPE TCJ_TRANS_NAMES OCCURS 0 WITH HEADER LINE ,     GT_BNKA            

58、; TYPE BNKA OCCURS 0 WITH HEADER LINE  .*-*            ALV related*-*DATA: GT_SUB_FIELDCAT TYPE LVC_T_FCAT.DATA: GT_FIELDCAT TYPE LVC_T_FCAT,   &

59、#160;  IT_FIELDCAT TYPE LVC_T_FCAT,      IS_FIELDCAT TYPE LVC_S_FCAT,      IT_EVENTS    TYPE  SLIS_T_EVENT WITH HEADER LINE,      IT_SU

60、B_EVENTS    TYPE  SLIS_T_EVENT WITH HEADER LINE,      GS_LAYOUT    TYPE  LVC_S_LAYO,      IT_SORT      TYPE  SLIS_T_SORTINFO_

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

62、60;   GT_LAYOUT_ALV  TYPE LVC_S_LAYO.DATA: WA_SORT        TYPE SLIS_SORTINFO_ALV,      GT_SORT        TYPE LVC_T_SORT,    

63、60; GS_T012K       TYPE T012K.DATA: LR_GRID        TYPE REF TO CL_GUI_ALV_GRID.DATA: G_LAYOUT      TYPE SLIS_LAYOUT_ALV,      

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

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

66、R_1026_CLS*&-*-*   INCLUDE BCALV_TOOLBAR_EVENT_RECEIVER                               *-*CLASS LCL_EVENT_RECEIVER

67、60;DEFINITION.  PUBLIC 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                          

70、;   IMPORTING 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  I

72、MPLEMENTATION .  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 

74、LINE OF GT_TCJ_POSITIONS .    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 =

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

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

78、#160;  LOOP AT 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 .          E

83、LSE.            CHECK  LS_TCJ_POSITIONS-NODID  IS   INITIAL .          ENDIF.          IF LV_IT

84、EM_NAME = 'ZHJ' OR LV_ITEM_NAME = 'NODID'.  "合计项不做限制          ELSE.            SPLIT LV_ITEM_NAME AT '_'&#

85、160; INTO LV_1 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 .  "检查出资金类别           

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

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

89、RRESPONDING LS_TCJ_POSITIONS 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 DU

91、PLICATES FROM GT_SUB_ALV COMPARING COMP_CODE CAJO_NUMBER FISC_YEAR POSTING_NUMBER POSITION_NUMBER.      IF  GT_SUB_ALV IS NOT INITIAL.        PERFORM FRM_SUB_FI

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

93、160;              "handle_item_double_clickENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATIONDATA:GO_A

94、PPLICATION TYPE REF TO LCL_EVENT_RECEIVER.*-*  ->  p1        参数:1 列  2 行  3 值*  <-  p2        作用:填充excel*-*DEFINE 

95、HFILL-CELL.  ITAB-COL = &1.  ITAB-ROW = &2.  IF &4 = 'X'.    IF  &3 < 0 .      CLEAR G_VALUE.      

96、;G_VALUE = ABS( &3 ).      CONCATENATE  '-'  G_VALUE INTO G_VALUE .      CONDENSE G_VALUE NO-GAPS .      MOVE G_VALUE 

97、TO ITAB-VALUE.    ELSE.      MOVE &3 TO ITAB-VALUE.    ENDIF.  ELSE.    MOVE &3 TO ITAB-VALUE.  ENDIF.  APPEND ITAB. CLEAR 

98、;ITAB.END-OF-DEFINITION.*&-*&  包含                ZFIR_1026_SEL*&-*SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE K1.SELECT-OPTIONS: S_BUKRS &

99、#160;FOR BKPF-BUKRS OBLIGATORY,                S_BUDAT  FOR ISELLIST-BDATE DEFAULT SY-DATUM OBLIGATORY NO INTERVALS NO-EXTENSION.SELECTION-SCREEN END OF

100、60;BLOCK BLK1.START-OF-SELECTION.  REFRESH GT_T012K.  EV_REGCT = 'GI' .  SELECT * INTO TABLE GT_ZFIT1011 FROM ZFIT1011 WHERE BUKRS IN S_BUKRS       

101、0;                                         OR   NODID = 'GI'.&

102、#160; IF S_BUKRS IS NOT INITIAL.    LOOP AT GT_ZFIT1011 ASSIGNING <ZFIT1011> WHERE BUKRS IS INITIAL.      <ZFIT1011>-DWNOD = S_BUKRS-LOW.    EN

103、DLOOP.  ENDIF.  IF GT_ZFIT1011 IS INITIAL .    MESSAGE  '请先维护资金层次维护表：ZFIT1011' TYPE 'S'  DISPLAY LIKE 'E' .    LEAVE LIST-PROCESSING . &

104、#160;ENDIF.*->权限检查  AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'  ID 'BUKRS' FIELD S_BUKRS-LOW.  IF SY-SUBRC <> 0.    MESSAGE S055(ZFI) DISPLAY LIKE 'E'.  &

105、#160; EXIT.  ENDIF.  CALL SCREEN 100.*&-*&  包含                ZFIR_1026_O01*&-*&-*&      Module  STATUS_0100 &

106、#160;OUTPUT*&-*       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.*&

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

109、;'EXCEL_PF'.  PERFORM FRM_CREATE_BASIC_OBJECT.  PERFORM PROGRESS_INDICATOR  USING INDICATOR.  LOOP AT IT_TAB  .    ITAB = IT_TAB-TABCONTENT.    PERFORM FRM_SET_CE

110、LL.  ENDLOOP.  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' .    

113、60; LEAVE TO SCREEN 0.    WHEN  '&F15' OR'&F12'   .      LEAVE PROGRAM.    WHEN 'EXPORT' .      PERFORM

114、 FRM_EXCEL_OUTPUT .    WHEN OTHERS.  ENDCASE.  CALL METHOD CL_GUI_CFW=>FLUSH.  CLEAR :SY-UCOMM.ENDMODULE.                 "

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

116、'BACK'.      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 METHOD SPLITTER->FREE.   &