SAP ABAP alv中设置回车事件

最新推荐文章于 2025-03-28 10:34:01 发布
原创 最新推荐文章于 2025-03-28 10:34:01 发布 · 1.2w 阅读 · 6 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

这是一个关于如何在SAP ABAP中处理ALV（Accelerated List Viewer）的回车事件并实现自动刷新的示例代码。程序定义了事件处理函数，包括注册编辑事件、触发稳定刷新的方法，并展示了如何在ALV表格中响应用户输入。

* 添加这段刷新代码
  READ TABLE t_data_hz INDEX rs_selfield-tabindex.    " 将变动内容更新到内表
  DATA: lr_grid TYPE REF TO cl_gui_alv_grid.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
       IMPORTING
            e_grid = lr_grid.
  CALL METHOD lr_grid->check_changed_data.
  rs_selfield-refresh = 'X'.  "自动刷新

 

 

在from里把function转为OO就可以了
定义了
WA_EVENTS-NAME = 'CALLER_EXIT'.
WA_EVENTS-FORM = 'FM_BUTTON'.
APPEND WA_EVENTS TO GV_EVENTS.

FORM FM_BUTTON USING E_GRID TYPE SLIS_DATA_CALLER_EXIT.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
*   EXPORTING
*     IR_SALV_FULLSCREEN_ADAPTER       =
    IMPORTING
*     ET_EXCLUDING                     =
*     E_REPID                          =
*     E_CALLBACK_PROGRAM               =
*     E_CALLBACK_ROUTINE               =
      E_GRID                           = TEM_GRID
*     ET_FIELDCAT_LVC                  =
*     ER_TRACE                         =
*     E_FLG_NO_HTML                    =
*     ES_LAYOUT_KKBLO                  =
*     ES_SEL_HIDE                      =
*     ET_EVENT_EXIT                    =
*     ER_FORM_TOL                      =
*     ER_FORM_EOL                      =
            .

* 设置enter事件
  CALL METHOD TEM_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = cl_gui_alv_grid=>mc_evt_enter
    EXCEPTIONS
      ERROR      = 1
      others     = 2
          .

  CREATE OBJECT GV_EVENT_RECEIVER.
  SET HANDLER GV_EVENT_RECEIVER->HANDLE_MODIFY FOR TEM_GRID.
ENDFORM.

GV_EVENT_RECEIVER的类定义：
CLASS LCL_EVENT_RECEIVER DEFINITION.
  PUBLIC SECTION.
    METHODS:
      HANDLE_MODIFY
        FOR EVENT data_changed_finished OF CL_GUI_ALV_GRID
        IMPORTING E_MODIFIED ET_GOOD_CELLS.
ENDCLASS.

CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
  METHOD  HANDLE_MODIFY.
    data        STBL      TYPE LVC_S_STBL.
*   稳定刷新
    STBL-ROW = 'X'." 基于行的稳定刷新
    STBL-COL = 'X'." 基于列稳定刷新
    CALL METHOD TEM_GRID->REFRESH_TABLE_DISPLAY
      EXPORTING
        IS_STABLE      = STBL.
  ENDMETHOD.

*    FREE: TEM_POP_CONTAINER, TEM_POP_ALV.


ENDCLASS.

 

我写的一个测试程序，看看这样行不，可别见笑呀。

*&---------------------------------------------------------------------*
*& Report  ZTEST_TTEST_ALV
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_TTEST_ALV.

TYPE-POOLS: SLIS.

TYPES:
  BEGIN OF TYP_VALUE,
    TITLE TYPE CHAR40,
    WAERS TYPE BSID-WAERS,
    DMBTR TYPE BSID-DMBTR,
  END OF TYP_VALUE.

CONSTANTS:
  CNS_H      TYPE CHAR1         VALUE 'H',
  CNS_S      TYPE CHAR1         VALUE 'S',
  CNS_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS_ALV',
  CNS_TOPPG  TYPE SLIS_FORMNAME VALUE 'SET_TOP_OF_PAGE_ALV'.

DATA:
  GT_VALUE      TYPE TABLE OF TYP_VALUE,
  GS_VALUE      TYPE TYP_VALUE,
  GT_TOTAL      TYPE TABLE OF TYP_VALUE,
  GS_TOTAL      TYPE TYP_VALUE,
  GW_DMBTR(16)  TYPE P DECIMALS 3,
  GT_EVENT      TYPE  SLIS_T_EVENT ,
  GS_EVENT      LIKE LINE OF GT_EVENT,
  GT_FIELDCAT   TYPE SLIS_T_FIELDCAT_ALV ,"ALV項目部テーブル
  GS_FIELDCAT   LIKE LINE OF GT_FIELDCAT, "ALV項目部テーブルヘッダ
  GT_TITLE      TYPE SLIS_T_LISTHEADER,   "ALVヘッダー内部テーブル
  GS_TITLE      LIKE LINE OF GT_TITLE.    "ALVヘッダ内部テーブルヘッダ

