内容发布更新时间 : 2025/1/6 1:28:19星期一 下面是文章的全部内容请认真阅读。

ABAP用OO方式实现ALV

2012-05-23 13:27:17| 分类： ABAP | 标签：alv oo 面向对象 abap |举报|字号 订阅

report ytest_w_001.

*\功能A: 基本显示 *\功能B: 设定layout *\功能C: 设定fieldcat *\功能D: 增加复选框 *\功能E: 设定某列可输入 *\功能F: 设定某列为下拉列表

*\功能G: 设定屏蔽标准ALV 工具栏的按钮 *\功能H: 设定增加自定义ALV工具栏的按钮 *\功能I: 设定响应双击

*\功能J: 设定响应user command *\功能K: 设定TOP_OF_PAGE *\功能L: 设定动态修改layout *\功能M: 设定动态修改fieldcat

data: begin of gt_user occurs 0.\ne.

include structure usr02. data: checkbox(1),\功能D: 增加复选框 color(4). data: end of gt_user.

data: g_container type ref to cl_gui_custom_container.\功能A: 基本显示

data: g_grid type ref to cl_gui_alv_grid.\功能A: 基本显示 data: save_ok like sy-ucomm,

ok_code like sy-ucomm.

data: gt_fieldcat type lvc_t_fcat, \功能C: 设定fieldcat gs_fieldcat type lvc_s_fcat.\功能C: 设定fieldcat data: ls_layout type lvc_s_layo. \功能B: 设定layout

data: gt_exclude type ui_functions.\功能G: 设定屏蔽标准ALV 工具栏的按钮

*----------------------------------------------------------------------*

* CLASS lcl_event_handler DEFINITION

*----------------------------------------------------------------------* *

*----------------------------------------------------------------------*

class lcl_event_handler definition. public section.

methods handle_double for event double_click of cl_gui_alv_grid importing e_row e_column . \功能I: 设定响应双击

methods handle_toolbar for event toolbar of cl_gui_alv_grid importing e_object. \功能H: 设定增加自定义ALV工具栏的按钮

methods handle_user_command for event user_command of cl_gui_alv_grid importing e_ucomm. \功能J: 设定响应user command

methods handle_top for event top_of_page of cl_gui_alv_grid. \功能K: 设定TOP_OF_PAGE

endclass. \

*----------------------------------------------------------------------*

* CLASS lcl_event_handler IMPLEMENTATION

*----------------------------------------------------------------------* *

*----------------------------------------------------------------------*

class lcl_event_handler implementation.

method handle_double. \功能I: 设定响应双击

message i000(ih) with e_row-index e_column-fieldname. endmethod. \

method handle_toolbar. \功能H: 设定增加自定义ALV工具栏的按钮 data: ls_toolbar type stb_button. ls_toolbar-butn_type = '3'.

append ls_toolbar to e_object->mt_toolbar.

clear ls_toolbar.

ls_toolbar-text = 'Click'. ls_toolbar-function = 'Z1'.

ls_toolbar-icon = icon_calculation. *QUICKINFO *BUTN_TYPE

append ls_toolbar to e_object->mt_toolbar. endmethod. \

method handle_user_command. \功能J: 设定响应user command case e_ucomm. when 'Z1'.

message i000(ih) with 'Y'. endcase.

endmethod. \

method handle_top. \功能K: 设定TOP_OF_PAGE write:/ 'this is end'. message i000(ih) with 'hi'. endmethod.