SAP事件 Event Flow(转载)

时间:2022-09-10 20:13:21
1 报表过程事件 报表过程事件是在报表运行过程中由系统自动控制,按照一定次序被触发的事件,其目的是从数据库中选择数据并整理,准备进行列表输出。这些事件从报表程序启动开始就被系统顺序触发,现分述如下: INITIATION: 初始化事件,用于程序初始化,例如选择屏幕中字段默认值的填充。 START-OF-SELECTION:选择开始事件,如果报表中含有选择屏幕,则在选择屏幕的处理结束后触发,使报表程序的默认事件块。如果程序中部分代码不隶属于任何事件关键字,则自动被插入该事件块的初始部分。 END-OF-SELECTION:选择结束事件,如果程序中使用逻辑数据库,则在所有逻辑数据处理结束后触发。一般在该事件中输出列表。   2 选择屏幕事件 如果报表需要使用选择屏幕接受用户输入,除定义选择屏幕元素之外,还需要编辑选择屏幕事件块来选择屏幕行为进行控制,与其相关的系列事件将在INITIATION之后START-OF-SELECTION之前被触发。现分述如下: AT SELECTION-SCREEN OUTPUT:选择屏幕PBO事件,显示选择屏幕之前触发。 AT SELECTION-SCREEN:选择屏幕PAI事件,用户在选择屏幕中执行某些功能后被触发。该事件关键字语句包含多个附加项,可以用于控制选择屏幕状态,并对其中的用户交互进行响应。例如,当用户输入不正确的值时,给处错误消息。或是进行一些妥当性检查。

(1)其实就像一个FORM,所以在这个事件里声明的变量都是局部变量。

(2)根据SY-UCOMM这个系统变量可以判断用户的命令

(3)在这个事件里响应的是屏幕上选择条件中的事件,例如CHECKBOX的选择与否,RADIOBUTTON的选择,LISTBOX的选择等等。

所以分为以下几个方面:

1. ... ON field:在PARAMETER变化时触发的事件,对于选择屏幕某字段输入的PAI事件,当该字段的值被传递给程序时被触发,可以应用于改字段本身的正确性检查,如可系统提示错误,则可以在该字段中重新输入,此时其他元素呈灰色,不接受输入

2. ... ON END OF sel:SELECT-OPTION触发的事件,用于整个选择表输入结束后各行的检查

3. ... ON VALUE-REQUEST FOR psel_low_high:当光标位于某屏幕字段时,选择的帮助(F4)

4. ... ON HELP-REQUEST FOR psel_low_high:当光标位于某屏幕字段时,选择的帮助(F1)

5. ... ON RADIOBUTTON GROUP radi:单选按钮事件,必须进行整体输入检查

6. ... ON BLOCK block:框架的触发事件

7. ... OUTPUT:响应屏幕上的事件,修改选择屏幕的唯一方法

  3 逻辑数据库事件 如果报表中使用到逻辑数据库,则在START-OF-SELECTION事件结束后将触发数据库事件。现说明如下: GET node    选择逻辑数据库中当前级别数据中的数据。 GET node LATE 选择逻辑数据库中上一级别数据源中的数据。 逻辑数据库事件的作用也是选择并整理数据,因而也可以将其看作是一种报表过程事件。   4 列表事件 在所有报表过程和选择屏幕事件结束后,系统将开始触发列表事件,这些事件块控制列表输出状态,负责处理列表过程中的交互并响应用户行为。主要有以下四种列表事件块。 TOP-OF-PAGE:页眉控制,在每个新页面开始时触发。 END-OF-PAGE:页脚控制,在当前页面结束时触发。 AT LINE-SELECTION:行选择控制,用户选择某列表行时触发。 AT USER-COMMAND : 用户交互控制,用户选择某个GUI功能时触发。 如果一个报表中定义了后两种事件之一,则称其为交互之列表,因为这种表不仅能显示列表输出,还可以根据用户的行为给出更多其他的交互式信息。 一般性的报表事件触发过程如下: 1         一旦用户开始运行报表过程的可执行程序,事件LOAD-OF-PROGRAM首先被触发,程序开始运行。 2         INITIALZATIONG 被触发。 3         如果程序中定义了供用户输入的选择屏幕,每次选择屏幕输出之前,事件AT SELECTION-SCREEN OUTPUT 被触发。 4         如果用户在选择屏幕中输入某些值后执行某些功能,系统将触发AT SELECTION-SCREEN。 5         之后触发START-OF-SELECTION事件。 6         如果报表中使用到逻辑数据库,则接下来触发的事件为GET和GET LATE。 逻辑数据库是一种数据源,为程序提供数据筛选和整理的方式,在逻辑数据库内部,数据条目通过循环一行一行读入程序,并可以在GET事件块内部进行处理。 7         之后执行END-OF-SELECTION事件,如有列表,一般在该事件之后输出列表,此后系统运行时环境将控制交给显示服务器。 8         然后触发页眉,页脚控制的TOP-OF-PAGE和END-OF-PAGE. 9         如果程序中定义有列表事件,则系统可以响应用户在列表屏幕中的行为,触发各种程序中交互事件。行选择交互事件(AT LINE-SELECTION)允许用户从列表中选择某行,并将触发响应的事件。如果用户选择其他子定义的功能代码(功能代码与相关菜单,按钮或键盘热键有关,又程序员在GUI状态中定义),将触发用户指令交互,即AT USER-COMMAND事件。   5 事件块的中止 事件块的中止分为有条件中止和无条件中止。 1 有条件中止 CHECK CHEXK: 如果CHECK语句中的条件为假,则系统离开当前事件并转向下一个事件块(不一定是END-OF-SELECTION)。但是如果CHECK用在事件块内部的循环语句中,则只作用于当前循环。 2 无条件中止STOP,EXIT STOP: 立即结束任何当前事件,直接转向END-OF-SELECTION. EXIT: 立即离开任何模块,直接转向列表输出屏幕,不执行END-OF-SELECTION。  

