2018.03.30 abap屏幕标签保存之前状态

Posted 2020-10-29 SAP Tab

  1 REPORT  ZZJX_TEST09.
  2 *&---------------------------------------------------------------------*
  3 TABLES: T001W,T161,T161T,T024.
  4 
  5 DATA: L_OBJ TYPE REF TO CL_GUI_FRONTEND_SERVICES.
  6 DATA: IT_FILE TYPE FILETABLE WITH HEADER LINE.
  7 DATA: G_RC TYPE I.
  8 DATA: IL_RAW TYPE TRUXS_T_TEXT_DATA.
  9 
 10 
 11 DATA: G_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,   "字段内表
 12       L_LAYOUT TYPE SLIS_LAYOUT_ALV.
 13 
 14 DATA: BEGIN OF GT_UPLOAD OCCURS 0,
 15        DATA1(4) TYPE C,
 16        DATA2(4) TYPE C,
 17       END OF GT_UPLOAD.
 18 DATA: BEGIN OF GT_ALV1 OCCURS 0.
 19 *        INCLUDE STRUCTURE ZMMWERKS1.
 20 DATA:  STA(4) TYPE C,
 21     END OF GT_ALV1.
 22 
 23 DATA: BEGIN OF GT_ALV2 OCCURS 0.
 24 *        INCLUDE STRUCTURE ZMMWERKS2.
 25 DATA:  STA(4) TYPE C,
 26     END OF GT_ALV2.
 27 FIELD-SYMBOLS: <ALV1> LIKE LINE OF GT_ALV1,
 28                <ALV2> LIKE LINE OF GT_ALV2.
 29 DATA: L_FLAG TYPE I VALUE 1.
 30 
 31 DATA: BEGIN OF L_SIGN,
 32       FLAG TYPE I VALUE 1,
 33       BUTTON TYPE I VALUE 1,
 34   END OF L_SIGN.
 35 
 36 SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
 37 SELECTION-SCREEN BEGIN OF BLOCK S01 WITH FRAME TITLE TEXT-C01.
 38 PARAMETERS: P_RB1 RADIOBUTTON GROUP T1 DEFAULT \'X\' USER-COMMAND T1,
 39             P_RB2 RADIOBUTTON GROUP T1 .
 40 SELECTION-SCREEN END OF BLOCK S01.
 41 SELECTION-SCREEN BEGIN OF BLOCK S02 WITH FRAME TITLE TEXT-C02.
 42 SELECT-OPTIONS: S_WERKS FOR T001W-WERKS.
 43 SELECTION-SCREEN END OF BLOCK S02.
 44 SELECTION-SCREEN END OF SCREEN 100.
 45 
 46 SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
 47 SELECTION-SCREEN BEGIN OF BLOCK S03 WITH FRAME TITLE TEXT-C01.
 48 PARAMETERS: P_RB3 RADIOBUTTON GROUP T2 DEFAULT \'X\' USER-COMMAND T2,
 49             P_RB4 RADIOBUTTON GROUP T2 .
 50 SELECTION-SCREEN END OF BLOCK S03.
 51 SELECTION-SCREEN BEGIN OF BLOCK S04 WITH FRAME TITLE TEXT-C02.
 52 SELECT-OPTIONS: T_WERKS FOR T001W-WERKS,
 53                 T_BSART FOR T161-BSART MODIF ID M3,
 54                 T_EKGRP FOR T024-EKGRP MODIF ID M4.
 55 SELECTION-SCREEN END OF BLOCK S04.
 56 SELECTION-SCREEN END OF SCREEN 200.
 57 
 58 SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
 59 SELECTION-SCREEN BEGIN OF BLOCK S05 WITH FRAME TITLE TEXT-C01.
 60 PARAMETERS: P_RB5 RADIOBUTTON GROUP T3 DEFAULT \'X\' USER-COMMAND T3,
 61             P_RB6 RADIOBUTTON GROUP T3 .
 62 SELECTION-SCREEN END OF BLOCK S05.
 63 SELECTION-SCREEN BEGIN OF BLOCK S06 WITH FRAME TITLE TEXT-C02.
 64 PARAMETERS: P_FIL1 TYPE RLGRAP-FILENAME MODIF ID M5,
 65             P_FIL2 TYPE RLGRAP-FILENAME MODIF ID M6.
 66 SELECTION-SCREEN END OF BLOCK S06.
 67 
 68 SELECTION-SCREEN END OF SCREEN 300.
 69 
 70 
 71 SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR 12 LINES,
 72    TAB (25) BUTTON1 USER-COMMAND PUSH1,
 73    TAB (25) BUTTON2 USER-COMMAND PUSH2,
 74    TAB (25) BUTTON3 USER-COMMAND PUSH3,
 75 END OF BLOCK MYTAB.
 76 
 77 INITIALIZATION.
 78   BUTTON1 = TEXT-A01.
 79   BUTTON2 = TEXT-A02.
 80   BUTTON3 = TEXT-A03.
 81   MYTAB-PROG = SY-REPID.
 82 
 83 
 84   IMPORT L_SIGN FROM MEMORY ID \'FLAG\'."主要使用内存共享的方式来实现，进入list退出之后保存进去之前的标签
 85   CASE L_SIGN-FLAG.
 86     WHEN 1.
 87       MYTAB-DYNNR = 100.
 88       MYTAB-ACTIVETAB = \'PUSH1\'.
 89     WHEN 2.
 90       MYTAB-DYNNR = 200.
 91       MYTAB-ACTIVETAB = \'PUSH2\'.
 92     WHEN 3.
 93       MYTAB-DYNNR = 300.
 94       MYTAB-ACTIVETAB = \'PUSH3\'.
 95   ENDCASE.
 96   MODIFY SCREEN.
 97   FREE MEMORY ID \'FLAG\'.
 98 
 99   "为控件页签单击事件, 选择不同页签显示不同子屏幕.
