◆◆1

选择屏幕-SELECTION-SCREEN(一)

石头 1月 4, 2016 Report 12,585 views 0

1,定义SELECTION-SCREEN

*定义selection screen
SELECTION-SCREEN BEGIN OF SCREEN 9001 AS WINDOW TITLE TEXT-001.
PARAMETERS:p_ebeln LIKE ekko-ebeln.
SELECTION-SCREEN END OF SCREEN 9001.

*调用screen
CALL SCREEN 9001
   STARTING AT 10 10
     ENDING AT 80 10.   "

*定义selection screen

SELECTION-SCREEN BEGIN OF SCREEN 9001 AS WINDOW TITLE TEXT-001.

PARAMETERS:p_ebeln LIKE ekko-ebeln.

SELECTION-SCREEN END OF SCREEN 9001.

*调用screen

CALL SCREEN 9001

STARTING AT 10 10

ENDING AT 80 10. "

call screen会弹出屏幕,显示如下:

2,CALL SELECTION-SCREEN

* 第一个screen
PARAMETERS:p_check type c as CHECKBOX.

* 调用第二个selection screen
CALL SELECTION-SCREEN 9002.
*定义selection screen
SELECTION-SCREEN BEGIN OF SCREEN 9002 AS WINDOW TITLE TEXT-001.
PARAMETERS:p_ebeln LIKE ekko-ebeln.
SELECTION-SCREEN END OF SCREEN 9002.

* 第一个screen

PARAMETERS:p_check type c as CHECKBOX.

* 调用第二个selection screen

CALL SELECTION-SCREEN 9002.

*定义selection screen

SELECTION-SCREEN BEGIN OF SCREEN 9002 AS WINDOW TITLE TEXT-001.

PARAMETERS:p_ebeln LIKE ekko-ebeln.

SELECTION-SCREEN END OF SCREEN 9002.

第一个sceen

点击运行按钮,调用第二个screen,

3,定义BLOCK

SELECTION-SCREEN BEGIN OF BLOCK BLOCK.
...
SELECTION-SCREEN END OF BLOCK.

该语法在屏幕中定义一个BLOCK，其扩展语法包括：

...WITH FRAME:创建一个框架。

...TITLE title:创建一个带标题的框架。

...NO INTERVALS:所创建的框架中限制SELECT 只有一个输入项。

另外block中还有以下语法:

SELECTION-SCREEN ULINE. 输出横线

SELECTION-SCREEN SKIP n.换行

SELECTION-SCREEN POSITION pos. 产生空格

DATA:g_mat LIKE mara-matnr.

*不包含扩展语法
SELECTION-SCREEN BEGIN OF BLOCK block1.
SELECT-OPTIONS:s_matnr1 FOR g_mat.
SELECTION-SCREEN END OF BLOCK block1.

*包含框架
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME.
SELECT-OPTIONS:s_matnr2 FOR g_mat.
SELECTION-SCREEN END OF BLOCK block2.

*包含框架及标头
SELECTION-SCREEN BEGIN OF BLOCK block3 WITH FRAME TITLE text-002.
SELECT-OPTIONS:s_matnr3 FOR g_mat.
SELECTION-SCREEN END OF BLOCK block3.

*包含框架及标头且只有一个输入框
SELECTION-SCREEN BEGIN OF BLOCK block4 WITH FRAME TITLE text-003 NO INTERVALS.
SELECT-OPTIONS:s_matnr4 FOR g_mat.
SELECTION-SCREEN END OF BLOCK block4.

DATA:g_mat LIKE mara-matnr.

*不包含扩展语法

SELECTION-SCREEN BEGIN OF BLOCK block1.

SELECT-OPTIONS:s_matnr1 FOR g_mat.

SELECTION-SCREEN END OF BLOCK block1.

*包含框架

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME.

SELECT-OPTIONS:s_matnr2 FOR g_mat.

SELECTION-SCREEN END OF BLOCK block2.

*包含框架及标头

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

SELECT-OPTIONS:s_matnr3 FOR g_mat.

SELECTION-SCREEN END OF BLOCK block3.

*包含框架及标头且只有一个输入框

SELECTION-SCREEN BEGIN OF BLOCK block4 WITH FRAME TITLE text-003 NO INTERVALS.

SELECT-OPTIONS:s_matnr4 FOR g_mat.

SELECTION-SCREEN END OF BLOCK block4.

屏幕显示如下:

4,Selection-screen include

参照已经定义的屏幕元素来创建

CALL SCREEN 9003.
SELECTION-SCREEN BEGIN OF SCREEN 9004.
SELECTION-SCREEN BEGIN OF BLOCK blk1.
SELECT-OPTIONS s_sel FOR sy-repid.
SELECTION-SCREEN ULINE. "换行线
PARAMETERS p_char.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN END OF SCREEN 9004.

SELECTION-SCREEN BEGIN OF SCREEN 9003.
SELECTION-SCREEN INCLUDE BLOCKS blk1."參照SCREEN 9004中的BLOCK
PARAMETERS p_box TYPE c AS CHECKBOX.
SELECTION-SCREEN END OF SCREEN 9003.