ABAP--如何在REUSE_ALV_GRID_DISPLAY标识不同行用不同的颜色

本文介绍了如何在ABAP中利用REUSE_ALV_GRID_DISPLAY函数,根据条件为表格的不同行设置不同的颜色。首先在内表添加颜色字段,然后根据条件设置颜色值。接着,更新颜色控制内表slis_layout_alv以包含颜色字段。最后,调用REUSE_ALV_GRID_DISPLAY函数显示带颜色标记的数据。同时,文章还展示了如何自定义表头,展示关键统计信息。

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

1 在内表中加入颜色字段
.............................
 color(4) type c,
................................

2 在内表添加记录是通过条件设置颜色字段值
wa_customerinfo-color = 'C110'.

3 设置颜色控制内表 slis_layout_alv 的颜色字段为内表增加的颜色字段
    data  g_slis_layo type slis_layout_alv.   "定义Grid输出颜色控制内表
    g_slis_layo-info_fieldname = 'COLOR'.

4 输出记录
    call function 'REUSE_ALV_GRID_DISPLAY'
      exporting
        i_callback_program = g_repid
        is_layout          = g_slis_layo
        it_fieldcat        = g_field[]
        it_sort            = g_sort[]
        it_events          = event_top_of_page[]
      tables
        t_outtab           = i_customerinfo.

以下为显示表头的代码
data  event_top_of_page   type slis_alv_event  occurs 0 with header line. 
perform event_top_of_page tables event_top_of_page.

form event_top_of_page tables rt_event type slis_t_event.
  refresh rt_event.
  clear rt_event.
  rt_event-name = slis_ev_top_of_page.
  rt_event-form = 'WRITE_TOP_OF_PAGE'.
  append rt_event.
endform.                    "event_top_of_page

form write_top_of_page.
  data: hline type slis_listheader,
       text(60) type c,
       text10(10) type c,
       text5(5) type c,
       percent type p decimals 2.

  refresh head.
  clear head.
  clear: hline, text.
  hline-typ  = 'S'.
  write: '时间:', g_curdate  to text.
  hline-info = text.
  append hline to head.
  write: '客户状态:绿色-老呆死客户,红色-新呆死客户,兰色-超信用额度客户'
    to text.
  hline-info = text.
  write: g_countkunnr  to text5.
  append hline to head.
  concatenate '往来单位:' text5 '个.' into text.
  hline-info = text.
  append hline to head.
  write: g_oldbad_count  to text5.
  concatenate '老呆死帐单位:' text5 '个,占' into text.
  percent = g_oldbad_count * 100 / g_countkunnr.
  write: percent  to text5.
  concatenate text5 '%' into text+23.
  write: g_newbad_count  to text5.
  concatenate '新呆死单位:' text5 '个,占' into text+30.
  percent = g_newbad_count * 100 / g_countkunnr.
  write: percent  to text5.
  concatenate text5 '%' into text+53.
*  CONDENSE text.
  hline-info = text.
  append hline to head.
  clear text.
  percent = g_ccdebit_count / 10000.
  write: percent  to text10.
  concatenate '应收帐款:' text10 '万元' into text.
  percent = g_webtr_count / 10000.
  write: percent  to text10.
  concatenate '认可呆死帐:' text10  '万元.' into  text+30.
  hline-info = text.
  append hline to head.

  percent = g_oldbad_money / 10000.
  write: percent  to text10.
  concatenate '老呆死帐款:' text10 '万元,' into text.
  percent = g_oldbad_money * 100 / g_ccdebit_count.
  write: percent  to text5.
  concatenate '占' text5 '%' into text+30.
  hline-info = text.
  append hline to head.

  percent = g_newbad_money / 10000.
  write: percent  to text10.
  concatenate '新呆死帐款:' text10 '万元,' into text.
  percent = g_newbad_money  * 100 / g_ccdebit_count.
  write: percent  to text5.
  concatenate '占' text5 '%' into text+30.
  hline-info = text.
  append hline to head.

  write: g_over_count  to text5.
  concatenate '超安全额度单位:' text5 '个,' into text.
  percent = g_over_count * 100 / g_countkunnr.
  write: percent  to text5.
  concatenate '占' text5 '%' into text+24.
  percent = g_over_money / 10000.
  write: percent  to text10.
  concatenate  '超安全额度:' text10 '万元.' into text+30.
  hline-info = text.
  append hline to head.
  call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = head.
endform.                    "write_top_of_page

<think>我们正在处理一个关于SAP ABAPREUSE_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、付费专栏及课程。

余额充值