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处。
