选择屏幕----下拉框,单选,多选

TABLES: BKPF,SSCRFIELDS.
DATA FLAG TYPE I.
SELECTION-SCREEN BEGIN OF BLOCK PART1 WITH FRAME TITLE TITLE1.
*了解type/like/必选／memory id
PARAMETERS:NUMBER1 TYPE I OBLIGATORY,"必填
           NUMBER2 TYPE I,
           BUMBER3 TYPE I.
PARAMETERS: P_BUKRS4 TYPE C MEMORY ID HK."注意memory id 不能超过三字符
PARAMETERS:S_BUKRS LIKE BKPF-BUKRS DEFAULT '1000'.
SELECTION-SCREEN END OF BLOCK PART1.

SELECTION-SCREEN BEGIN OF BLOCK PART2 WITH FRAME TITLE TITLE2.
*注意了解一下no-extension/no intervals/mod if
SELECT-OPTIONS:S_BUKRS1 FOR BKPF-BUKRS NO-EXTENSION MODIF ID G1,"关闭不连续多选
               S_BUKRS2 FOR BKPF-BUKRS NO INTERVALS MODIF ID G1,"不显示高的条件
               S_BUKRS3 FOR BKPF-BUKRS MODIF ID G1,
               S_BUKRS4 FOR BKPF-BUKRS DEFAULT '1111' MODIF ID G1."带默认值
SELECTION-SCREEN SKIP 1."换行
SELECT-OPTIONS:S_MONAT1 FOR BKPF-MONAT NO-EXTENSION MODIF ID G2,
               S_MONAT2 FOR BKPF-MONAT NO INTERVALS MODIF ID G2,
               S_MONAT3 FOR BKPF-MONAT  MODIF ID G2,
               S_MONAT4 FOR BKPF-MONAT DEFAULT '1111' MODIF ID G2.
*添加一组按钮控制显示，放置在一行内
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 30(10) BTNTXT1 USER-COMMAND BUT1.
SELECTION-SCREEN PUSHBUTTON 45(10) BTNTXT2 USER-COMMAND BUT2.
SELECTION-SCREEN PUSHBUTTON 60(10) BTNTXT3 USER-COMMAND BUT3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PART2.

SELECTION-SCREEN BEGIN OF BLOCK PART3 WITH FRAME TITLE TITLE3.
**了解checkbox/comment/line/radiobutton
SELECTION-SCREEN BEGIN OF LINE.
**复选按钮放在一行上
SELECTION-SCREEN POSITION 1."定位
*SELECTION-SCREEN COMMENT 1(5) CHK1 FOR FIELD PCK1.
*SELECTION-SCREEN COMMENT 20(5) CHK2 FOR FIELD PCK2.
SELECTION-SCREEN POSITION 10."定位，调试容易出错，特别要注意这个数据不能冲突，
*PARAMETERS PCK1 AS CHECKBOX DEFAULT 'X'.
*SELECTION-SCREEN POSITION 26.
*PARAMETERS PCK2 AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN ULINE."划横线
*
SELECTION-SCREEN BEGIN OF LINE.
**单选按钮放在一行上
SELECTION-SCREEN COMMENT 1(5) RD1 FOR FIELD PRD1.
PARAMETERS:PRD1 RADIOBUTTON GROUP SG1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 10(5) RD2 FOR FIELD PRD2.
PARAMETERS:PRD2 RADIOBUTTON GROUP SG1.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK PART3.

SELECTION-SCREEN BEGIN OF BLOCK PART4 WITH FRAME TITLE TITLE4.
*function key
SELECTION-SCREEN COMMENT 1(50) PART4TXT.
*在应用工具条上添加功能键按钮响应事件
SELECTION-SCREEN:FUNCTION KEY 1,
                                    FUNCTION KEY 2.
SELECTION-SCREEN END OF BLOCK PART4.

INITIALIZATION.
*用于屏幕初始化，屏幕字段默认值的填充和赋值
  TITLE1 = '第一个Frame(了解type/like/必选／memory id)'.
  TITLE2 = '第二个Frame(了解一下no-extension/no intervals/mod if/radiobutton)'.
  TITLE3 = '第三个Frame(了解checkbox/comment/line)'.
  TITLE4 = '第四个Frame(了解checkbox/comment/line)'.
  NUMBER1 = 1000.
*  CHK1 = 'CHINA'.
*  CHK2 = 'USA'.
  RD1  = '中文'.
  RD2 = '英文'.
  BTNTXT1 = '全部显示'.
  BTNTXT2 = '只显示第一组'.
  BTNTXT3 = '只显示第二组'.
  PART4TXT = '看看function key是否出发 start-of-selection?'.
  SSCRFIELDS-FUNCTXT_01 = 'SELF_FUNCTION1'.
  SSCRFIELDS-FUNCTXT_02 = 'SELF_FUNCTION2'.

例子：

SELECTION-SCREEN BEGIN OF BLOCK PART3 .
**了解checkbox/comment/line/radiobutton
SELECTION-SCREEN BEGIN OF LINE.
**复选按钮放在一行上
SELECTION-SCREEN POSITION 1."定位
SELECTION-SCREEN COMMENT 1(5) CHK1 FOR FIELD PCK1.
*SELECTION-SCREEN COMMENT 20(5) CHK2 FOR FIELD PCK2.
*SELECTION-SCREEN POSITION 10."定位，调试容易出错，特别要注意这个数据不能冲突，
PARAMETERS PCK1 AS CHECKBOX DEFAULT 'X'.
*SELECTION-SCREEN POSITION 26.
*PARAMETERS PCK2 AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK PART3.

INITIALIZATION.

CHK1 = '套打'.