DATA:
  LAYOUT       TYPE SLIS_LAYOUT_ALV ,
  I_GRID_TITLE TYPE LVC_TITLE,
  TEM_GRID     TYPE REF TO CL_GUI_ALV_GRID.

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER DEFINITION.
  PUBLIC SECTION.
    METHODS:
      HANDLE_MODIFY
        FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
        IMPORTING E_MODIFIED ET_GOOD_CELLS.
ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION

*----------------------------------------------------------------------*
*       CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.

  METHOD  HANDLE_MODIFY.
    DATA        STBL      TYPE LVC_S_STBL.
*   稳定刷新
    STBL-ROW = 'X'." 基于行的稳定刷新
    STBL-COL = 'X'." 基于列稳定刷新
    CALL METHOD TEM_GRID->REFRESH_TABLE_DISPLAY
      EXPORTING
        IS_STABLE = STBL.
  ENDMETHOD.                    "HANDLE_MODIFY

ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION


START-OF-SELECTION.

  PERFORM FRM_SET_VALUE.

  PERFORM SET_OUTPUT_FIELDCAT USING:
    'TITLE'      TEXT-L14 SPACE 'L'  SPACE   SPACE SPACE SPACE,
    'WAERS'      TEXT-L01 SPACE 'L'  SPACE   SPACE SPACE SPACE,
    'DMBTR'      TEXT-L02 SPACE 'L'  'WAERS' SPACE 'X'  'X'.

  PERFORM SET_LAYOUT.

  PERFORM FRM_SET_EVENT.

  PERFORM SET_TOP_OF_PAGE_ALV.

* ALV GridControl 全画面
  PERFORM DISPLAY_ALV.

*&---------------------------------------------------------------------*
*&      Form  SET_OUTPUT_FIELDCAT
*&---------------------------------------------------------------------*
*       輸出固定列の定義
*----------------------------------------------------------------------*
*      -->PU_FIELDNAME  フィールドネーム
*      -->PU_SELTEXT_L  フィールドテキスト
*      -->PU_NO_OUT     アウトプット
*      -->PU_JUST       左詰
*      -->PU_CUR        通貨コード
*      -->PU_DECIMALS   小数点以下のN桁
*      -->PU_EDIT       編集
*      -->PU_DOSUM      集計
*----------------------------------------------------------------------*
FORM SET_OUTPUT_FIELDCAT  USING    PU_FIELDNAME  TYPE CHAR30
                                   PU_SELTEXT_L  TYPE CHAR100
                                   PU_NO_OUT     TYPE CHAR1
                                   PU_JUST       TYPE CHAR1
                                   PU_CUR        TYPE CHAR30
                                   PU_DECIMALS
                                   PU_EDIT
                                   PU_DOSUM.

  IF PU_CUR <> SPACE.
    GS_FIELDCAT-CFIELDNAME = PU_CUR.
  ENDIF.
  IF PU_DECIMALS <> 0.
    GS_FIELDCAT-DECIMALS_OUT = PU_DECIMALS.
  ENDIF.
  GS_FIELDCAT-FIELDNAME = PU_FIELDNAME.
  GS_FIELDCAT-SELTEXT_L = PU_SELTEXT_L.
  GS_FIELDCAT-NO_OUT    = PU_NO_OUT.
  GS_FIELDCAT-JUST      = PU_JUST.
  GS_FIELDCAT-EDIT = PU_EDIT.
  GS_FIELDCAT-DO_SUM = PU_DOSUM.
  APPEND GS_FIELDCAT TO GT_FIELDCAT.
  CLEAR GS_FIELDCAT.

ENDFORM.                    " SET_OUTPUT_FIELDCAT

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM DISPLAY_ALV .
  DATA: LW_CPROG TYPE SY-CPROG.                     "呼出プログラム
  LW_CPROG = SY-CPROG.

* ALV GridControl 全画面
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = LW_CPROG          "プログラム
      IT_FIELDCAT              = GT_FIELDCAT       "項目属性
      I_SAVE                   = 'A'               "自動保存
      I_CALLBACK_PF_STATUS_SET = CNS_STATUS        "GUIステータス
      I_CALLBACK_TOP_OF_PAGE   = CNS_TOPPG         "トップページ
      IT_EVENTS                = GT_EVENT
      IS_LAYOUT                = LAYOUT
      I_GRID_TITLE             = I_GRID_TITLE     "タイトル
    TABLES
      T_OUTTAB                 = GT_VALUE         "出力テーブル
    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.                    " DISPLAY_ALV

