◆◆0

选择屏幕-SELECTION-SCREEN(二)

石头 1月 5, 2016 Report 23,228 views 0

[隐藏]

1,AT SELECTION-SCREEN

AT SELECTION-SCREEN . 用于屏幕输入检验，其扩展语法如下：

...ON <Field>: 该语法用于控制屏幕元素输入时的遇错处理，检查某具体输入字段
（SELECT-OPTIONS 或PARAMETERS)是否完整或正确，若输入有错或不满足条件，其他字段会变灰色直到该字段输入正确.

...ON RADIOBUTTON GROUP <radio>:按制RadioButto组值的输入；

...ON BLOCK <block>:控制框架中的屏幕元素值的输入；

...OUTPUT:用于屏幕输出时的各屏幕元素值的管控；

...ON EXIT-COMMAND:用于响应"Back"、"Cancel"、及"Exit"等事件。

例子代码

TABLES:marc.

SELECT-OPTIONS s_matnr FOR marc-matnr.
SELECTION-SCREEN BEGIN OF BLOCK bl0.

SELECTION-SCREEN BEGIN OF BLOCK bl1.
PARAMETERS:p_ocmpf TYPE marc-ocmpf.
SELECTION-SCREEN END OF BLOCK bl1.
PARAMETERS:p_werks TYPE marc-werks.
PARAMETERS:p1 RADIOBUTTON GROUP rad1,
           p2 RADIOBUTTON GROUP rad1.
SELECTION-SCREEN END OF BLOCK bl0.

AT SELECTION-SCREEN ON s_matnr.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP rad1.

AT SELECTION-SCREEN ON p_werks.

AT SELECTION-SCREEN ON BLOCK bl1.

TABLES:marc.

SELECT-OPTIONS s_matnr FOR marc-matnr.

SELECTION-SCREEN BEGIN OF BLOCK bl0.

SELECTION-SCREEN BEGIN OF BLOCK bl1.

PARAMETERS:p_ocmpf TYPE marc-ocmpf.

SELECTION-SCREEN END OF BLOCK bl1.

PARAMETERS:p_werks TYPE marc-werks.

PARAMETERS:p1 RADIOBUTTON GROUP rad1,

p2 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK bl0.

AT SELECTION-SCREEN ON s_matnr.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP rad1.

AT SELECTION-SCREEN ON p_werks.

AT SELECTION-SCREEN ON BLOCK bl1.

屏幕:

2, 选择屏幕上定义按钮

语法如下:

SELECTION-SCREEN PUSHBUTTION fmt name USER-COMMAND ucom

用于在SELECTION SCREEN中产生一个按钮（pushbutton）,fmt name为定义该按钮的属性值。可以对其赋值描述及添加图标，USER-COMMAND ucom定义该按钮的function code，对按钮属性赋值可以包括两种方式。

TABLES sscrfields.
INCLUDE <icon>.

SELECTION-SCREEN PUSHBUTTON /1(20) pubu1 USER-COMMAND fcode1.
SELECTION-SCREEN SKIP."加入空行以便区分
SELECTION-SCREEN PUSHBUTTON /1(20) pubu2 USER-COMMAND fcode2.

AT SELECTION-SCREEN OUTPUT.
  MOVE 'My Button' TO pubu1.           "定义第一个按钮并赋值描述
  WRITE icon_graphics AS ICON TO pubu2."定义第二个按钮并添加图标
  CONCATENATE pubu2 'MY BUTTON'INTO pubu2 SEPARATED BY space
.
AT SELECTION-SCREEN.
* 响应按钮的function code
  CASE sscrfields-ucomm .
    WHEN 'FCODE1'.
      MESSAGE 'focde1' TYPE 'S'.
    WHEN 'FCODE2'.
      MESSAGE 'focde2' TYPE 'S'.
  ENDCASE.

TABLES sscrfields.

INCLUDE <icon>.

SELECTION-SCREEN PUSHBUTTON /1(20) pubu1 USER-COMMAND fcode1.

SELECTION-SCREEN SKIP."加入空行以便区分

SELECTION-SCREEN PUSHBUTTON /1(20) pubu2 USER-COMMAND fcode2.

AT SELECTION-SCREEN OUTPUT.

MOVE 'My Button' TO pubu1. "定义第一个按钮并赋值描述

WRITE icon_graphics AS ICON TO pubu2."定义第二个按钮并添加图标

CONCATENATE pubu2 'MY BUTTON'INTO pubu2 SEPARATED BY space

AT SELECTION-SCREEN.

* 响应按钮的function code

CASE sscrfields-ucomm .

WHEN 'FCODE1'.

MESSAGE 'focde1' TYPE 'S'.

WHEN 'FCODE2'.

MESSAGE 'focde2' TYPE 'S'.

ENDCASE.

屏幕:

