在屏幕上创建页签

SAP允许直接通过ABAP代码在屏幕上创建一个页签，相关语法如下。

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

每个页签都是由一个单独的子屏幕控制，N代表分页控件的高度，屏幕载入时必须先通过INITIALIZATION事件对其属性初始化。下例中将定义一个包含两个页签的TAB控件，代码所下所示。

 1 REPORT ztest_sum.

 2

 3 TABLES:mara.

 4 *TABLES sscrfields.  "引用屏幕字段属性

 5

 6 SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN .          "定义子屏幕100

 7 SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.

 8 SELECT-OPTIONS:mat1 FOR mara-matnr NO INTERVALS.

 9 SELECTION-SCREEN SKIP 1.

10 PARAMETERS: chk1 AS CHECKBOX DEFAULT ‘X‘.

11 SELECTION-SCREEN END OF BLOCK a1.

12 SELECTION-SCREEN END OF SCREEN 100.

13

14 SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.

15 PARAMETERS:mat2 LIKE mara-matnr.

16 SELECTION-SCREEN END OF SCREEN 200.

17

18 *定义一个TAB空间，取名MYTAB，空间高为5，共分为两个页签BUTTON1/BUTTON2

19 *两个页签的功能代码分别为PUSH1/PUSH2

20

21 SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 5 LINES,

22   TAB (20) button1 USER-COMMAND push1,

23   TAB (20) button2 USER-COMMAND push2,

24                   END OF BLOCK mytab.

25

26 *为TAB控件分别初始化值，应用于TEXT ELEMENT文本

27 INITIALIZATION.

28   button1 = text-010.

29   button2 = text-020.

30   mytab-prog = sy-repid.

31   mytab-dynnr = 100.

32

33 AT SELECTION-SCREEN.

34   CASE sy-ucomm.

35     WHEN ‘PUSH1‘.

36       mytab-dynnr = 100.

37     WHEN ‘PUSH2‘.

38       mytab-dynnr = 100.

39     WHEN OTHERS.

40   ENDCASE.

执行结果如下

在屏幕上创建页签