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.
如下图
