ABAP 表格控制(Table Control)和 步循环(STEP-LOOP) .

ZZ "http://moonfly2004.javaeye.com/blog/200328"

表格控制(Table Control)和步循环

 

 

1. 两个标准Demo: SAPMTZ60, SAPMTZ61

2. 简介

3. 建立Table Control程序的基本流程

4. 使用步循环

5. 表格控制(Table Control)和步循环注意事项

6. 在屏幕表格中循环和在内表与屏幕表格中同时循环的区别

7. 确定屏幕循环的记录条目

8. MODIFY

 

 

2. 简介

 

表格控制 和步循环是用于屏幕表格显示的对象。表格控制只是增强了的步循环,它可以使用桌面应用程序中表格工具的“Look” 和“Feel”来显示数据 。表格控制还提供使表格易于查看和使用的专用格式化功能

步循环的 一个特点是它们的表行能够在屏幕上跨越多行。 相反，表格控制中的行总是单行，但可以很长。（表格控制的行能够滚动。）

通常表格控制所提供的许多特征由系统的 SAPGUI 前端操纵， 因此，不必在ABAP/4 事务中编制 任何特征（ 除了竖直滚 动）。

LOOP 语句的任务

LOOP 语句负责读取往返传递于屏幕和 ABAP/4 程序之间的屏幕表格值 。 因此必须同时在 PBO 和 PAI 事件中为屏幕中的每一个表格编制LOOP语句。至少在此应有一个空LOOP...ENDLOOP语句。 LOOP 语句还用于驱动滚动。在PBO事件中，LOOP使用一个参数告诉从表格的何处开始循环。该参数因此导致下一个屏幕表格显示的更新（对于表格控制,该参数是表格控制结构中的TOP_LINE 字段；对于步循环，该参数为用于LOOP语句的CURSOR参数。）。ABAP/4 程序和系统都可以设置该参数。

注意，屏幕表格中所显示的行数可以改变。当屏幕表格可调整并且用户更改窗口的高度时就会出现这种情况。在这种情况下，PAI中的下一个LOOP就更改PAI中传到ABAP/4程序的表格行数。

LOOP 语句有两种重要的格式 ：

LOOP

如果正在使用表格控制，就必须包括附加的 WITH CONTROL参数：

LOOP WITH CONTROL <table-control>.

       <actions>...

ENDLOOP .

该语句在屏幕表格行中循环( Table Control 有多少行就循环多少次) ，同时在每个块和程序的对应 ABAP/4 字段之间往复传送数据 。可以在 ABAP/4 中将屏幕表格字段声明为任何类型（数据库表 格、结构或 单个字段） ，内表字段除外。

对于步循环，如果正在执行本身的滚动（例如，使用 F21－F24） ，则必须使用该语句。

LOOP AT <internal table>.

该语句可同时在内表和屏幕表格行中循环。常常将此屏幕表格字段声明为内表字段，但不是非得如此。

对于该 LOOP，步循环显示都带有滚动条。该滚动由系统自动操纵。

7.     在 controls 声明的时候对应的 screen 中可以对 controls 定义的对象进行操作

Eg.

 

在屏幕表格中直接循环

在 ABAP/4 模块中，使用 SY-STEPL 以查找当前正在处理的屏幕表格行的索引。每循环一次，系统就设置一次该变量。SY-STEPL 的值总是介于 1与当前所显示的行数之间。您可以在程序中声明表格偏移量（常称为 BASE，并通常用 SY-LOOPC 初始化）并用它同SY-STEPL 一起获得与当前屏幕表格行相对应的内表行。(IND = BASE + SY-STEPL - 1.)

请记住，SY-STEPL只在LOOP...ENDLOOP处理的范围之内才有意义。

在内表中循环

LOOP AT <internal table> [CURSOR <scroll-var>]

                            [WITH CONTROL <table-control>]

                            [FROM <line1>] [TO <line2>].

    ...<actions>...

    ENDLOOP.

表示同时在内表和屏幕表格中循环。

该形式的 LOOP语句在内表中循环，对每行都执行 <actions>。对于每个内表行，系统将相应程序 字段传送到对应的屏幕表格行，或将相应的屏幕表格行传送回对应的程序字段。

使用步循环时，在PAI事件中省略CURSOR 参数。FROM和TO参数只能用于步循环。WITH CONTROL参数只能用于表格控制。

设置 <scroll-var> 以 告诉系统从何处开始显示 。对于表格控制，<scroll-var> 是TABLEVIEW 结构中的TOP_LINE字段(省略的话系统会自动设置)。对于步循环，请声明局部程序变量以用作CURSOR参数。

 

 

建立Table Control程序的基本流程.

// 主程序

1.     声明表格控制

Eg. CONTROLS: CTRL1 TYPE TABLEVIEW USING SCREEN 0901.

2.     定义要show出来的itab

DATA SP1 LIKE SPFL1 OCCURS 0 WITH HEADER LINE.

DATA SP1 LIKE TABLE OF SPFL1 WITH HEADER LINE.( 等价)

3.     增加itab数据

// 逻辑流

4.     循环读取itab逐行写入Table Control当前行.(BPO)

LOOP WITH CONTROL <table-control> [cursor tab1-CURRENT_LINE].

5.     当数据有改变时更新itab

LOOP AT <ITAB>

 CHAIN.

