1 REPORT y4_b4_test40.
2 TYPE-POOLS:vrm.
3
4 DATA: name TYPE vrm_id.
5 DATA:num TYPE i. "内表判断字段长度的变量
6
7 TYPES: BEGIN OF wa ,
8 key(40),
9 text(80) TYPE c,
10 END OF wa.
11
12 DATA:gt LIKE t179t OCCURS 0 WITH HEADER LINE.
13 DATA:wa1 TYPE TABLE OF wa WITH HEADER LINE. "111
14 DATA:wa2 TYPE TABLE OF wa WITH HEADER LINE . "111222
15 DATA:wa3 TYPE TABLE OF wa WITH HEADER LINE. "111222333
16
17 DATA:itab LIKE t179t OCCURS 0 WITH HEADER LINE.
18
19 DATA: ps_t(15) TYPE c.
20
21 SELECTION-SCREEN BEGIN OF BLOCK t1 WITH FRAME TITLE title1.
22
23 SELECTION-SCREEN BEGIN OF LINE.
24
25 SELECTION-SCREEN COMMENT 1(31) TEXT-003.
26
27 PARAMETERS: pl1 LIKE ps_t AS LISTBOX VISIBLE LENGTH 15 USER-COMMAND p1 ."一级类
28
29 SELECTION-SCREEN END OF LINE.
30
31 SELECTION-SCREEN SKIP 1.
32
33 SELECTION-SCREEN BEGIN OF LINE.
34
35 SELECTION-SCREEN COMMENT 1(31) TEXT-004.
36
37 PARAMETERS: pl2 LIKE ps_t AS LISTBOX VISIBLE LENGTH 15 USER-COMMAND p2."二级类
38
39 SELECTION-SCREEN END OF LINE.
40
41 SELECTION-SCREEN SKIP 1.
42
43 SELECTION-SCREEN BEGIN OF LINE.
44
45 SELECTION-SCREEN COMMENT 1(31) TEXT-005.
46
47 PARAMETERS: pl3 LIKE ps_t AS LISTBOX VISIBLE LENGTH 15."三级类
48
49 SELECTION-SCREEN END OF LINE.
50
51 SELECTION-SCREEN SKIP 1.
52
53 SELECTION-SCREEN END OF BLOCK t1.
54
55 INITIALIZATION.
56
57 gt-vtext = '1'.
58 gt-prodh = 'YI111'.
59 APPEND gt .
60 gt-vtext = '1'.
61 gt-prodh = 'YI222'.
62 APPEND gt .
63 gt-vtext = '1'.
64 gt-prodh = 'YI11145678'.
65 APPEND gt .
66 gt-vtext = '1'.
67 gt-prodh = 'YI11198765'.
68 APPEND gt .
69 gt-vtext = '1'.
70 gt-prodh = 'YI11112345'.
71 APPEND gt .
72 gt-vtext = '1'.
73 gt-prodh = 'YI11156789'.
74 APPEND gt .
75 gt-vtext = '1'.
76 gt-prodh = 'YI1114567812345678'.
77 APPEND gt .
78 gt-vtext = '1'.
79 gt-prodh = 'YI1114567887654321'.
80 APPEND gt .
81 gt-vtext = '1'.
82 gt-prodh = 'YI1115678123456789'.
83 APPEND gt .
84 gt-vtext = '1'.
85 gt-prodh = 'YI1115678987654321'.
86 APPEND gt .
87
88 AT SELECTION-SCREEN OUTPUT.
89
90 CLEAR:wa1,wa1[].
91
92 name = 'PL1'.
93
94 LOOP AT gt.
95
96 num = strlen( gt-prodh ).
97
98 IF num = 5.
99
100 wa1-text = gt-vtext.
101
102 wa1-key = gt-prodh.
103
104 APPEND: wa1.
105
106 ENDIF.
107
108 CLEAR: gt,num,wa1.
109
110 ENDLOOP.
111
112 CALL FUNCTION 'VRM_SET_VALUES'
113 EXPORTING
114 id = name
115 values = wa1[].
116
117 AT SELECTION-SCREEN.
118
119 CASE sy-ucomm.
120
121 WHEN 'P1'.
122
123 CLEAR: pl2,pl3. "清空2、3级下拉空默认值，当用户在选择屏幕上重新选择时需要清除
124
125 CLEAR:wa2,wa2[]. "清空2级下拉内表对应的值，当用户在选择屏幕上重新选择时需要清除
126
127 CLEAR num.
128
129 LOOP AT gt .
130
131 num = strlen( gt-prodh ).
132
133 IF num = 10 AND gt-prodh+0(5) = pl1.
134
135 wa2-text = gt-vtext.
136
137 wa2-key = gt-prodh.
138
139 APPEND: wa2.
140
141 ENDIF.
142
143 CLEAR:gt,num,wa2.
144
145 ENDLOOP.
146
147 CALL FUNCTION 'VRM_SET_VALUES'
148 EXPORTING
149 id = 'PL2'
150 values = wa2[].
151
152 CLEAR pl2.
153
154 WHEN 'P2'.
155
156 CLEAR pl3. "清空3级下拉空默认值，当用户在选择屏幕上重新选择时需要清除
157
158 CLEAR:wa3,wa3[]. "清空3级下拉内表对应的值，当用户在选择屏幕上重新选择时需要清除
159
160 CLEAR num.
161
162 LOOP AT gt .
163
164 num = strlen( gt-prodh ).
165
166 IF num = 18 AND gt-prodh+0(10) = pl2.
167
168 wa3-text = gt-vtext.
169
170 wa3-key = gt-prodh.
171
172 APPEND: wa3.
173
174 ENDIF.
175
176 CLEAR:gt,num,wa3.
177
178 ENDLOOP.
179
180 CALL FUNCTION 'VRM_SET_VALUES'
181 EXPORTING
182 id = 'PL3'
183 values = wa3[].
184
185 CLEAR pl3.
186
187 ENDCASE.
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包，你的智能百科全书，全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步
· 阿里最新开源QwQ-32B，效果媲美deepseek-r1满血版，部署成本又又又降低了！
· AI编程工具终极对决：字节Trae VS Cursor，谁才是开发者新宠？
· 开源Multi-agent AI智能体框架aevatar.ai，欢迎大家贡献代码
· Manus重磅发布：全球首款通用AI代理技术深度解析与实战指南
· 被坑几百块钱后，我竟然真的恢复了删除的微信聊天记录！