下面ABAP代码实现在选择画面中收起/展开部分字段的功能，供参考。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
REPORT ztest_selection_screen_expand.
TYPE-POOLS icon.
TABLES mara.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS p_werks TYPE werks_d.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 1(4) but1 USER-COMMAND button1 VISIBLE LENGTH 2.
SELECTION-SCREEN COMMENT 6(20) com1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
SELECT-OPTIONS : s_matnr FOR mara-matnr MODIF ID bl1,
s_groes FOR mara-groes MODIF ID bl1.
SELECTION-SCREEN END OF BLOCK b2.
INITIALIZATION.
* 初始化expand按钮
WRITE icon_data_area_expand AS ICON TO but1.
com1 = 'Data Collapse'.
AT SELECTION-SCREEN.
* 切换expand和Collapse按钮
CASE sy-ucomm.
WHEN 'BUTTON1'.
IF but1 = '@K1@'.
WRITE icon_data_area_collapse AS ICON TO but1.
com1 = 'Data Expand'.
ELSE.
WRITE icon_data_area_expand AS ICON TO but1.
com1 = 'Data Collapse'.
ENDIF.
ENDCASE.
AT SELECTION-SCREEN OUTPUT.
* 隐藏group1中的字段
LOOP AT SCREEN.
IF but1 = '@K2@' AND screen-group1 = 'BL1'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
|
初始化面：
点击Data Collapse按钮后，下面的两个字段收起不显示。
以上。