报表屏幕选择条件显隐性控制

SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:s_kunnr  FOR bseg-kunnr.
SELECT-OPTIONS:s_lifnr  FOR bseg-lifnr.
SELECT-OPTIONS:s_bukrs  FOR bseg-bukrs.
SELECT-OPTIONS:s_gjahr  FOR bseg-gjahr MODIF ID a1.
PARAMETERS:    p_date TYPE augdt DEFAULT sy-datum OBLIGATORY MODIF ID a2.
SELECT-OPTIONS:s_hkont  FOR bseg-hkont.

SELECTION-SCREEN ULINE."画线

""USER-COMMAND，不加则需要ENTER才能控制屏幕条件
PARAMETERS:  a1  RADIOBUTTON GROUP gp2 USER-COMMAND flg DEFAULT 'X'. 
PARAMETERS:  a2  RADIOBUTTON GROUP gp2 .
PARAMETERS:  a3  RADIOBUTTON GROUP gp2 .

SELECTION-SCREEN END OF BLOCK b.

AT SELECTION-SCREEN OUTPUT.
  IF a1 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'A2'.
        screen-active = '0'.
        MODIFY SCREEN.
      ELSEIF screen-group1 = 'A1'.
        screen-active = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.