若要更换按钮图标，请参考 Tcode: ICON

3, 工具栏上新增一个功能按钮

可以在选择画面工具栏上添加自定义按钮，语法如下:

SELECTION-SCREEN FUNCTION KEY n

该按钮的定义保存在系统结构体SSCRFIELDS中，n为一个整数的序数,最大5，例如当n等于1时，其按钮描述保存在字段SSCRFIELDS-FUNCTXT_01中，其按钮对象命名为“FC01",保存在字段SSCRFIELDS-UCOMM中。

对工具栏按钮的操作同样通过屏幕时间来实现，如上所述，对象命我为”FC01",保存存在字段SSCRFIELDS-UCOMM中。

代码:

TABLES sscrfields.

DATA:gv_functxt TYPE smp_dyntxt.
PARAMETERS p_parm LIKE mara-matnr.

SELECTION-SCREEN FUNCTION KEY 1.
SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.
  gv_functxt-icon_id   = icon_ws_plane."文本字段中的图标（替换显示，别名）
  gv_functxt-quickinfo = 'Preselected Carrier'."菜单制作器：信息文本 (4.0)，滑鼠移去过去显示的信息TIP
  gv_functxt-icon_text = 'LH'."菜单制作器：图标文本 (4.0)，菜单名称
  sscrfields-functxt_01 = gv_functxt.
  gv_functxt-icon_text = 'UA'.
  sscrfields-functxt_02 = gv_functxt.

AT SELECTION-SCREEN.
* 响应按钮的function code
  CASE sscrfields-ucomm .
    WHEN 'FC01'.
      MESSAGE 'button1' TYPE 'S'.
    WHEN 'FC02'.
      MESSAGE 'button2' TYPE 'S'.
  ENDCASE.

TABLES sscrfields.

DATA:gv_functxt TYPE smp_dyntxt.

PARAMETERS p_parm LIKE mara-matnr.

SELECTION-SCREEN FUNCTION KEY 1.

SELECTION-SCREEN FUNCTION KEY 2.

INITIALIZATION.

gv_functxt-icon_id = icon_ws_plane."文本字段中的图标（替换显示，别名）

gv_functxt-quickinfo = 'Preselected Carrier'."菜单制作器：信息文本 (4.0)，滑鼠移去过去显示的信息TIP

gv_functxt-icon_text = 'LH'."菜单制作器：图标文本 (4.0)，菜单名称

sscrfields-functxt_01 = gv_functxt.

gv_functxt-icon_text = 'UA'.

sscrfields-functxt_02 = gv_functxt.

AT SELECTION-SCREEN.

* 响应按钮的function code

CASE sscrfields-ucomm .

WHEN 'FC01'.

MESSAGE 'button1' TYPE 'S'.

WHEN 'FC02'.

MESSAGE 'button2' TYPE 'S'.

ENDCASE.

屏幕:

4,定义tab分页

语法如下:

SELECTION-SCREEN BEGIN OF TABBED BLOCK <block> FOR n LINES.

用于在屏幕上定义一个分页控件（tab),每个页签都是由一个子屏幕控制，n代表分页控件的高度，屏幕载入时必须先通过INTIALIZATION事件对其属性初始化，如定义两个分页的TAB控件.

TABLES:MARA.

*定义子屏幕100
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_MATNR FOR MARA-MATNR NO INTERVALS.
SELECTION-SCREEN SKIP 1.
PARAMETERS:TYPE AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN END OF SCREEN 100.

*定义子屏幕200
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
  PARAMETERS:S_MATNR2 LIKE MARA-MATNR.
SELECTION-SCREEN END OF SCREEN 200.

*定义一个TAB空间，取名为MYTAB,控件高为5，共两个选项卡BUTTON1\BUTTON2
*两个选项卡的功能代码分别为PUSH1\PUSH2
SELECTION-SCREEN:BEGIN OF TABBED BLOCK MYTAB FOR 5 LINES, "Tab框高度5LINES.
  TAB (20) BUTTON1 USER-COMMAND PUSH1,  
  TAB (20) BUTTON2 USER-COMMAND PUSH2,
  END OF BLOCK MYTAB.

INITIALIZATION.
BUTTON1 = TEXT-010.
BUTTON2 = TEXT-020.
MYTAB-PROG = SY-REPID.
MYTAB-DYNNR = 100.   "默认屏幕

*TAB控件选项卡单击事件，选择不同选项卡显示不同子屏幕
AT SELECTION-SCREEN.
  CASE  SY-UCOMM.
    WHEN 'PUSH1'.
      MYTAB-DYNNR = 100.
      MYTAB-ACTIVETAB = 'BUTTON1'.
    WHEN 'PUSH2'.
      MYTAB-DYNNR = 200.
      MYTAB-ACTIVETAB = 'BUTTON2'.
  ENDCASE.