ABAP 選擇屏幕的一點事

SELECTION-SCREEN XXX.
SELECTION-SCREEN BEGIN OF BLOCK  XXX WITH FRAME TITLE t1. "選擇屏幕塊
  
PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
 SELECTION-SCREEN PUSHBUTTON 7(20) but1 USER-COMMAND search. " 定義搜索按鈕
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
t1 = '輸入欄名稱'.
"but1 = '按鍵'.
  CALL FUNCTION 'ICON_CREATE' " 給按鈕添加圖標和文本
    EXPORTING
      name   = ICON_SEARCH   " 按鈕的圖片的名字
      text   = '功能名稱'                   "按鈕的文本
      info   = '功能'
    IMPORTING
      RESULT = but1
    EXCEPTIONS
      OTHERS = 0.

 一條線上

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-002.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_search TYPE c RADIOBUTTON GROUP g1
                   USER-COMMAND radio DEFAULT 'X'.
SELECTION-SCREEN COMMENT (5) text-003 FOR FIELD p_search.
SELECTION-SCREEN POSITION 10.
PARAMETERS: p_create TYPE zcreate RADIOBUTTON GROUP g1.
SELECTION-SCREEN COMMENT (2) text-004 FOR FIELD p_create.
SELECTION-SCREEN POSITION 20.
PARAMETERS: p_update TYPE c RADIOBUTTON GROUP g1.
SELECTION-SCREEN COMMENT (2) text-005 FOR FIELD p_update.
SELECTION-SCREEN POSITION 30.
PARAMETERS: p_delete TYPE c RADIOBUTTON GROUP g1.
SELECTION-SCREEN COMMENT (2) text-006 FOR FIELD p_delete.

SELECTION-SCREEN POSITION 50.


SELECTION-SCREEN COMMENT (10) text-007 FOR FIELD p_id.
PARAMETERS:
p_id TYPE zdb_mm_zbqnshj-id.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK blk1.

INITIALIZATION.

 out-put

PARAMETERS P1 RADIOBUTTON GROUP G1 USER-COMMAND UC DEFAULT 'X'.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text01.
PARAMETERS : p_ktext LIKE cskt-ktext MODIF ID ty1,"領料單位
             p_aufnr LIKE resb-aufnr MODIF ID ty1."內部訂單號

SELECT-OPTIONS: s_rsdat FOR rkpf-rsdat MODIF ID ty1."日期區間
SELECTION-SCREEN END OF BLOCK blk1.

PARAMETERS P2 RADIOBUTTON GROUP G1.
SELECTION-SCREEN BEGIN OF BLOCK blk2 WITH FRAME TITLE text02.
PARAMETERS : p_ktext2 LIKE cskt-ktext MODIF ID ty2,"領料單位
             p_kostl  LIKE csks-kostl MODIF ID ty2,"成本中心
             p_bwart LIKE rkpf-bwart MODIF ID ty2 OBLIGATORY."移動類型

SELECT-OPTIONS: s_rsdat2 FOR rkpf-rsdat MODIF ID ty2." 日期區間
SELECTION-SCREEN END OF BLOCK blk2.


AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE screen-group1.
      WHEN 'TY1'.
        IF p1 IS INITIAL.
          screen-INPUT = '0'.

        ELSE.
          screen-INPUT = '1'.
        ENDIF.
      WHEN 'TY2'.
        IF p2 IS INITIAL.
*          SCREEN-REQUIRED = '0'.
          screen-INPUT = '0'.

        ELSE.
          screen-INPUT = '1'.
         ENDIF.
    ENDCASE.
     CLEAR:P_AUFNR, P_ktext ,s_rsdat,  P_KOSTL,P_KTEXT2, P_BWART, S_RSDAT2.
    MODIFY SCREEN.
  ENDLOOP.

AT SELECTION-SCREEN.
  CLEAR sy-ucomm.