FIELD SP1-CARRID.

…

        MODULE TAB1_MODIFY ON CHAIN-REQUEST.

     ENDCHAIN.

   ENDLOOP.

使用步循环.

步循环分为两类：静态的和动态的。静态步循环有固定的大小，运行时无法更改。动态步循环大小可变 。如果用户重置窗口的大小，系统就会自动地增加或减小所显示的步循环块的个数。可以定义任意数量的静态步循环，但动态步循环只能有一个。

可以在屏幕制作器中指定步循环的类型。屏幕中的每一个循环都有“循环类型”（fixed＝ 静态, variable＝ 动态）和“ 循环次数” 属性。如果循环是固定的，“循环次数”告诉 系统用于显示的循环块的数量。该数值可以永久不变。编制动态和静态步循环的方法完全一样。两种类型都可以使用 LOOP 和 LOOP AT 语句。

屏幕操作如图

1.    放入field

2.    选择要编组的field,将field定义组

表格控制(Table Control)和步循环注意事项

1.     在layout设计器中放置的I/O field可以是来自dbtab,也可以是来自itab,其实是个screen可以识别的<work area>

2.     screen 上放置的I/O field和其它控件如Table Control一定要和主程序中声明的名称一致,如果放置之前没有定义的field,将会出现runtime error或者根本无法激活.

3.     无论是触发滚动条还是向下按钮,都会触发PBO/PAI逻辑流.

 

4. 在屏幕表格中循环和在内表与屏幕表格中同时循环的区别

    只在屏幕表格中循环,会以屏幕表格为主,在显示的时候需要使所要显示的内表适应屏幕,如果屏幕表格的行数比内表的行数多的话仍然会显示一些空行 如

// 逻辑流

LOOP WITH CONTROL CTRL1.

   MODULE DISPLAY_CTRL1_101 .

ENDLOOP.

// 程序

READ TABLE IMAKT INDEX CTRL1-CURRENT_LINE.

 IF SY-SUBRC = 0.

    MAKT-SPRAS = IMAKT-SPRAS.

    MAKT-MAKTX = IMAKT-MAKTX.

    CTRL1-FLAG = IMAKT-CKBOX.

 ENDIF.

    在内表与屏幕表格中同时循环可以使屏幕表格和内表同时循环.不必严格控制内表要读取那一行(个人效率较前者要高,因为不用再次搜索和判断),而且,不会显示多于的空白行.

// 逻辑流

LOOP AT IMAKT WITH CONTROL CTRL1 CURSOR CTRL1-TOP_LINE.

   MODULE DISPLAY_CTRL1_101 .

ENDLOOP.

// 程序

    MAKT-SPRAS = IMAKT-SPRAS.

    MAKT-MAKTX = IMAKT-MAKTX.

CTRL1-FLAG = IMAKT-CKBOX.

5. 在屏幕表格中放入内表 ( 工作区 ). 是屏幕表格和程序内表关联 .

l          所要放入的itab一定要使有表头的(其实屏幕要的是wa)

l        注意选择的时候要写入内表名称,选择后面的按钮

l        操作的时候直接modify那个内表系统就能自动识别user的更新.只是循环的时候要注意指针的运动,尽量使屏幕和内表一起循环.

l        由于屏幕表格和程序内表关联,所以在PAI中LOOP AT <ITAB>的时候仍然可以使用屏幕表格的各种参数eg. index ctrl1-current_line

// 逻辑流(PAI)

LOOP AT IMAKT.

    MODULE SET_LINE_COUNT_0901.

ENDLOOP.

// 程序

module SET_LINE_COUNT_0901 input

MODIFY IMAKT index ctrl1-current_line.

endmodule.

再说表格控制器

1.      在layout中设置的表格控制器和.net中的gridview有点类似 , 其中的各个列必须和要和与之关联的内表的字段名称一样, 否则将无法访问,或者是置无法取出.

2.      另外,那个 /SelColumn选项可以和itab中的一个C类型的字段关联以判断表格行的选中情况.

 

 

ABAP--- 读取DB中前n行

    SELECT * UP TO <N> ROWS ………

 

 

在屏幕编辑器中设置必须输入的栏位

确定屏幕循环的记录条目

使用 SY-STEPL 以查找当前正在处理的屏幕表格行的索引。每循环一次，系统就设置一次该变量。SY-STEPL 的值总是介于 1与当前所显示的行数之间。您可以在程序中声明表格偏移量（常称为 BASE，并通常用 SY-LOOPC 初始化）并用它同SY-STEPL 一起获得与当前屏幕表格行相对应的内表行。(IND = BASE + SY-STEPL - 1.)

MODIFY

MODIFY <itab> [FROM <wa>] [INDEX <idx>].

FROM 选项中指定的工作区域 <wa> 代替 <itab> 中的行。如果表格有表头行，可以忽略 FROM 选项。这样，表格工作区域就代替 行。

如果使用 INDEX 选项，则新 行代替索引为 <idx> 的现有行。如果替换成功，则将 SY-SUBRC 设置为 0 。 如果内表包含的行少于 <idx> ，则不更改任何行并且 SY-SUBRC 包含 4 。

如果使用没 有 INDEX 选项的 MODIFY 语句，则系统只能在 LOOP - ENDLOOP 块中通过更改当前行（ 例如由 SY-TABIX 返回其索引的行）来处理它。