关于 ABAP EVENT 事件

已于 2024-07-19 14:12:14 修改
阅读量326 收藏 4
点赞数 3
文章标签： 前端 javascript 开发语言
于 2024-07-19 11:29:34 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_43847969/article/details/140540667
版权

既然面试问到了，那么就正好复习一下，
这里的EVENT有两种，先说我比较熟悉的那种，就是BAPI 'REUSE_ALV_GRID_DISPLAY_LVC’里的 it_events 和 it_event_exit

以下为代码示例

  data:lt_event_exit type slis_t_event_exit,
       ls_event_exit type slis_event_exit.

  ls_event_exit-ucomm = '&SAL'.
  ls_event_exit-after = 'X'.
  append ls_event_exit to lt_event_exit.
  ls_event_exit-ucomm = '&ALL'.
  ls_event_exit-after = 'X'.
  append ls_event_exit to lt_event_exit.
  perform frm_build_events changing it_events.

  call function 'REUSE_ALV_GRID_DISPLAY_LVC'
    exporting
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'SET_PF_STATUS'
      i_callback_user_command  = 'USER_COMMAND'
      is_layout_lvc            = gt_layout
      it_fieldcat_lvc          = gt_fieldcat
      i_save                   = 'X'
      it_events                = it_events[]
      it_event_exit            = lt_event_exit
    tables
      t_outtab                 = gt_out
    exceptions
      program_error            = 1
      others                   = 2.
  if sy-subrc <> 0.
//Implement suitable error handling here
  endif.

下面是网上手机的一些关于ALV的 IT_EVENT事件的一些说明
原文链接：https://blog.csdn.net/Leo520liang/article/details/138300597
1.事件类型，
ALV框架提供了多种标准事件，例如 ,TOP_OF_PAGE(页头信息)、END_OF_PAGE（页尾信息）、USER_COMMAND（用户按钮）这些事件允许开发者在特定的时刻执行自定义的逻辑代码，例如当用户执行某个命令时或者页面状态发生变化时。
2.注册事件
可以通过向内表it_events 添加事件来注册想要的事件，每个事件由一个数据类型为slis_alv_event的结构体表示，它包含了事件的名称和处理该事件的表单（Form）的名称
3.事件处理
一旦事件发生，系统会调用阈值关联的表单。表单是一个ABAP子程序。它接收特定的参数，允许开发者在其中编写处理事件的代码。
4.使用场景
通过使用事件，可以实现对ALV显示的精细控制，如根据用户的选择改变屏幕元素的状态，或者在用户执行某些操作时触发特定的业务逻辑。

DATA: gt_events TYPE slis_t_event.     "ALV 事件
…
*屏幕开始事件
START-OF-SELECTION.
…
  PERFORM f_get_event.
  PERFORM f_alvshow.
…
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_events          = gt_events
…
FORM f_get_event.
  DATA ls_formname TYPE slis_formname VALUE 'F_TOP_OF_PAGE'.
  DATA ls_events   TYPE LINE OF slis_t_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = gt_events
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
* 修改TOP_OF_PAGE以加入表头，设置处理子程序为'F_TOP_OF_PAGE'
  CLEAR gv_index.
  CLEAR ls_events.
  READ TABLE gt_events INTO ls_events WITH KEY name = slis_ev_top_of_page.
  IF sy-subrc = 0.
    gv_index = sy-tabix.
    MOVE ls_formname TO ls_events-form.
    MODIFY gt_events FROM ls_events INDEX gv_index.
  ELSE.
    ls_events-form = ls_formname.
    ls_events-name = slis_ev_top_of_page.
    APPEND ls_events TO gt_events.
  ENDIF.
* 也可以直接添加
  ls_events-name = 'CALLER_EXIT'.   "自定义事件
  ls_events-form = 'F_BUTTON'.
  APPEND ls_events TO gt_events.
ENDFORM.                    
 
FORM f_button USING e_grid TYPE slis_data_caller_exit.
 …
ENDFORM.  
 
FORM f_top_of_page.
 …
ENDFORM.

此处可以设置页头信息文字。
从中我们主义看
同时将自己的代码和网上的代码结合，得到

