REPORT  ZZJX_TEST09.

 *&---------------------------------------------------------------------*

 TABLES: T001W,T161,T161T,T024.

 DATA: L_OBJ TYPE REF TO CL_GUI_FRONTEND_SERVICES.

 DATA: IT_FILE TYPE FILETABLE WITH HEADER LINE.

 DATA: G_RC TYPE I.

 DATA: IL_RAW TYPE TRUXS_T_TEXT_DATA.

 DATA: G_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,   "字段内表

       L_LAYOUT TYPE SLIS_LAYOUT_ALV.

 DATA: BEGIN OF GT_UPLOAD OCCURS ,

        DATA1() TYPE C,

        DATA2() TYPE C,

       END OF GT_UPLOAD.

 DATA: BEGIN OF GT_ALV1 OCCURS .

 *        INCLUDE STRUCTURE ZMMWERKS1.

 DATA:  STA() TYPE C,

     END OF GT_ALV1.

 DATA: BEGIN OF GT_ALV2 OCCURS .

 *        INCLUDE STRUCTURE ZMMWERKS2.

 DATA:  STA() TYPE C,

     END OF GT_ALV2.

 FIELD-SYMBOLS: <ALV1> LIKE LINE OF GT_ALV1,

                <ALV2> LIKE LINE OF GT_ALV2.

 DATA: L_FLAG TYPE I VALUE .

 DATA: BEGIN OF L_SIGN,

       FLAG TYPE I VALUE ,

       BUTTON TYPE I VALUE ,

   END OF L_SIGN.

 SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.

 SELECTION-SCREEN BEGIN OF BLOCK S01 WITH FRAME TITLE TEXT-C01.

 PARAMETERS: P_RB1 RADIOBUTTON GROUP T1 DEFAULT 'X' USER-COMMAND T1,

             P_RB2 RADIOBUTTON GROUP T1 .

 SELECTION-SCREEN END OF BLOCK S01.

 SELECTION-SCREEN BEGIN OF BLOCK S02 WITH FRAME TITLE TEXT-C02.

 SELECT-OPTIONS: S_WERKS FOR T001W-WERKS.

 SELECTION-SCREEN END OF BLOCK S02.

 SELECTION-SCREEN END OF SCREEN .

 SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.

 SELECTION-SCREEN BEGIN OF BLOCK S03 WITH FRAME TITLE TEXT-C01.

 PARAMETERS: P_RB3 RADIOBUTTON GROUP T2 DEFAULT 'X' USER-COMMAND T2,

             P_RB4 RADIOBUTTON GROUP T2 .

 SELECTION-SCREEN END OF BLOCK S03.

 SELECTION-SCREEN BEGIN OF BLOCK S04 WITH FRAME TITLE TEXT-C02.

 SELECT-OPTIONS: T_WERKS FOR T001W-WERKS,

                 T_BSART FOR T161-BSART MODIF ID M3,

                 T_EKGRP FOR T024-EKGRP MODIF ID M4.

 SELECTION-SCREEN END OF BLOCK S04.

 SELECTION-SCREEN END OF SCREEN .

 SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.

 SELECTION-SCREEN BEGIN OF BLOCK S05 WITH FRAME TITLE TEXT-C01.

 PARAMETERS: P_RB5 RADIOBUTTON GROUP T3 DEFAULT 'X' USER-COMMAND T3,

             P_RB6 RADIOBUTTON GROUP T3 .

 SELECTION-SCREEN END OF BLOCK S05.

 SELECTION-SCREEN BEGIN OF BLOCK S06 WITH FRAME TITLE TEXT-C02.

 PARAMETERS: P_FIL1 TYPE RLGRAP-FILENAME MODIF ID M5,

             P_FIL2 TYPE RLGRAP-FILENAME MODIF ID M6.

 SELECTION-SCREEN END OF BLOCK S06.

 SELECTION-SCREEN END OF SCREEN .

 SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR  LINES,

    TAB () BUTTON1 USER-COMMAND PUSH1,

    TAB () BUTTON2 USER-COMMAND PUSH2,

    TAB () BUTTON3 USER-COMMAND PUSH3,

 END OF BLOCK MYTAB.

 INITIALIZATION.

   BUTTON1 = TEXT-A01.

   BUTTON2 = TEXT-A02.

   BUTTON3 = TEXT-A03.

   MYTAB-PROG = SY-REPID.

   IMPORT L_SIGN FROM MEMORY ID 'FLAG'."主要使用内存共享的方式来实现，进入list退出之后保存进去之前的标签

   CASE L_SIGN-FLAG.

     WHEN .

       MYTAB-DYNNR = .

       MYTAB-ACTIVETAB = 'PUSH1'.

     WHEN .

       MYTAB-DYNNR = .

       MYTAB-ACTIVETAB = 'PUSH2'.

     WHEN .

       MYTAB-DYNNR = .

       MYTAB-ACTIVETAB = 'PUSH3'.

   ENDCASE.

   MODIFY SCREEN.

   FREE MEMORY ID 'FLAG'.

   "为控件页签单击事件, 选择不同页签显示不同子屏幕.

 AT SELECTION-SCREEN.

   CASE SY-UCOMM.

     WHEN 'PUSH1'.

       MYTAB-DYNNR = .

       MYTAB-ACTIVETAB = 'PUSH1'.

       L_SIGN-FLAG = .

       L_SIGN-BUTTON = .

     WHEN 'PUSH2'.

       MYTAB-DYNNR = .

       MYTAB-ACTIVETAB = 'PUSH2'.

       L_SIGN-FLAG = .

       L_SIGN-BUTTON = .

     WHEN 'PUSH3'.

       MYTAB-DYNNR = .

       MYTAB-ACTIVETAB = 'PUSH3'.

       L_SIGN-FLAG = .

       L_SIGN-BUTTON = .

   ENDCASE.

   EXPORT L_SIGN TO MEMORY ID 'FLAG'.

 AT SELECTION-SCREEN OUTPUT.

   LOOP AT SCREEN.

     CASE SCREEN-GROUP1.

       WHEN 'M1'.

         IF P_RB1 IS INITIAL.

           SCREEN-ACTIVE = ''.

         ELSE.

           SCREEN-ACTIVE = ''.

         ENDIF.

       WHEN 'M2'.

         IF P_RB2 IS INITIAL.

           SCREEN-ACTIVE = ''.

         ELSE.

           SCREEN-ACTIVE = ''.

         ENDIF.

       WHEN 'M2'.

         IF P_RB3 IS INITIAL.

           SCREEN-ACTIVE = ''.

         ELSE.

           SCREEN-ACTIVE = ''.

         ENDIF.

       WHEN 'M4'.

         IF P_RB4 IS INITIAL.

           SCREEN-ACTIVE = ''.

         ELSE.

           SCREEN-ACTIVE = ''.

         ENDIF.

       WHEN 'M5'.

         IF P_RB5 IS INITIAL.

           SCREEN-ACTIVE = ''.

         ELSE.

           SCREEN-ACTIVE = ''.

         ENDIF.

       WHEN 'M6'.

         IF P_RB6 IS INITIAL.

           SCREEN-ACTIVE = ''.

         ELSE.

           SCREEN-ACTIVE = ''.

         ENDIF.

     ENDCASE.

     MODIFY SCREEN.

   ENDLOOP.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIL1. "弹出选择文件对话框

   CREATE OBJECT L_OBJ.

   CLEAR IT_FILE[].

   CALL METHOD L_OBJ->FILE_OPEN_DIALOG

     EXPORTING

       FILE_FILTER       = '*.xls;*.xlsx;*.txt'

       INITIAL_DIRECTORY = 'C:\data'

     CHANGING

       FILE_TABLE        = IT_FILE[]

       RC                = G_RC.

   READ TABLE IT_FILE INDEX .

   P_FIL1 = IT_FILE-FILENAME.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIL2. "弹出选择文件对话框

   CREATE OBJECT L_OBJ.

   CLEAR IT_FILE[].

   CALL METHOD L_OBJ->FILE_OPEN_DIALOG

     EXPORTING

       FILE_FILTER       = '*.xls;*.xlsx;*.txt'

       INITIAL_DIRECTORY = 'C:\data'

     CHANGING

       FILE_TABLE        = IT_FILE[]

       RC                = G_RC.

   READ TABLE IT_FILE INDEX .

   P_FIL2 = IT_FILE-FILENAME.

 START-OF-SELECTION.

 END-OF-SELECTION.

   WRITE:/ 'hello'.