屏幕的顯示與隱藏相互切換

"注意：1、在單選按鈕的時候，USER-COMMAND SINGLECLICK只能在第一個參數

SELECTION-SCREEN BEGIN OF BLOCK DEV1 WITH FRAME TITLE    T1 .
 
PARAMETERS: PNO RADIOBUTTON GROUP X1 USER-COMMAND SINGLECLICK,
            DEV RADIOBUTTON GROUP X1 DEFAULT ‘X‘ .
SELECTION-SCREEN END OF BLOCK DEV1  .

"2、每個塊後面需要帶上MODIF ID + 名稱，並且名稱不能有雙或者單引號

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS LGORT FOR MSEG-LGORT  MODIF ID LG ."固定資產時的部門編號
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-003.
SELECT-OPTIONS KOSTL FOR MSEG-KOSTL MODIF ID KO.  "非固定資產時的成本中心
SELECTION-SCREEN END OF BLOCK B2.

"3、初始化時，隱藏沒有選擇的那個塊

INITIALIZATION.
  T1 = ‘請選擇下面選項‘.
  "初始化時，這兩個界面是不顯示的
  LOOP AT SCREEN.
    IF  SCREEN-GROUP1 = ‘KO‘.
      SCREEN-ACTIVE = 0.
      MODIFY SCREEN.
    ENDIF.

ENDLOOP.

"在屏幕輸出時，根據選擇更新屏幕顯示

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.

IF PNO = ‘X‘.
      IF  SCREEN-GROUP1 = ‘KO‘.
        SCREEN-ACTIVE = 1.
        MODIFY SCREEN.
      ENDIF.
       IF  SCREEN-GROUP1 = ‘LG‘.
        SCREEN-INPUT = 0.
        MODIFY SCREEN.
      ENDIF.
    ELSEIF PNO  IS INITIAL.
      IF  SCREEN-GROUP1 = ‘KO‘.
        SCREEN-ACTIVE = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.

ENDLOOP.

2、如果把SCREEN-ACTIVE 改成 SCREEN-INPUT的話就是可編輯和不可編輯相互切換。