选择屏幕折叠效果

来源：互联网发布：淘宝网店排名编辑：程序博客网时间：2024/05/16 06:36

REPORT ZTEST_002 .
TYPE-POOLS ICON.
TABLES MARA.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .
PARAMETERS P_WERKS TYPE WERKS.
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.
WRITE ICON_DATA_AREA_EXPAND AS ICON TO BUT1 .
COM1 = 'DATA EXPAND'.
AT SELECTION-SCREEN.
CASE SY-UCOMM.
    WHEN 'BUTTON1'.
      IF BUT1 = '@K1@'.
        WRITE ICON_DATA_AREA_COLLAPSE AS ICON TO BUT1.
        COM1 = 'DATA COLLAPSE'.
      ELSE.
        WRITE ICON_DATA_AREA_EXPAND AS ICON TO BUT1.
        COM1 = 'DATA EXPAND'.
      ENDIF.
ENDCASE.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF BUT1 = '@K2@' AND SCREEN-GROUP1 = 'BL1'.
      SCREEN-ACTIVE = 0.
      MODIFY SCREEN.
    ENDIF.