*&---------------------------------------------------------------------*
*&      Form SET_PF_STATUS_ALV
*&---------------------------------------------------------------------*
*       ALV GUI ステータスの設定
*----------------------------------------------------------------------*
FORM SET_PF_STATUS_ALV USING PU_EXTAB TYPE SLIS_T_EXTAB.

* ALV GUI ステータス
  SET PF-STATUS 'STANDARD'.

ENDFORM.                    " SET_PF_STATUS_ALV

*&---------------------------------------------------------------------*
*&      Form  SET_TOP_OF_PAGE_ALV
*&---------------------------------------------------------------------*
*       TOP OF PAGE
*----------------------------------------------------------------------*
FORM SET_TOP_OF_PAGE_ALV .

* 初期化
  CLEAR GS_TITLE.
  REFRESH GT_TITLE.

* ローカル変数の定義
  DATA:
    LW_LOW   TYPE CHAR6,
    LW_YEAR  TYPE CHAR6,     "年
    LW_OPTRG TYPE CHAR20.    "輸出範囲

  LW_YEAR  = SY-DATUM+0(4) + 3.
  CONDENSE LW_YEAR.
  LW_YEAR+4(2) = SY-DATUM+4(2).
  LW_LOW = SY-DATUM+0(6).
  CONCATENATE LW_LOW '~' LW_YEAR INTO LW_OPTRG.

  PERFORM CREATE_TITLE USING :
          CNS_H SPACE  TEXT-H01 ,     "タイトル
          CNS_S TEXT-H02 '1000'.       "会社コード

  PERFORM CREATE_TITLE USING :
          CNS_S TEXT-H04 LW_OPTRG.      "年月

* 汎用モジュールを呼び出して画面タイトルテキストを出力する
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = GT_TITLE.

ENDFORM.                    " SET_TOP_OF_PAGE_ALV

*&---------------------------------------------------------------------*
*&      Form  CREATE_TITLE
*&---------------------------------------------------------------------*
*       タイトル
*----------------------------------------------------------------------*
*      -->PU_TYPE タイプ
*      -->PU_KEY  キー
*      -->PU_INFO 情報
*----------------------------------------------------------------------*
FORM CREATE_TITLE  USING    PU_TYPE TYPE CHAR1
                            PU_KEY  TYPE CHAR20
                            PU_INFO .

  GS_TITLE-TYP  = PU_TYPE.                  "ヘッダー
  GS_TITLE-KEY  = PU_KEY.                   "キー
  GS_TITLE-INFO = PU_INFO.
  APPEND GS_TITLE TO GT_TITLE.

ENDFORM.                    " CREATE_TITLE

*&---------------------------------------------------------------------*
*&      Form  SET_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM SET_LAYOUT .

  DATA: TITLE(50) TYPE C.
  LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "OPTIMIZE

  TITLE = '配件周生产计划 明细表'.
  WRITE TITLE TO TITLE CENTERED.
  I_GRID_TITLE = TITLE.    "ALV TITLE
  I_GRID_TITLE = I_GRID_TITLE  .
ENDFORM.                    " SET_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  FRM_SET_VALUE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FRM_SET_VALUE .

  GS_VALUE-TITLE = 'Japanese (Export.) class'.
  GS_VALUE-WAERS = 'CNY'.
  GS_VALUE-DMBTR = '1088880'.
  APPEND GS_VALUE TO GT_VALUE.

  CLEAR GS_VALUE.
  GS_VALUE-TITLE = 'Japanese (Export.) class'.
  GS_VALUE-WAERS = 'JPY'.
  GS_VALUE-DMBTR = '10999909'.
  APPEND GS_VALUE TO GT_VALUE.

  CLEAR GS_VALUE.
  GS_VALUE-TITLE = 'Japanese (Export.) class'.
  GS_VALUE-WAERS = 'USD'.
  GS_VALUE-DMBTR = '10666609'.
  APPEND GS_VALUE TO GT_VALUE.

  CLEAR GS_VALUE.
  GS_VALUE-TITLE = 'Japanese (Export.) class'.
  GS_VALUE-WAERS = 'JPY'.
  GS_VALUE-DMBTR = '1009'.
  APPEND GS_VALUE TO GT_VALUE.
  CLEAR GS_VALUE.

  GS_VALUE-TITLE = 'Japanese (Export.) class'.
  GS_VALUE-WAERS = 'HKD'.
  GS_VALUE-DMBTR = '1009'.
  APPEND GS_VALUE TO GT_VALUE.
  CLEAR GS_VALUE.

  GS_VALUE-TITLE = 'Japanese (Export.) class'.
  GS_VALUE-WAERS = 'JPY'.
  GS_VALUE-DMBTR = '1009'.
  APPEND GS_VALUE TO GT_VALUE.

  CLEAR GS_VALUE.

  GS_VALUE-TITLE = 'KOREA  (Export.) class'.
  GS_VALUE-WAERS = 'CNY'.
  GS_VALUE-DMBTR = '2800'.
  APPEND GS_VALUE TO GT_VALUE.

  CLEAR GS_VALUE.
  GS_VALUE-TITLE = 'KOREA  (Export.) class'.
  GS_VALUE-WAERS = 'JPY'.
  GS_VALUE-DMBTR = '2090'.
  APPEND GS_VALUE TO GT_VALUE.


  CLEAR GS_VALUE.
  GS_VALUE-TITLE = 'KOREA  (Export.) class'.
  GS_VALUE-WAERS = 'USD'.
  GS_VALUE-DMBTR = '2090'.
  APPEND GS_VALUE TO GT_VALUE.

  CLEAR GS_VALUE.
  GS_VALUE-TITLE = 'KOREA  (Export.) class'.
  GS_VALUE-WAERS = 'JPY'.
  GS_VALUE-DMBTR = '2090'.
  APPEND GS_VALUE TO GT_VALUE.
  CLEAR GS_VALUE.

  GS_VALUE-TITLE = 'KOREA  (Export.) class'.
  GS_VALUE-WAERS = 'HKD'.
  GS_VALUE-DMBTR = '2090'.
  APPEND GS_VALUE TO GT_VALUE.
  CLEAR GS_VALUE.

  GS_VALUE-TITLE = 'KOREA  (Export.) class'.
  GS_VALUE-WAERS = 'JPY'.
  GS_VALUE-DMBTR = '2090'.
  APPEND GS_VALUE TO GT_VALUE.

