首页 > 其他 > 详细

在屏幕上创建页签

时间:2014-05-04 10:04:35      阅读:476      评论:0      收藏:0      [点我收藏+]

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

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

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

bubuko.com,布布扣
 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.
bubuko.com,布布扣

执行结果如下
bubuko.com,布布扣

 

 

在屏幕上创建页签,布布扣,bubuko.com

在屏幕上创建页签

原文:http://www.cnblogs.com/caizjian/p/3705787.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!