*&---------------------------------------------------------------------*
*& Report ZITEVENT_TEST
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZITEVENT_TEST.
TYPE-POOLS:slis.
DATA:gt_fieldcat TYPE slis_t_fieldcat_alv,
     gs_fieldcat TYPE slis_fieldcat_alv,
     gs_layout   TYPE slis_layout_alv,
     gv_repid    TYPE sy-repid.

DATA:gt_spfli LIKE STANDARD TABLE OF spfli WITH HEADER LINE.

* 全局变量
DATA: gv_index  TYPE sy-tabix.
DATA: gt_events TYPE slis_t_event.     "ALV 事件
INITIALIZATION.
  gv_repid = sy-repid.
*屏幕开始事件
START-OF-SELECTION.
  PERFORM f_getdata.
  PERFORM f_catalog.
  PERFORM f_get_event.
  PERFORM f_alvshow.
FORM f_getdata.
  SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE gt_spfli.
ENDFORM.
FORM f_catalog.
*fieldcat属性
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = gv_repid
      i_structure_name       = 'SPFLI'
    CHANGING
      ct_fieldcat            = gt_fieldcat "导出gt_fieldcat内表数据
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CLEAR gs_fieldcat.
*"对gt_fieldcat属性的修改
  READ TABLE gt_fieldcat INTO gs_fieldcat INDEX 2. "将第二列设为热点显示
  gs_fieldcat-hotspot = 'X'.
  MODIFY gt_fieldcat  FROM gs_fieldcat INDEX 2.

*layout属性
  gs_layout-zebra = 'X'."斑马线显示
  gs_layout-colwidth_optimize = 'X'."列宽度最优化显示
ENDFORM.

FORM f_alvshow.
  data:lt_event_exit type slis_t_event_exit,
       ls_event_exit type slis_event_exit.

  ls_event_exit-ucomm = '&SAL'.
  ls_event_exit-after = 'X'.
  append ls_event_exit to lt_event_exit.
  ls_event_exit-ucomm = '&ALL'.
  ls_event_exit-after = 'X'.
  append ls_event_exit to lt_event_exit.



  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = gv_repid
      i_grid_title       = 'ALV REPORT TEST' "ALV显示标题
      is_layout          = gs_layout
      it_fieldcat        = gt_fieldcat
      it_events          = gt_events
      it_event_exit            = lt_event_exit
    TABLES
      t_outtab           = gt_spfli
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
       WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.
FORM f_get_event.
  DATA ls_formname TYPE slis_formname VALUE 'F_TOP_OF_PAGE'.
  DATA ls_events   TYPE LINE OF slis_t_event.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = gt_events
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
* 修改TOP_OF_PAGE以加入表头，设置处理子程序为'F_TOP_OF_PAGE'
  CLEAR gv_index.
  CLEAR ls_events.
  READ TABLE gt_events INTO ls_events WITH KEY name = slis_ev_top_of_page.
  IF sy-subrc = 0.
    gv_index = sy-tabix.
    MOVE ls_formname TO ls_events-form.
    MODIFY gt_events FROM ls_events INDEX gv_index.
  ELSE.
    ls_events-form = ls_formname.
    ls_events-name = slis_ev_top_of_page.
    APPEND ls_events TO gt_events.
  ENDIF.
  ls_events-name = 'CALLER_EXIT'.   "自定义事件
  ls_events-form = 'F_BUTTON'.
  APPEND ls_events TO gt_events.

ENDFORM.

FORM f_button USING e_grid TYPE slis_data_caller_exit.
  MESSAGE '事件触发' TYPE 'S'.
ENDFORM.
FORM f_top_of_page.
  DATA: i_header  TYPE  slis_t_listheader,
         wa_header TYPE slis_listheader.

* 位于标题第一行
  wa_header-typ  = 'H'.
  wa_header-info = 'ALV DEMO' .
  APPEND wa_header TO i_header .
  CLEAR  wa_header .

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_header
      i_alv_form         = 'X'.