ENDFORM.                    " FRM_SET_VALUE
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_EVENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FRM_SET_EVENT .

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = GT_EVENT
    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.

READ TABLE GT_EVENT INTO GS_EVENT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE.

  IF SY-SUBRC = 0 .
    GS_EVENT-FORM = 'SET_TOP_OF_PAGE_ALV'.
    APPEND  GS_EVENT TO GT_EVENT.
  ENDIF.

  READ TABLE GT_EVENT INTO GS_EVENT  WITH KEY NAME = SLIS_EV_END_OF_LIST.

  IF SY-SUBRC = 0.
    GS_EVENT-FORM = 'ALV_END_OF_LIST'.
    APPEND  GS_EVENT TO GT_EVENT.
  ENDIF.

  GS_EVENT-NAME = 'CALLER_EXIT'.
  GS_EVENT-FORM = 'FM_BUTTON'.
  APPEND GS_EVENT TO GT_EVENT.

ENDFORM.                    " FRM_SET_EVENT

*&---------------------------------------------------------------------*
*&      Form  FM_BUTTON
*&---------------------------------------------------------------------*
*       ENTER 事件
*----------------------------------------------------------------------*
*      -->E_GRID     text
*----------------------------------------------------------------------*
FORM FM_BUTTON USING E_GRID TYPE SLIS_DATA_CALLER_EXIT.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = TEM_GRID.

* 設定 ENTER 事件
  CALL METHOD TEM_GRID->REGISTER_EDIT_EVENT
    EXPORTING
      I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER
    EXCEPTIONS
      ERROR      = 1
      OTHERS     = 2.

  DATA: GT_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER .
  CREATE OBJECT GT_EVENT_RECEIVER.
  SET HANDLER GT_EVENT_RECEIVER->HANDLE_MODIFY FOR TEM_GRID.

ENDFORM.                    "FM_BUTTON


 

