ZBlog学习笔记

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS s_mblnr TYPE mseg-mblnr  MODIF ID jyd.
SELECTION-SCREEN: END OF BLOCK b1.

SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS s_matnr FOR makt-matnr  MODIF ID thd.
SELECTION-SCREEN: END OF BLOCK b2.

SELECTION-SCREEN: BEGIN OF BLOCK b4 WITH FRAME TITLE text-004.
SELECT-OPTIONS s_mblnrs FOR mseg-mblnr  MODIF ID fhd.
SELECTION-SCREEN: END OF BLOCK b4.

SELECTION-SCREEN: BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS : r1 RADIOBUTTON GROUP d1 DEFAULT 'X' USER-COMMAND singleclick,
             r2 RADIOBUTTON GROUP d1,
             r3 RADIOBUTTON GROUP d1.
SELECTION-SCREEN: END OF BLOCK b3.
*---------------------
AT SELECTION-SCREEN OUTPUT.
  IF r1 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'JYD' OR screen-group1 = 'FHD'.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSEIF r2 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'THD' OR screen-group1 = 'FHD'.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSEIF r3 = 'X'.
    LOOP AT SCREEN.
      IF screen-group1 = 'JYD' OR screen-group1 = 'THD'.
        screen-active = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

START-OF-SELECTION.

效果：