【ABAP】在ALV 使用On_F4的事件例程

本文介绍如何在ABAP中实现ALV网格控件的F4帮助功能,包括定义事件接收器类、注册F4帮助及响应F4事件的具体步骤与代码示例。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 这里并不介绍类cl_gui_alv_grid的用法,所以此博文的先决条件是会使用基本的cl_gui_alv_grid显示ALV。
 
 Sample code:
 
 Definition:  
 CLASS lcl_event_receiver DEFINITION DEFERRED.
 
 DATA:
      gt_fieldcat                TYPE lvc_t_fcat,      
      gs_fieldcat              TYPE lvc_s_fcat,
      g_grid                       TYPE REF TO cl_gui_alv_grid,      
      g_event_receiver    TYPE REF TO lcl_event_receiver.
 
*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver DEFINITION
 *----------------------------------------------------------------------*
 CLASS lcl_event_receiver DEFINITION.
       PUBLIC SECTION.    
             METHODS:
                     on_f4            FOR EVENT onf4 OF cl_gui_alv_grid                 
                                            IMPORTING  e_fieldname es_row_no er_event_data et_bad_cells e_display,
 
        PRIVATE SECTION.
ENDCLASS.                    "lcl_event_receiver DEFINITION
 
*----------------------------------------------------------------------*
*       CLASS lcl_event_receiver IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.     
   METHOD on_f4.             
      CASE e_fieldname.                    
         WHEN 'KOSTL'.                            
             READ TABLE gt_output INTO gs_output INDEX es_row_no-row_id.                            
             IF sy-subrc = 0.                                  
                PERFORM sub_help_kostl CHANGING gs_output-kostl.                                  
                IF gs_output-kostl IS NOT INITIAL.                                         
                  MODIFY gt_output FROM gs_output INDEX es_row_no-row_id.                                         
                  CALL METHOD g_grid->refresh_table_display.                                                            
                ENDIF.                           
             ENDIF.           
         WHEN 'POSID'.        
             READ TABLE gt_output INTO gs_output INDEX es_row_no-row_id.        
             IF gs_output-prctr = gc_prctr.          
               PERFORM sub_help_posid CHANGING gs_output-posid.          
               IF gs_output-posid IS NOT INITIAL.            
                  MODIFY gt_output FROM gs_output INDEX es_row_no-row_id.            
                  CALL METHOD g_grid->refresh_table_display.          
               ENDIF.        
             ENDIF.        
             CLEAR gs_output.        
       ENDCASE.     
    ENDMETHOD.                                                "on_f4 
  定义ALV列字段的时候:
      gs_fieldcat-f4availabl     =  'X'.       
      gs_fieldcat-edit                =  'X'.  
 
  Screen 2000 PBO:
      PERFORM d0100_register_f4.
      CREATE OBJECT g_event_receiver.       
      SET HANDLER g_event_receiver->on_f4 FOR g_grid.  
 
 Subrouting:
  FORM d0100_register_f4 .            
     DATA lt_f4 TYPE lvc_t_f4 WITH HEADER LINE.            
 
     lt_f4-fieldname  = 'KOSTL'.            
     lt_f4-register   = 'X'.            
     lt_f4-getbefore  = 'X'.            
     lt_f4-chngeafter = 'X'.            
     lt_f4-internal   = 'X'.            
     INSERT table lt_f4.            
 
     CALL METHOD g_grid->register_f4_for_fields                  
        EXPORTING                         
           it_f4   =   lt_f4[].   
   ENDFORM.                    " d0100_register_f4
 
   FORM sub_help_kostl  CHANGING pc_kostl.          
      DATA: t_shfields LIKE help_value OCCURS 0 WITH HEADER LINE.          
      DATA: BEGIN OF t_shvalue OCCURS 0,                                  
                     string(60),                            
                  END OF t_shvalue.          
      DATA: BEGIN OF lt_cskt OCCURS 0,                                    
                     kostl  LIKE  csks-kostl,                                    
                     ktext  LIKE  cskt-ktext,                             
                  END OF lt_cskt.
 
      SELECT csks~kostl cskt~ktext INTO TABLE lt_cskt                
          FROM csks INNER JOIN cskt                       
               ON csks~kokrs = cskt~kokrs                    
             AND csks~kostl = cskt~kostl                    
             AND csks~datbi = cskt~datbi                    
             AND cskt~spras = '1'           
      WHERE csks~kokrs = '××'                    
             AND csks~datbi GT sy-datum                    
             AND csks~bukrs = p_bukrs.          
 
      t_shfields-tabname = 'CSKS'.          
      t_shfields-fieldname = 'KOSTL'.         
      t_shfields-selectflag = 'X'.          
      APPEND t_shfields.
      CLEAR t_shfields.      
      t_shfields-tabname = 'CSKT'.          
      t_shfields-fieldname = 'KTEXT'.          
      APPEND t_shfields.CLEAR t_shfields.          
 
      LOOP AT lt_cskt.                 
         t_shvalue-string = lt_cskt-kostl.                 
         APPEND t_shvalue.CLEAR t_shvalue.     
         t_shvalue-string = lt_cskt-ktext.                 
         APPEND t_shvalue.CLEAR t_shvalue.          
      ENDLOOP.          
 
      CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'                  
         EXPORTING                         
            title_in_values_list = '成本中心'                         
            titel                = '请选择'                  
         IMPORTING                         
            select_value     = pc_kostl                  
         TABLES                         
            fields                  = t_shfields                         
            valuetab             = t_shvalue.                
       IF sy-subrc NE 0.                      
        MESSAGE 'No value selected!' TYPE 'S'.                
       ENDIF.   
   ENDFORM.                    " sub_help_kostl
   
   FORM sub_help_posid  CHANGING pc_posid.  
     CALL FUNCTION 'HELP_VALUES_GET_WITH_MATCHCODE'     
        EXPORTING *     DISPLAY                         = ' '