在弹出对话框窗口里显示 SAP ABAP ALV 列表
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
09-10 3256
本文介绍如何在弹出对话框窗口里显示 SAP ABAP ALV 列表。在实际项目中，这也是一种很有用的报表展现形式，比如我们自开发的 Screen 界面，绘制了一个按钮，点击按钮后，弹出一个对话框窗口，里面显示的是一个 ALV 列表。
具备自动刷新功能的 SAP ABAP ALV 报表
2007 年 ~ 2025 年，深耕 SAP 技术 18 年
05-16 1293
该报表主要结构如下，完整代码见文末。 f_call_rfc_wait: 发起异步调用，等待 1 秒钟，来模拟每隔 1 秒刷新屏幕的效果。 f_display_data: ALV 常规操作，调用函数 REUSE_ALV_LIST_DISPLAY 显示 ALV 数据。 f_read_data: 调用函数 THUSRINFO，返回的结果作为 ALV 的数据源。该函数返回当前系统登录的用户名列表： 完整代码： REPORT ZALV_AUTO_REFRESH. DATA : gt_user
ALV可编辑行输入数据后抓取回车事件
lyb_yt的专栏
10-27 5134
DATA: stbl               TYPE lvc_s_stbl. DATA: w_ref_alv          TYPE REF TO cl_gui_alv_grid.   定义类 *  ----------------------------------------------------------------------* *         CLASS lc
在ALV里编写回车事件
06-28
在ALV里编写回车事件，通过回车操作数据！
ABAP ALV编辑后触发事件
a86632678的博客
03-30 3721
1.FUNCTION ALV在it_events的参数中，写入对应的事件。2.OO ALV和FUNCTION ALV都可以，注册当前ALV的事件，对应的事件需要创建对象去实现。下面代码中，实现的是第一种，在it_events中写入事件。下面的代码是通过创建对象去实现ALV事件。
SAP ABAP ALV 报表单元格实现下拉框编辑及列表颜色
qq_41757790的博客
11-14 3200
SAP ABAP ALV 报表实现单元格下拉框修改数据及行列颜色设置
ABAP ALV 回车事件
N2012_8的博客
07-16 828
it_event TYPE slis_t_event. "不能有表头,否则会RUNTIME ERROR。CLASS lcl_event_handler IMPLEMENTATION."类实现。PERFORM handle_data_changed ."具体处理数据事件。CLASS lcl_event_handler DEFINITION."类定义。FORM handle_data_changed . " 回车后操作。*&创建时间：15.07.2024 10:10:33。*& 增加ALV事件。
SAP ABAP ALV回车事件和新增删除行
Wuuuf的博客
07-27 1799
SAP ABAP ALV新增删除行，注册回车事件
sap abap alv事件
weixin_43100260的博客
07-22 3479
alv 事件的创建使用 在实际开发中经常要用到 事件 event，在各个alv中的具体使用如下 REUSE_ALV_GRID_DISPLAY_LVC 显示代码 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid " 当前程序 i
ABAP-OOALV-回车事件
Nathan的博客
12-05 6667
ABAP-OOALV-回车事件: 首先要为ALV_GRID设置enter事件：   CALL METHOD GO_ALV_GRID-&gt;REGISTER_EDIT_EVENT     EXPORTING      I_EVENT_ID = CL_GUI_ALV_GRID=&gt;MC_EVT_ENTER     EXCEPTIONS      ERROR      = 1       OT...
SAP-ABAP ALV回车事件 设置字段可编辑并实现联动更新
LH26988的博客
03-28 1108
" 设置字段为可编辑EXPORTINGCHANGINGWHEN 'FIELD1' OR WHEN 'FIELD2'. " 需要可编辑的字段<fs_fieldcat>-edit = 'X'. " 设置为可编辑ENDCASE.ENDLOOP.
SAP ABAP ALV（LVC）的一个自定义事件（F4帮助事件，回车ENTER按钮事件）的一个实例
热门推荐
forever_crazy的专栏
02-26 1万+
SAP ABAP ALV（LVC）的一个自定义事件的一个实例 解决的是alv常用的画面交互操作，比如alv中的和回车（enter ）按钮的事件定义和捕捉，以及回车按钮后相应的字段检查，设值，更新等处理； 还有一个是解决某个字段的自定义F4帮助事件的定义和捕捉。
ALV 回车事件
luckilyhuihuio的博客
02-14 2165
ALV回车事件前言1、创建报表1.1 事务码SE381.2 点击创建2、定义内表、变量、工作区3、自定义监听事件类4、监听类的实现5、监听方法的实现6、注册回车事件7、简单报表实现7.1 定义屏幕选择条件7.2 获取数据7.3 ALV展示7.4 ALV字段设置7.5 GUI状态设置8、最终效果8.1 查询界面8.2 查询结果界面 前言 ALV报表中，可编辑列输入数据后，回车，后台做相应的数据处理后重新刷新报表显示。这时候需要用到监听事件及回车方法来是实现业务 1、创建报表 1.1 事务码SE38 1.2
SAP ALV回车事件及监控自动带出事件
weixin_68719250的博客
05-22 1404
实际业务在很多情况会在报表中通过让A字段可编辑，输入后通过回车或自动带出B字段，最常见就是输入物料带出描述，对于一些刚入行的同学们还是会造成小小的困扰，话不多说直接上代码：
FUNCTION ALV回车事件
我的心是烈日簇拥的花，在你的眼里找到了家
12-14 2250
导语：function alv相对于ooalv没有那么灵活，但是该有的东西也都有，只不过实现方式不同，下面说一下function alv回车事件如何实现，回车事件一半伴随着ALV编辑，以及编辑后优化列宽，以前都有分享过。 【????ALV编辑后更新内表】 【????ALV编辑后自动优化列宽】 一、定义 "ALV定义 DATA: gt_fieldcat TYPE lvc_t_fcat . DATA: gs_fieldcat TYPE lvc_s_fcat . DATA: gs_layout TYPE lv
FUNCTION ALV回车事件/EVENT
weixin_55593130的博客
06-08 968
ABAP EVENT
ABAP 注册回车事件
wangyibo9785的博客
01-07 373
首先明确需要的函数，事务码SE37查看函数的导出参数参考的类型，双击改类型。四、填充FRM_CALLER_EXIT注册回车事件。三、如何找到函数需要定义的字段。可知，包含两个需要定义的字段。
alv回车_ALV捕捉回车键
weixin_39946327的博客
12-20 212
针对abap alv中无法通过回车刷新数据格式问题*&---------------------------------------------------------------------**& 包括 ZINCL0016*&-----------------------------------------------------------...
sap abap ooalv 回车事件
最新发布
08-21
<think>首先，用户的问题是关于在SAP ABAP中处理OO ALV的回车事件。用户问的是“SAP ABAP OO ALV 回车事件处理方法”。 我需要回顾系统级指令： - 所有行内数学表达式必须使用$...$格式。 - 独立公式必须使用$$...$$格式并单独成段。 - LaTeX语法正确。 - 使用中文回答。 - 生成相关问题。 - 回答中引用的段落末尾自然地添加引用标识，例如[^1]。 用户可见层： - 回答结构清晰，帮助用户逐步解决问题。 - 尽量保证回答真实可靠。 用户提供了引用内容： - 引用[1]: 关于OOALV事件，声明事件的位置。 - 引用[2]: 通过按回车键触发事件，使用CALL METHOD gs_alv->register_edit_event。 - 引用[3]: 关于ALV事件，包括一个FORM子例程来设置事件。 这些引用是相关的，但我需要基于这些信息构建一个完整的回答。 用户的问题具体是处理回车事件，所以焦点在回车事件上。 在ABAP OO ALV中，回车事件通常用于处理当用户在ALV网格中按回车键时触发的动作。这涉及到事件处理机制。 关键步骤： 1. 定义事件：在类定义中声明事件。 2. 注册事件：在运行时注册事件，以便ALV知道要处理哪些事件。 3. 实现事件处理方法：编写方法来处理事件。 从引用[2]中，我们可以看到使用register_edit_event来注册编辑事件，特别是mc_evt_enter，这代表回车事件。 引用[3]显示了一个FORM子例程来设置事件，但这是在OO ALV中，所以我们应该使用面向对象的方式。 在OO ALV中，我们使用CL_GUI_ALV_GRID类。 步骤： 1. 创建ALV网格实例。 2. 注册事件：使用register_edit_event方法注册回车事件。 3. 定义事件处理方法：在类中实现一个方法来处理回车事件。 4. 设置事件处理器：将事件与处理方法关联。 在回答中，我应该提供代码示例，就像在示例中一样。 用户提到的引用中，引用[2]有代码：CALL METHOD gs_alv->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter. 这注册了回车事件。 然后，我们需要在事件发生时处理它。这通常通过实现一个事件处理程序方法来完成。 在ABAP中，事件处理程序方法需要特定的签名。 例如，对于回车事件，我们可能需要处理DATA_CHANGED事件或类似事件，但回车事件是编辑事件的一部分。 在CL_GUI_ALV_GRID中，事件如DATA_CHANGED或USER_COMMAND可能被触发，但回车事件是特定的编辑事件。 从引用[2]，mc_evt_enter是回车事件。 注册后，当用户按回车键时，可能会触发事件，我们需要捕获它。 在OO ALV中，事件处理是通过设置事件处理程序来完成的。 标准方式： - 定义一个本地类，实现事件处理接口。 - 或者，在现有类中实现方法。 常见事件： - 对于编辑事件，如回车，注册后，当事件发生时，会触发DATA_CHANGED事件或其他事件。 我需要确保我的知识正确。 在ABAP OO ALV中，处理回车事件的步骤： 1. 创建ALV网格：使用CL_GUI_ALV_GRID。 2. 注册编辑事件：使用register_edit_event方法，指定i_event_id为mc_evt_enter。 3. 定义事件处理程序：例如，对于DATA_CHANGED事件，因为当用户按回车键时，如果单元格被编辑，可能会触发DATA_CHANGED。 在ALV网格中，回车事件通常用于确认编辑或移动到下一个单元格。如果我们想执行自定义操作，我们需要处理相关事件。 引用[2]直接提到register_edit_event for mc_evt_enter，这注册了回车事件。 然后，当回车键被按下时，事件会被触发，我们需要有一个事件处理程序来捕获它。 在ABAP中，事件处理程序方法需要定义在类中。 例如： - 定义一个类，实现IF_ALV_GRID_EVENT_HANDLER接口或类似。 CL_GUI_ALV_GRID有事件如TOOLBAR, USER_COMMAND, DATA_CHANGED等。 对于编辑事件，DATA_CHANGED事件在数据更改时触发，包括当用户按回车键确认编辑时。 但mc_evt_enter是专门用于回车键的。 在注册后，当回车键被按下，事件被触发，然后我们可以处理它。 在事件处理中，我们需要实现一个方法，例如HANDLE_DATA_CHANGED或自定义方法。 步骤总结： 1. 在类定义中声明事件处理程序方法。 2. 在类实现中实现该方法。 3. 在创建ALV后，注册事件：调用register_edit_event。 4. 设置事件处理程序：使用SET_HANDLER方法将事件与处理程序方法关联。 从引用[1]和[2]，我们可以看到注册事件的部分。 在回答中，我应该提供清晰的步骤和代码示例。 结构回答： - 介绍：简要解释OO ALV事件处理。 - 步骤1：声明事件处理程序（在类定义中）。 - 步骤2：实现事件处理程序方法。 - 步骤3：创建ALV网格并注册回车事件。 - 步骤4：设置事件处理程序。 - 代码示例。 - 相关问题。 使用中文回答。 生成相关问题。 引用处理：在回答中，如果引用用户提供的引用内容，在末尾添加引用标识。 例如，参考引用[2]时，添加[^2]。 现在，构建回答。 首先，回答用户问题：处理回车事件的方法。 关键点： - 使用register_edit_event注册回车事件。 - 实现事件处理程序来处理事件。 在事件处理中，对于回车事件，我们可能需要处理DATA_CHANGED事件，因为回车键通常用于确认编辑。 在CL_GUI_ALV_GRID中，当我们注册编辑事件时，事件如DATA_CHANGED会被触发。 例如： - 注册回车事件：gs_alv->register_edit_event( i_event_id = cl_gui_alv_grid=>mc_evt_enter ). - 然后，当用户按回车键时，DATA_CHANGED事件被触发，如果我们有处理程序。 所以，我们需要实现DATA_CHANGED事件的处理程序。 在类定义中： METHODS handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after. 类似这样。 然后实现该方法。 在设置ALV时，设置处理程序。 代码示例： ```abap " 定义本地类来处理事件 CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed. ENDCLASS. CLASS lcl_event_handler IMPLEMENTATION. METHOD handle_data_changed. " 在这里处理回车事件，当数据改变时触发 " 可以检查是否是回车键导致的 " 实际逻辑 ENDMETHOD. ENDCLASS. " 在主要程序中 DATA: go_alv TYPE REF TO cl_gui_alv_grid, go_handler TYPE REF TO lcl_event_handler. " 创建ALV实例 CREATE OBJECT go_alv EXPORTING i_parent = cl_gui_container=>screen0. " 或适当容器 " 创建事件处理器实例 CREATE OBJECT go_handler. " 设置事件处理程序 SET HANDLER go_handler->handle_data_changed FOR go_alv. " 注册回车事件 CALL METHOD go_alv->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter. " 回车事件 " 然后显示ALV ``` 在handle_data_changed方法中，我们可以执行自定义操作，如验证数据、更新其他字段等。 用户可能想知道如何具体处理回车事件，比如在按回车时执行某些动作。 在事件处理中，我们可以访问er_data_changed对象，它包含更改的数据。 但为了专门处理回车键，我们可能需要其他方式，因为DATA_CHANGED事件在编辑时都会触发。 在ABAP中，回车事件注册后，当用户按回车键，事件被触发，但处理还是通过DATA_CHANGED事件。 所以，上述方法是标准的。 现在，生成相关问题。 基于主题，相关问题可以是： 1. 如何处理其他ALV事件，如双击事件？ 2. 如何优化OO ALV的事件处理性能？ 3. OO ALV事件处理在实际应用中的案例？ 最后，确保回答结构清晰。</think>### SAP ABAP OO ALV 回车事件处理方法 在SAP ABAP中，处理OO ALV（面向对象的ALV）的回车事件（即用户按回车键时触发的动作）是常见的需求，用于实现数据验证、自动填充或导航等逻辑。OO ALV 基于 `CL_GUI_ALV_GRID` 类，事件处理机制涉及声明事件、注册事件和实现事件处理方法。以下是详细步骤和代码示例，确保真实可靠（基于ABAP OO标准实践）。 #### 步骤1: 声明事件处理程序（在类定义中） 在ABAP类中声明事件处理程序方法。这通常在本地类（local class）中完成，专门处理ALV事件。 - 关键点：使用 `FOR EVENT` 子句绑定到 `cl_gui_alv_grid` 的事件（如 `data_changed`），因为回车事件注册后会触发此事件[^2]。 - 示例代码： ```abap " 定义本地类来处理事件 CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid " 绑定到数据更改事件 IMPORTING er_data_changed. " 导入参数：包含更改数据的对象 ENDCLASS. ``` #### 步骤2: 实现事件处理程序方法（在类实现中） 在类实现中编写方法逻辑，处理回车事件。当用户按回车键时，`data_changed` 事件被触发，可通过 `er_data_changed` 对象访问修改的数据。 - 关键点：在方法内检查事件来源（如回车键），并执行自定义逻辑（如数据验证或更新）。 - 示例代码： ```abap CLASS lcl_event_handler IMPLEMENTATION. METHOD handle_data_changed. " 检查是否是回车事件触发的数据更改（可通过上下文判断） DATA(lv_is_enter) = abap_true. " 假设回车事件触发 IF lv_is_enter = abap_true. " 执行自定义逻辑，例如验证数据或更新字段 MESSAGE '回车事件已处理：数据已确认' TYPE 'S' DISPLAY LIKE 'I'. ENDIF. ENDMETHOD. ENDCLASS. ``` #### 步骤3: 创建ALV网格并注册回车事件 在主要程序（如报表或屏幕程序）中创建ALV网格实例，并使用 `register_edit_event` 方法注册回车事件。 - 关键点：注册事件时指定 `i_event_id = cl_gui_alv_grid=>mc_evt_enter`，这表示回车事件[^2]。 - 示例代码： ```abap " 主要程序中的变量声明 DATA: go_alv TYPE REF TO cl_gui_alv_grid, " ALV网格对象 go_handler TYPE REF TO lcl_event_handler, " 事件处理器对象 gt_data TYPE TABLE OF your_table. " 数据表（替换为实际表） " 创建ALV网格实例（假设容器已定义） CREATE OBJECT go_alv EXPORTING i_parent = cl_gui_container=>screen0. " 容器对象，如屏幕或自定义容器 " 创建事件处理器实例 CREATE OBJECT go_handler. " 注册回车事件 CALL METHOD go_alv->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter. " 回车事件标识[^2] " 显示ALV（设置表和布局） CALL METHOD go_alv->set_table_for_first_display EXPORTING i_structure_name = 'YOUR_TABLE' " 替换为实际表名 CHANGING it_outtab = gt_data. ``` #### 步骤4: 设置事件处理程序关联 将事件处理程序方法与ALV网格关联，确保事件触发时调用方法。 - 关键点：使用 `SET HANDLER` 语句将处理器绑定到ALV实例。 - 示例代码： ```abap " 关联事件处理程序 SET HANDLER go_handler->handle_data_changed FOR go_alv. " 绑定到ALV对象 ``` #### 完整示例代码 以下是一个整合的简单示例，展示在报表中实现回车事件处理： ```abap REPORT z_ooalv_enter_event_demo. " 数据定义 DATA: gt_data TYPE TABLE OF sflight, " 示例表 go_alv TYPE REF TO cl_gui_alv_grid, go_handler TYPE REF TO lcl_event_handler. " 定义本地类 CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid IMPORTING er_data_changed. ENDCLASS. CLASS lcl_event_handler IMPLEMENTATION. METHOD handle_data_changed. " 简单逻辑：显示消息确认回车事件 MESSAGE '回车事件触发：数据已处理' TYPE 'I'. ENDMETHOD. ENDCLASS. START-OF-SELECTION. " 填充数据（示例） SELECT * FROM sflight INTO TABLE gt_data UP TO 20 ROWS. " 创建ALV和处理器 CREATE OBJECT go_alv EXPORTING i_parent = cl_gui_container=>screen0. CREATE OBJECT go_handler. " 注册事件和设置处理程序 SET HANDLER go_handler->handle_data_changed FOR go_alv. CALL METHOD go_alv->register_edit_event EXPORTING i_event_id = cl_gui_alv_grid=>mc_evt_enter. " 显示ALV CALL METHOD go_alv->set_table_for_first_display EXPORTING i_structure_name = 'SFLIGHT' CHANGING it_outtab = gt_data. ``` ### 注意事项 - **事件触发时机**：回车事件注册后，当用户按回车键时，会触发 `data_changed` 事件。`er_data_changed` 参数提供更改的详细信息（如单元格值），可在方法内使用其方法（如 `get_cell_value`）进行深度处理[^1]。 - **性能优化**：避免在事件处理中执行耗时操作（如数据库更新），以防界面卡顿。建议使用后台任务或异步处理。 - **错误处理**：在事件方法中添加异常捕获（`TRY...CATCH`），确保事件失败时不影响整体程序。 - **调试技巧**：使用 `BREAK-POINT` 在事件方法内调试，验证事件是否被正确触发[^3]。 通过以上步骤，您可以高效处理OO ALV的回车事件。事件机制是ABAP面向对象的核心，理解声明和触发位置对调试至关重要[^1]。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值