ABAP选择按钮自动隐藏字段

SELECTION-SCREEN BEGIN OF BLOCK radio WITH FRAME TITLE text-001.
PARAMETERS r1 RADIOBUTTON GROUP gr1 USER-COMMAND sele DEFAULT 'X'.   "入保日期 ，此处有个小技巧，要想让screen `m1`生效，必须在此处添加user-command sele
PARAMETERS r2 RADIOBUTTON GROUP gr1 .               "维修记录
PARAMETERS r3 RADIOBUTTON GROUP gr1.               "不合作客户
SELECTION-SCREEN END OF BLOCK radio.

SELECTION-SCREEN BEGIN OF BLOCK blc WITH FRAME TITLE  text-002.
SELECT-OPTIONS: s_sernr FOR zcarif-sernr .          "序列码
SELECT-OPTIONS: s_kunnr FOR ser03-kunde.             "客户编码
SELECT-OPTIONS: s_bzirk FOR knvv-bzirk.              "销售区域
SELECT-OPTIONS: s_erdat FOR zcust-zdate.             "销售日期
SELECT-OPTIONS: s_zfrre FOR zcust-zfrre MODIF ID m1. "首次录入日期

SELECTION-SCREEN END OF BLOCK blc.

INITIALIZATION.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE  screen-group1.
      WHEN 'M1'.
        IF r1 = 'X'.
          screen-active = '1'.
        ELSE.
          screen-active = '0'.
        ENDIF.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.