实例:

Event in ABAP report determine process flow of a program. The events are triggered depended on the way the output is generated. They begin after event keyword and end when the next event reached.

Event keyword:
INITIALIZATION.
Occurs when report initialized.
We can use it to check user authorization or prepare output for selection screen.

AT SELECTION-SCREEN OUTPUT :
Occurs each time selection screen about to generated.
We can use it to modify selection screen, for example hide / unhide parameter.

AT SELECTION-SCREEN.
Occurs each user command in selection screen. we can use it to perform checking on user input.

START-OF-SELECTION
Occurs after the standard selection screen has been processed.,
data is read in this event.

END-OF-SELECTION
Occurs after start-of-selection.

TOP-OF-PAGE
Occurs when a new page starts.
Use it for write report header.

END-OF-PAGE
Occurs when a page ends.
Use it for write report footer.

AT LINE-SELECTION
Occurs when the user double-click on report.

AT USER-COMMAND
Occurs when the user push toolbar button.

This is program to demonstrate how to use event properly.

REPORT zt_event LINE-COUNT 10(1).

*http://abap-gallery.blogspot.com

TABLES: sflight.

DATA: BEGIN OF t_report OCCURS 3,
carrid
LIKE sflight-carrid,
connid
LIKE sflight-connid,
END OF t_report.

*begin selection screen
PARAMETERS p_datum LIKE sy-datum.
PARAMETERS p_check AS CHECKBOX.
*end selection screen

INITIALIZATION.
*begin initialization
MOVE sy-datum TO p_datum.
*end initialization

AT SELECTION-SCREEN.
*begin at selection-screen
MESSAGE i888(sabapdocu) WITH 'At selection-screen'.
IF p_check = 'X'.
MESSAGE e888(sabapdocu) WITH 'Clear checkbox'.
ENDIF.
*end at selection-screen

AT SELECTION-SCREEN OUTPUT.
*begin at selection-screen output
MESSAGE i888(sabapdocu) WITH 'At selection-screen output'.
*end at selection-screen output

START-OF-SELECTION.
*begin start-of-selection.
MESSAGE i888(sabapdocu) WITH 'start-of-selection'.
SELECT * FROM sflight.
MOVE sflight-carrid TO t_report-carrid.
MOVE sflight-connid TO t_report-connid.
APPEND t_report.
ENDSELECT.
*end start-of-selection.

END-OF-SELECTION.
*begin end-of-selection.
MESSAGE i888(sabapdocu) WITH 'end-of-selection'.
FORMAT COLOR COL_NORMAL.
DO 30 TIMES.
LOOP AT t_report.
WRITE / t_report-carrid.
WRITE t_report-connid.
ENDLOOP.
ENDDO.
*end end-of-selection.

TOP-OF-PAGE.
FORMAT COLOR COL_HEADING.
WRITE 'This is header'.

END-OF-PAGE.
FORMAT COLOR COL_TOTAL.
WRITE 'This is footer'.

AT LINE-SELECTION.
WRITE: / 'Cursor Row:', sy-curow.
WRITE: / 'Cursor Col:', sy-cucol.