ABAP 根据按钮动态显示/改变屏幕

SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS: s_gc FOR vbap-werks MODIF ID m1 OBLIGATORY,
s_audat FOR vbak-audat MODIF ID m1 ,
s_matkl FOR vbap-matkl MODIF ID m1,
s_matnr FOR vbap-matnr MODIF ID m1,
s_bismt FOR mara-bismt MODIF ID m1,
s_vkorg FOR vbak-vkorg MODIF ID m1,
s_kunnr FOR vbak-kunnr MODIF ID m1,
s_kdmat FOR knmt-kdmat MODIF ID m1,

            s_werks FOR a141-werks MODIF ID m2 OBLIGATORY,
            s_rq    FOR a141-datab MODIF ID m2,
         s_maktl1   FOR mara-matkl MODIF ID m2,
         s_matnr1   FOR a141-matnr MODIF ID m2,
         s_bismt1   FOR mara-bismt MODIF ID m2,
          s_pprctr FOR a141-pprctr MODIF ID m2,

            s_lifnr FOR ekko-lifnr MODIF ID m3 OBLIGATORY,
            s_bedat FOR ekko-bedat MODIF ID m3,
           s_matkl2 FOR ekpo-matkl MODIF ID m3,
           s_matnr2 FOR ekpo-matnr MODIF ID m3,
           s_bismt2 FOR mara-bismt MODIF ID m3,
            s_zzzkh FOR ekko-zzzkh MODIF ID m3.

SELECTION-SCREEN END OF BLOCK a2.

*SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE TEXT-001.
*PARAMETERS: r1 RADIOBUTTON GROUP g1 DEFAULT ‘X’ USER-COMMAND sele,

•        r2 RADIOBUTTON GROUP g1,
  

•        r3 RADIOBUTTON GROUP g1.
  

*SELECTION-SCREEN END OF BLOCK a1.

SELECTION-SCREEN BEGIN OF BLOCK text2 WITH FRAME TITLE TEXT-003.
SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: r1 RADIOBUTTON GROUP g1 USER-COMMAND singleclick.
SELECTION-SCREEN COMMENT (30) FOR FIELD r1.

PARAMETERS: r2 RADIOBUTTON GROUP g1 DEFAULT ‘X’.
SELECTION-SCREEN COMMENT (30) FOR FIELD r2.

PARAMETERS: r3 RADIOBUTTON GROUP g1 .
SELECTION-SCREEN COMMENT (30) FOR FIELD r3.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK text2.

----------------------------------------------------------------------

•              选 择 屏 幕 字 段 处 理 块
  

----------------------------------------------------------------------

AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-group1.
WHEN ‘M1’.
IF r1 <> ‘X’.
screen-active = ‘0’.
ENDIF.
WHEN ‘M2’.
IF r2 <> ‘X’.
screen-active = ‘0’.
ENDIF.
WHEN ‘M3’.
IF r3 <> ‘X’.
screen-active = ‘0’.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.

如下图