ABAP选择屏幕：根据用户选择动态显示屏幕 （动态选择屏幕）

TABLES:aufk,afvv.

SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-002.

PARAMETERS: p1 TYPE c RADIOBUTTON GROUP g1 USER-COMMAND uc DEFAULT 'X',

p2 TYPE c RADIOBUTTON GROUP g1 .

SELECTION-SCREEN END OF BLOCK bl1.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

SELECT-OPTIONS:s_aufnr FOR aufk-aufnr MODIF ID ty1.

SELECTION-SCREEN END OF BLOCK blk1.

SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text-003.

PARAMETERS:p_werks LIKE aufk-werks MODIF ID ty2.

SELECT-OPTIONS:s_date FOR afvv-fssld MODIF ID ty2.

SELECTION-SCREEN END OF BLOCK blk2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

CASE screen-group1.

WHEN 'TY1'.

IF p1 IS INITIAL.

screen-active = '0'.

ELSE.

screen-active = '1'.

ENDIF.

WHEN 'TY2'.

IF p2 IS INITIAL.

screen-active = '0'.

ELSE.

screen-active = '1'.

ENDIF.

ENDCASE.

MODIFY SCREEN.

ENDLOOP.

AT SELECTION-SCREEN.

CLEAR sy-ucomm.