在选择画面中收起/展开字段

下面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按钮后，下面的两个字段收起不显示。

以上。