ENDFORM.
月阴荒
关注
  • 3
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
sap ABAP 事件 event 的声明及调用
12-14
sap中ABAP开发常用事件的定义及调用 文档展示了逻辑关系
ABAP 的事件
liangziyisheng的专栏
01-06 3047
深刻理解abap事件触发机制是保证程序健壮的必要条件
ABAP程序中的事件
qq_53645728的博客
03-03 1146
ABAP程序中的事件
报表中常用的事件以及作用
liangziyisheng的专栏
01-04 1040
做report需要熟练掌握一些事件，这样才能顺利的跑完理想的逻辑过程
ABAP EVENT 事件
昊宇的笔记本
11-19 2473
ABAP EVENT 事件 2017年09月03日 21:33:52 zxkyyf 阅读数：443更多 个人分类： ABAP-EVENT CLASS class1 DEFINITION INHERITING FROM object. PUBLIC SECTION. EVENTS: too_fast. ” 声明事件,如果有参数恒为值传递 METHODS: accelerate, show_speed...
abap_报表程序各事件详解
笔直前行
04-19 1780
文章目录前言1、LOAD-OF-PROGRAM2、INITIALIZATION3、AT SELECTION-SCREEN OUTPUT4、AT SELECTION-SCREEN5、START-OF-SELECTION6、END-OF-SELECTION总结 前言 一个程序是怎么跑起来了，中间经历了什么，我们今天学习peport程序的各个节点触发时机。 1、LOAD-OF-PROGRAM 这个事件主要是针对与全局变量的加载，internalSession加载的时候会在这个步骤把所有的全局变量加载都内存。
SAP ABAP 定义事件以及处理事件
Sunflower
08-30 1754
事件可以在类或接口中进行声明.EXPORTING使用来指定该事件的参数VALUE(E)e表示参数名 ,ty 就是参数类型.注意:事件的参数参数传递方式恒为值传递。
abap4.0实例程序开发
11-23
在实际项目中，ABAP程序员会根据需求编写报表、对话程序、函数模块等，通过ABAP工作流（Workflows）和事件处理（Event Handling）实现复杂的业务逻辑。 总结，ABAP 4.0实例程序开发涵盖了从基本语法到高级特性的...
abap学习资料.zip
04-23
- 工作流事件（Event）和工作流消息（Message）用于流程控制。 10. **ABAP开发工具** - SAP Development Tools（SAP GUI for Eclipse）是主流的ABAP开发环境。 - ABAP Development Tools（ADT）基于Eclipse，...
ABAP开发教程
03-15
5. 事件处理（EVENT HANDLING）：通过定义事件和事件处理程序，实现程序间的通信和交互。 四、数据库交互 1. SELECT语句：用于从数据库中检索数据，ABAP提供了直接操作数据库表的能力。 2. SQL语句增强：ABAP可以...
ABAP开发规范.doc
11-27
- **声明和关键字**：Event、Control、Form、Module等声明和INCLUDE关键字应独占一行，并添加注释。 - **代码格式化**：推荐使用PRETTY PRINTER工具自动格式化代码，确保代码风格统一。 **7. Report程序结构** - *...
ABAP 事件块
alvamai的专栏
04-19 1961
1.      报表过程事件 报表过程事件是在报表运行过程中由系统自动控制、按照一定次序被触发的事件，其目的是从数据库中选择数据并整理，准备进行列表输出。这些事件从报表程序启动开始就被系统顺序触发。   INITIALIZATION   初始化事件，用于程序初始化，例如选择屏幕中字段默认值得填充。   START-OF-SELECTION  选择开始事件，如果报表中含有选择屏幕，则在选择
ABAP报表的屏幕事件
10-06 1564
1. INITIALIZATION （1）.只能用于报表程序 （2）.在选择屏幕出现之前执行，如果用逻辑数据库的话，这个是唯一能够修改选择屏幕初始值的地方。 （3）.通常的用法是在这里给选择屏幕中的字段赋值。 2.  START-OF-SELECTION 报表程序必须执行的事件，在进入第二屏幕之前触发。 3.AT SELECTION-SCREEN （1）.其实就像一个FORM
【转载】ABAP面向对象(Object Orientation)编程8-类的事件(event)
hubaichun的专栏
11-23 1334
1, 事件 事件(event)是除去属性, 方法之外的第三类成员. 这三种组件中, 属性用于刻画类对象的状态, 方法用于访问或修改对象状态, 而事件则用于一个类对象发布其状态的改变, 因而其他对象可以捕获该方法并作出响应. 在ABAP Object 中, 事件的触发和处理是通过特定的方法进行的, 一个方法作为触发者触发事件, 而程序中的另一个方法则作为处理者捕获并处理该事件, 处理方法在事件出...
ABAP事件的简单用法
weixin_30294709的博客
01-30 266
1.1、事件： 用于捕获某类对象状态的改变来触发事件的方法，并进行处理 1.2、定义：可以在类或接口中进行声明 　　EVENTS|CLASS-EVENTS evt　　EXPORTING … VALUE(p1) TYPE type|LIKE f [OPTIONAL|DEFAULT g] ... 　　实例事件中包含一个隐含参数SENDER，该参数的类型为触发时间的类或接口对象引用 1.3、...
ABAP SALV-选择模式、触发事件
最新发布
qq_33518131的博客
03-31 579
在本篇文章中，将会介绍ABAP SALV中如何设置选择模式、添加触发事件
选择屏幕及ABAP程序事件
weixin_46649583的博客
04-07 2932
选择屏幕 选择屏幕用于输入数据选择的选择标准 选择屏幕也是屏幕，这些屏幕是根据源代码中的声明语句生成的 选择屏幕标准功能： 文本（选择文本）能够以多种语言进行维护 在运行时，文本会自动以用户的登录语言显示。 自动检查类型 检查用户输入的内容与输入字段的类型是否相符 除单一值（PARAMETERS）外，还有复杂选择（SELECT-OPTIONS） 可输入间隔、范围、比较条件等为限制条件 使用字典元素（如数据元素）定义输入字段 使用F1输入字段中显示字段文档（数据元素文档） 通过F4调用附加
ABAP 报表模板（二）选择屏幕的事件控制
Pegasus666的博客
08-15 253
上次已经完成了屏幕元素的开发，接着就是到屏幕事件的控制，可以理解为排版，为程序的执行顺序定好一个规则，而不是一镜到底。 选择屏幕的事件控制事件基本分布一、？二、使用步骤2.读入数据总结 事件基本分布 事件共有多少个？ 1.INITIALIZATION 2.START-OF-SELECTION 3.END-OF-SELECTION 4.AT SELECTION-SCREEN 4.1 AT SELECTION-SCREEN OUT 4.2 AT SELECTION-SCREEN ON {PARA|SELCRIT
abap 事件处理
05-26
在 ABAP 中，使用事件处理程序可以自动响应特定事件。事件是在系统中发生的操作或状态更改，例如按下按钮、更改字段值或选择菜单项。 事件处理程序由以下几个部分组成： 1. 事件：定义事件的名称和类型。 2. 事件处理程序：定义在事件发生时要执行的代码。 3. 事件链：将事件与表单、屏幕或程序中的其他对象相关联。 在 ABAP 中，可以使用以下语句创建事件处理程序： ``` EVENTS event_name TYPE type_of_event. ``` 该语句定义了一个名为 event_name 的事件，并指定了事件类型 type_of_event。 然后，可以使用以下语句将事件处理程序与事件相关联： ``` SET HANDLER event_handler FOR event_name. ``` 该语句将 event_handler 指定为与 event_name 相关联的事件处理程序。当事件发生时，ABAP 将自动调用事件处理程序。 例如，以下代码创建了一个名为 button_press 的事件处理程序： ``` CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS: on_button_press FOR EVENT button_press OF cl_gui_button. ENDCLASS. CLASS lcl_event_handler IMPLEMENTATION. METHOD on_button_press. WRITE: / 'Button pressed!'. ENDMETHOD. ENDCLASS. DATA: o_button TYPE REF TO cl_gui_button, o_event_handler TYPE REF TO lcl_event_handler. CREATE OBJECT o_button EXPORTING text = 'Press me'. CREATE OBJECT o_event_handler. SET HANDLER o_event_handler->on_button_press FOR o_button. ``` 该代码创建了一个名为 o_button 的 GUI 按钮，并将其与一个名为 button_press 的事件相关联。然后，使用 SET HANDLER 语句将 o_event_handler 的 on_button_press 方法与 button_press 事件相关联。当用户按下按钮时，ABAP 将自动调用 on_button_press 方法，并显示“Button pressed!”消息。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值