100 
101 AT SELECTION-SCREEN.
102   CASE SY-UCOMM.
103     WHEN \'PUSH1\'.
104       MYTAB-DYNNR = 100.
105       MYTAB-ACTIVETAB = \'PUSH1\'.
106       L_SIGN-FLAG = 1.
107       L_SIGN-BUTTON = 1.
108     WHEN \'PUSH2\'.
109       MYTAB-DYNNR = 200.
110       MYTAB-ACTIVETAB = \'PUSH2\'.
111       L_SIGN-FLAG = 2.
112       L_SIGN-BUTTON = 2.
113     WHEN \'PUSH3\'.
114       MYTAB-DYNNR = 300.
115       MYTAB-ACTIVETAB = \'PUSH3\'.
116       L_SIGN-FLAG = 3.
117       L_SIGN-BUTTON = 3.
118   ENDCASE.
119   EXPORT L_SIGN TO MEMORY ID \'FLAG\'.
120 
121 AT SELECTION-SCREEN OUTPUT.
122 
123   LOOP AT SCREEN.
124     CASE SCREEN-GROUP1.
125       WHEN \'M1\'.
126         IF P_RB1 IS INITIAL.
127           SCREEN-ACTIVE = \'0\'.
128         ELSE.
129           SCREEN-ACTIVE = \'1\'.
130         ENDIF.
131       WHEN \'M2\'.
132         IF P_RB2 IS INITIAL.
133           SCREEN-ACTIVE = \'0\'.
134         ELSE.
135           SCREEN-ACTIVE = \'1\'.
136         ENDIF.
137       WHEN \'M2\'.
138         IF P_RB3 IS INITIAL.
139           SCREEN-ACTIVE = \'0\'.
140         ELSE.
141           SCREEN-ACTIVE = \'1\'.
142         ENDIF.
143       WHEN \'M4\'.
144         IF P_RB4 IS INITIAL.
145           SCREEN-ACTIVE = \'0\'.
146         ELSE.
147           SCREEN-ACTIVE = \'1\'.
148         ENDIF.
149       WHEN \'M5\'.
150         IF P_RB5 IS INITIAL.
151           SCREEN-ACTIVE = \'0\'.
152         ELSE.
153           SCREEN-ACTIVE = \'1\'.
154         ENDIF.
155       WHEN \'M6\'.
156         IF P_RB6 IS INITIAL.
157           SCREEN-ACTIVE = \'0\'.
158         ELSE.
159           SCREEN-ACTIVE = \'1\'.
160         ENDIF.
161     ENDCASE.
162     MODIFY SCREEN.
163   ENDLOOP.
164 
165 
166 AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIL1. "弹出选择文件对话框
167   CREATE OBJECT L_OBJ.
168   CLEAR IT_FILE[].
169   CALL METHOD L_OBJ->FILE_OPEN_DIALOG
170     EXPORTING
171       FILE_FILTER       = \'*.xls;*.xlsx;*.txt\'
172       INITIAL_DIRECTORY = \'C:\\data\'
173     CHANGING
174       FILE_TABLE        = IT_FILE[]
175       RC                = G_RC.
176   READ TABLE IT_FILE INDEX 1.
177   P_FIL1 = IT_FILE-FILENAME.
178 
179 AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIL2. "弹出选择文件对话框
180   CREATE OBJECT L_OBJ.
181   CLEAR IT_FILE[].
182   CALL METHOD L_OBJ->FILE_OPEN_DIALOG
183     EXPORTING
184       FILE_FILTER       = \'*.xls;*.xlsx;*.txt\'
185       INITIAL_DIRECTORY = \'C:\\data\'
186     CHANGING
187       FILE_TABLE        = IT_FILE[]
188       RC                = G_RC.
189   READ TABLE IT_FILE INDEX 1.
190   P_FIL2 = IT_FILE-FILENAME.
191 
192 
193 START-OF-SELECTION.
194 
195 END-OF-SELECTION.
196   WRITE:/ \'hello\'.

 F8进去的时候是这样的，出来的时候还是停留在标签3处。