*     FIELDNAME                       = ' '
*     INPUT_VALUE                  = ' '      
           matchcode_object                = 'PRP'
 *     TABNAME                         = ' '    IMPORTING     
           select_value                    = pc_posid .  
      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.                    " sub_help_posid
<think>我们正在处理一个关于SAP ABAP中REUSE_ALV_GRID_DISPLAY_LVC函数模块的事件处理问题,特别是数据变更完成事件(datachangefinished)。根据用户提供的引用和问题,我们可以推断用户希望了解如何在REUSE_ALV_GRID_DISPLAY_LVC中处理数据变更完成事件。 在SAP ABAP中,REUSE_ALV_GRID_DISPLAY_LVC是一个用于显示ALV报表的函数模块。它支持多种事件,其中数据变更完成事件(data_changed_finished)是当用户在ALV网格中修改数据并完成编辑(例如按下回车或离开编辑的单元格)时触发的事件。 为了处理这个事件,我们需要以下步骤: 1. 在调用REUSE_ALV_GRID_DISPLAY_LVC之前,定义一个事件处理程序(event handler)方法来处理data_changed_finished事件。 2. 在函数模块的调用参数中,将事件处理程序方法注册到相应的事件上。 但是,需要注意的是,REUSE_ALV_GRID_DISPLAY_LVC函数模块内部使用了一个ALV对象(CL_GUI_ALV_GRID的实例)。因此,我们需要在函数调用之后获取这个ALV对象实例,然后才能注册事件。然而,REUSE_ALV_GRID_DISPLAY_LVC并没有直接返回ALV对象实例,所以我们需要使用另一种方法:在函数调用时通过I_CALLBACK_PROGRAM参数指定回调程序,然后使用SET HANDLER语句在程序中注册事件处理程序。 然而,更常见且推荐的做法是使用面向对象的ALV(即直接创建CL_GUI_ALV_GRID的实例),这样可以更灵活地控制事件。但用户要求使用REUSE_ALV_GRID_DISPLAY_LVC,因此我们需要在函数调用之后获取网格对象。 我们可以通过以下方式获取网格对象: - 在调用REUSE_ALV_GRID_DISPLAY_LVC之后,使用CL_GUI_ALV_GRID=>get_metadata( )方法获取网格实例?但是这种方法并不直接。 - 实际上,在调用REUSE_ALV_GRID_DISPLAY_LVC时,我们可以通过传递一个容器(container)来显示ALV,然后从容器中获取网格对象。但如果不使用容器,则函数模块会在屏幕上创建一个网格。 另一种方法是使用函数模块返回的网格对象。REUSE_ALV_GRID_DISPLAY_LVC有一个导出参数E_GRID,它返回网格对象。因此,我们可以使用这个参数来获取网格实例,然后注册事件。 具体步骤: 1. 定义事件处理程序方法,例如:handle_data_changed_finished,该方法需要定义在类中(局部类或全局类)。 2. 在调用函数之前,创建一个事件处理程序实例(即类的实例)。 3. 调用REUSE_ALV_GRID_DISPLAY_LVC,并确保获取E_GRID参数(即网格对象)。 4. 使用SET HANDLER语句将事件处理程序方法注册到网格对象的事件上。 注意:事件data_changed_finished是在类CL_GUI_ALV_GRID中定义的,因此我们可以在网格对象上注册这个事件。 下面是一个示例代码框架: ```abap REPORT ztest_alv_event. * 定义局部类来处理事件 CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS: handle_data_changed_finished FOR EVENT data_changed_finished OF cl_gui_alv_grid IMPORTING e_modified et_good_cells. ENDCLASS. CLASS lcl_event_handler IMPLEMENTATION. METHOD handle_data_changed_finished. " 在这里处理数据变更完成事件 " e_modified 表示数据是否被修改 " et_good_cells 包含成功修改的单元格信息 ENDMETHOD. ENDCLASS. DATA: go_grid TYPE REF TO cl_gui_alv_grid, go_event_handler TYPE REF TO lcl_event_handler. START-OF-SELECTION. " 准备数据内表等 " 创建事件处理程序实例 CREATE OBJECT go_event_handler. " 调用函数模块显示ALV CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid " 其他必要的参数,如结构、布局等 IMPORTING e_grid = go_grid " 获取网格对象 TABLES t_outtab = it_data " 你的数据内表 EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc = 0 AND go_grid IS BOUND. " 注册事件 SET HANDLER go_event_handler->handle_data_changed_finished FOR go_grid. ENDIF. ``` 但是,请注意:REUSE_ALV_GRID_DISPLAY_LVC函数模块在调用后,网格已经显示,并且事件注册必须在网格显示之前完成?实际上,事件注册可以在网格显示之后,因为事件是未来触发的。但是,为了确保在用户操作之前事件处理程序已经注册,我们通常在显示之前注册事件。然而,由于我们只能在函数调用后获得网格对象,所以只能在之后注册。 另外,在函数模块REUSE_ALV_GRID_DISPLAY_LVC中,有一个参数I_GRID_SETTINGS,其中有一个属性NO_EDIT(用于控制是否可编辑)。如果我们需要编辑,则不能设置NO_EDIT为'X'。同时,我们还需要在布局(layout)中设置字段为可编辑(在field catalog中设置EDIT属性)。 因此,为了支持编辑,我们需要: - 在field catalog中为需要编辑的字段设置EDIT属性为'X'。 - 在布局中设置STYLEFNAME属性(如果使用单元格级编辑)或者直接允许整个字段编辑。 此外,我们还需要注册编辑事件(edit event),以便在用户开始编辑时触发,但这里我们只关注数据变更完成事件。 注意:在函数模块REUSE_ALV_GRID_DISPLAY_LVC中,我们可能还需要在调用之前设置一些其他参数,比如设置编辑模式(使用I_GRID_EDIT属性)?实际上,在SAP的较新版本中,可能需要使用I_GRID_SETTINGS-EDIT_MODE来设置编辑模式。 但是,在REUSE_ALV_GRID_DISPLAY_LVC中,编辑功能的启用还需要在布局中设置EDIT_MODE(例如,设置EDIT_MODE为'X')?实际上,在布局参数(IS_LAYOUT)中有一个EDIT属性,但它是整个网格的编辑模式。我们通常设置IS_LAYOUT-EDIT = 'X'。 总结步骤: 1. 定义字段目录(field catalog),为需要编辑的字段设置EDIT属性。 2. 设置布局(layout)的EDIT属性为'X'(允许编辑)。 3. 调用函数模块,获取网格对象。 4. 注册事件处理程序。 注意:事件data_changed_finished是在用户完成编辑后触发的,它提供了修改的单元格信息。 另外,用户提到的引用[2]中提到了注册编辑事件(CL_GUI_ALV_GRID=>MC_EVT_MODIFIED),这个事件是当数据被修改时触发的,与data_changed_finished不同。data_changed_finished是在用户完成编辑(例如,按回车或离开单元格)时触发,而modified事件是在数据被修改(每次修改)时触发。 因此,根据用户的需求,我们提供了data_changed_finished事件的处理方法。 如果用户希望使用REUSE_ALV_GRID_DISPLAY_LVC,并且处理datachangefinished事件,那么上述代码示例可以作为一个起点。 但是,请注意,在SAP ABAP中,事件处理程序必须在一个类的方法中实现,因此我们使用了局部类。 最后,我们生成相关问题:</think>### SAP ABAP REUSE_ALV_GRID_DISPLAY_LVC 数据变更完成事件处理 在 SAP ABAP 中,`REUSE_ALV_GRID_DISPLAY_LVC` 函数模块用于显示 ALV 报表,处理数据变更完成事件(`DATA_CHANGED_FINISHED`)需要结合面向对象 ALV事件处理机制。以下是完整实现步骤: #### 1. **核心实现步骤** ```abap *-- 1. 定义事件处理类 CLASS lcl_event_handler DEFINITION. PUBLIC SECTION. METHODS: handle_data_finished FOR EVENT data_changed_finished OF cl_gui_alv_grid IMPORTING e_modified et_good_cells. ENDCLASS. CLASS lcl_event_handler IMPLEMENTATION. METHOD handle_data_finished. " 数据变更完成后的处理逻辑 IF e_modified = abap_true. " 1. 获取修改的单元格数据 " 2. 执行数据验证/更新数据库 " 3. 刷新ALV显示 ENDIF. ENDMETHOD. ENDCLASS. *-- 2. 在调用ALV前初始化 DATA: go_grid TYPE REF TO cl_gui_alv_grid, go_handler TYPE REF TO lcl_event_handler. START-OF-SELECTION. CREATE OBJECT go_handler. " 创建事件处理实例 *-- 3. 调用ALV函数获取网格对象 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' EXPORTING i_callback_program = sy-repid is_layout_lvc = ls_layout " 设置布局EDIT模式 it_fieldcat_lvc = lt_fieldcat " 字段目录 IMPORTING e_grid = go_grid " 关键:获取网格对象 TABLES t_outtab = lt_data. " 显示的数据表 *-- 4. 注册数据变更完成事件 IF go_grid IS BOUND. " 启用编辑事件 CALL METHOD go_grid->set_ready_for_input EXPORTING i_ready_for_input = 1. " 注册数据完成事件 SET HANDLER go_handler->handle_data_finished FOR go_grid. ENDIF. ``` #### 2. **关键配置说明** 1. **布局设置**:在 `ls_layout` 中启用编辑模式 ```abap ls_layout-edit = 'X'. " 允许网格编辑 ``` 2. **字段目录设置**:为可编辑字段设置属性 ```abap lt_fieldcat-edit = 'X'. " 指定字段可编辑 ``` 3. **事件参数说明**: - `e_modified`:标识数据是否被修改(`ABAP_TRUE/ABAP_FALSE`) - `et_good_cells`:包含修改后数据的单元格集合(类型 `LVC_T_MODI`) #### 3. **事件处理中的典型操作 ```abap METHOD handle_data_finished. LOOP AT et_good_cells ASSIGNING FIELD-SYMBOL(<fs_modi>). " 获取修改的值 ASSIGN COMPONENT <fs_modi>-fieldname OF STRUCTURE lt_data[<fs_modi>-row_id] TO FIELD-SYMBOL(<fs_field>). " 数据验证示例 IF <fs_modi>-value < 0. MESSAGE '值不能为负数' TYPE 'E'. ELSE. <fs_field> = <fs_modi>-value. ENDIF. ENDLOOP. " 刷新ALV显示 go_grid->refresh_table_display( ). ENDMETHOD. ``` #### 4. **注意事项** 1. 必须在调用 `REUSE_ALV_GRID_DISPLAY_LVC` 后获取 `e_grid` 对象才能注册事件[^1] 2. 使用 `set_ready_for_input(1)` 激活编辑模式[^2] 3. 事件触发条件:用户按 Enter 或离开编辑单元格 4. 如需实时校验,可额外注册 `data_changed` 事件 > **性能提示**:批量操作时建议在 `handle_data_finished` 中使用 `REFRESH_TABLE_DISPLAY` 而非重新调用 ALV 函数。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值