SAP ABAP 对象ALV的一些功能（ALV资料五）

对象ALV的一些功能.

功能一:在第一次显示以后,修改字段目录和布局.

在运行的时候,很有可能需要在显示之后,需要设置一个新的布局或者字段目录.有下面这些方法去实现.

字段目录 : get_frontend_fieldcatalog
set_frontend_fieldcatalog
布局: get_frontend_layout
set_frontend_layout

使用这些方法,你在执行的任何时候,可以获取这些内容,然后修改他们.

DATA ls_fcat TYPE lvc_s_fcat .
DATA lt_fcat TYPE lvc_t_fcat .
DATA ls_layout TYPE lvc_s_layo .

CALL METHOD gr_alvgrid->get_frontend_fieldcatalog
 IMPORTING
    et_fieldcatalog = lt_fcat[] .

LOOP AT lt_fcat INTO ls_fcat .
IF ls_fcat-fieldname = \'PAYMENTSUM\' .
 ls_fcat-no_out = space .
 MODIFY lt_fcat FROM ls_fcat .
 ENDIF .
ENDLOOP .

CALL METHOD gr_alvgrid->set_frontend_fieldcatalog
 EXPORTING
    it_fieldcatalog = lt_fcat[] .

CALL METHOD gr_alvgrid->get_frontend_layout
 IMPORTING
    es_layout = ls_layout .

ls_layout-grid_title = \'Flights (with Payment Sums)\' .

CALL METHOD gr_alvgrid->set_frontend_layout
 EXPORTING
    is_layout = ls_layout .

功能二:设置排序条件

有时候我们需要使用到数据的排序.这个可以通过填充参考结构LVC_T_SORT创建的内表来实现，这个内表中包含了排序的标准.可以传递给set_table_for_first_display这个方法的IT_SORT参数来初始化一个排序.

FORM prepare_sort_table CHANGING pt_sort TYPE lvc_t_sort .

DATA ls_sort TYPE lvc_s_sort .

ls_sort-spos = \'1\' .
ls_sort-fieldname = \'CARRID\' .
ls_sort-up = \'X\' . "A to Z
ls_sort-down = space .
APPEND ls_sort TO pt_sort .

ls_sort-spos = \'2\' .
ls_sort-fieldname = \'SEATSOCC\' .
ls_sort-up = space .
ls_sort-down = \'X\' . "Z to A
APPEND ls_sort TO pt_sort .

ENDFORM. " prepare_sort_table

这有2点特别的说明:

1.如果这边排序的字段名，不存在于字段目录中，那将出现DUMP.

2.排序以后,垂直的网格中，如果出现相同的内容,就会合并，如果要避免,请在布局中设置"no_merging"为"X" .

可以通过使用方法“get_sort_criteria” 和“set_sort_criteria”来获取和设置排序的标准.

功能三:设置过滤(和排序类似)

ALV的标准按钮中已经有过滤的功能,我们也可以在初始显示的时候就设置过滤条件.我们需要把过滤条件填充到参考表类型"LVC_T_FILT"创建的内表中.过滤条件是类似一个RANGES结构的.然后把这个内表传递给方法"SET_TABLE_FOR_FIRST_DISPLAY"中的参数"IT_FILTER"

FORM prepare_filter_table CHANGING pt_filt TYPE lvc_t_filt .

DATA ls_filt TYPE lvc_s_filt .
ls_filt-fieldname = \'FLDATE\' .
ls_filt-sign = \'E\' .
ls_filt-option = \'BT\' .
ls_filt-low = \'20030101\' .
ls_filt-high = \'20031231\' .
APPEND ls_filt TO pt_filt .
ENDFORM. " preparefiltertable

我们可以使用"get_filter_criteria" 和"set_filter_criteria"来获取过滤条件和设置过滤条件.

功能四:选择方式

有时候，我们需要选择一些单元格,行或者列,在布局中，有个参数"SEL_MODE"可以设置我们不同的选择方式.下面是参数的介绍.和不同的地方.

值 模式 可能的选择 注释

SPACE 等同于B 参考B 默认设置

\'A\' 行和列的选择,无法选择单元格 多行，多列 用户可以使用最左边的选择按钮来选择多行

\'B\' 单选,不可以多选行,不可以多选单元格 多行，多列

\'C\' 多选,可以多选行,不可以多选单元格 多行，多列

\'D\' 单元格的选择,可以多选单元格 多行，多列,任何单元格多选 用户可以使用最左边的选择按钮来选择多行

注意:

1.如果你设置了ALV是可编辑的,可能会覆盖你在布局中选择方式的设置的.

2.设置了选择方式以后,我们可以使用很多方法来获取用户的选择.比如"GET_SELECTED_CELLS","GET_SELECTED_CELLS_ID","GET_SELECTED_ROWS","GET_SELECTED_COLUMNS"

3.在执行PAI以后,用户所选择的单元格,行或者列可能丢失.你可以在PBO中,使用对应的SET方法来恢复这些选择.

功能五:颜色设置

有的时候,我们需要在ALV网格上绘上一些颜色.可以给特定的行，某个特定的列,某个特定的单元格绘制颜色.

如果某列被设置为关键列,这列的颜色将被自动绘制,而不需要我们额外的指定.

先介绍ALV里色码.就是颜色编码,4位CHAR型.

Cxyz---

Color || |

| 1/0: 相反 开/关

1/0: 强化 开/关

其中C是固定的第一位,第二位代表是颜色编码(1到7),第三位是加强的设置,第四位是相反,个人理解,在强化关闭的情况下,相反的作用是背景和字体的变化.

颜色编码:

x 颜色 主要使用在

1 Gray-blue headers

2 Light gray List bodies

3 yellow totals

4 Blue-green Key columns

5 green Positive threshold value

6 red Negative threshold value

7 orange Control levels

A)设置列的颜色.

我们可以通过字段目录的"emphasize"控制字段来控制某列的颜色.这个字段同样是4位的CHAR型,传入上述的颜色编码.例如:

LS_FCAT-EMPHASIZE = \'C701\'.

如果这列被设置为关键列,就是 LS_FCAT-KEY = \'X\' ,那么颜色设置就不会起作用.请注意,自动产生的字段目录中，KEY的设置是自动获取的.

B)设置行的颜色

为某行设置颜色,是有点复杂的,我们需要在要显示的数据内表中增加一个字段,这个字段不需要在字段目录中存在.同样,这个字段也是4位的CHAR型,符合颜色编码的定义.

那我们就需要这样来定义我们的数据内表:

DATA BEGIN OF gt_list OCCURS 0 .

INCLUDE STRUCTURE SFLIGHT .

DATA rowcolor(4) TYPE c .

DATA END OF gt_list .

很明显，填入颜色编码以后,ALV怎么知道它是我们用来设置颜色的呢,在布局中，有个控制字段"INFO_FNAME",我们可以设置这个字段来告诉ALV,我们的颜色字段是哪个.

ps_layout-info_fname = \'ROWCOLOR\'.

请注意,这个字段随便你起名字,但是记住,一定是数据内表里的字段，而且这边设置的时候一定要大写.你可以在任何时候设置行的颜色,只需要去修改内表里的这个字段的值,但是记得,一定要刷新以后才起作用.

C)设置单元格的颜色

设置单元格和设置行的颜色,本质上没有什么大的区别,但是定位单元格需要2个参数.我们需要在数据内表中插入一个表类型的字段，这样我们的数据内表就变成了DEEP结构了,不过ALV是可以处理的.不需要担心.

插入的这个表类型的类型为"LVC_T_SCOL".

里面有3个参数:

FNAME告诉我们你需要设置的是哪个字段,如果为空，然后直接在COLOR中设置颜色,就是整行设置为这个颜色.如果具体到某个单元格,必须指定是哪个字段.

COLOR字段是用来设置颜色的.

NOKEYCOL字段比较关键了.设置为关键列的一些字段,我们的颜色设置可能被覆盖.通过这个字段的设置,可以避免被关键列覆盖.

同样,ALV在布局中有个字段"CTAB_FNAME"告诉我们,数据内表中，哪个字段是用来设置单元格的颜色的.

DATA BEGIN OF gt_list OCCURS 0 .
INCLUDE STRUCTURE SFLIGHT .
DATA rowcolor(4) TYPE c .
DATA cellcolors TYPE lvc_t_scol .
DATA END OF gt_list .
DATA ls_cellcolor TYPE lvc_s_scol .
...
READ TABLE gt_list INDEX 5 .
ls_cellcolor-fname = \'SEATSOCC\' .
ls_cellcolor-color-col = \'7\' .
ls_cellcolor-color-int = \'1\' .
APPEND ls_cellcolor TO gt_list-cellcolors .
MODIFY gt_list INDEX 5 .

注意:

颜色设置中有优先级顺序,他们是单元格--->行--->列.

功能六:插入超链接

插入超链接是通过一个含有超级链接和句柄的表来实现的.这个表类型为"LVC_T_HYPE" ,句柄是一个INT4类型的字段,我们需要在数据显示的内表中，加入这样的字段，来告诉ALV,我们的字段指定的句柄,从而找到对应的超级链接.在字段目录中,WEB_FIELD是用来指定对应的句柄名的.

下面举个例子来说明,我们要为字段CARRID,CONNID建立超级链接:

首先,内表定义中，我们加入2个句柄字段:

DATA BEGIN OF gt_list OCCURS 0 .
INCLUDE STRUCTURE SFLIGHT .
DATA rowcolor(4) TYPE c .
DATA cellcolors TYPE lvc_t_scol .
DATA carrid_handle TYPE int4 .
DATA connid_handle TYPE int4 .
DATA END OF gt_list .

第二: 建立一个超级链接内表,里面存放句柄所对应的超级链接.创建的时候注意,它参考的表类型,一定是"LVC_T_HYPE".

FORM prepare_hyperlinks_table CHANGING pt_hype TYPE lvc_t_hype .
DATA ls_hype TYPE lvc_s_hype .
ls_hype-handle = \'1\' .
ls_hype-href = \'http://www.company.com/carrids/car1\' .
APPEND ls_hype TO pt_hype .
ls_hype-handle = \'2\' .
ls_hype-href = \'http://www.company.com/carrids/car1\' .
APPEND ls_hype TO pt_hype .
ls_hype-handle = \'3\' .
ls_hype-href = \'http://www.company.com/carrids/car1\' .
APPEND ls_hype TO pt_hype .
ls_hype-handle = \'4\' .
ls_hype-href = \'http://www.company.com/connids/con11\' .
APPEND ls_hype TO pt_hype .
ls_hype-handle = \'5\' .
ls_hype-href = \'http://www.company.com/connids/con12\'
APPEND ls_hype TO pt_hype .
.. ..
ENDFORM .

第三.通过字段目录FIELDCATLOG来指定相应的句柄字段.

对于CARRID的field catalog

Ls_fieldcat-web_field = ‘CARRID_HANDLE’.

对于CONNID的field catalog

Ls_fieldcat-web_field = ‘CONNID_HANDLE’.

在方法"SET_TABLE_FOR_FIRST_DISPLAY"中把句柄内表传给参数it_hyperlink。

第四:在数据显示的内表中，指定对应的句柄:

LOOP AT gt_list.
IF gt_list-carrid = ‘XX’.
    Gt_list-carrid_handle = ‘1’.
    IF gt_list-connid = ‘01’.
     Gt_list-connid_handle = ‘4’.
    ENDIF.
ENDIF.
ENDLOOP.

功能七:把字段设置为下拉

有时候我们可以把一些字段设置为下拉，比如一些类型，一些字段的值是比较固定的一些值,当然,我们也可以通过搜索帮助来做,这些只是看各自的爱好和需要了.

设置为下拉,和上一篇设置超级链接是类似的,也是使用了一个内表存放了句柄和对应的值,这个表类型为"LVC_T_DROP".不过传递给ALV的方式有点区别.超级链接是通过方法"SET_TABLE_FOR_FIRST_DISPLAY"的参数来传递的,而下拉的内表传递需要使用方法"SET_DROP_DOWN_TABLE".

如果我们希望把这个列都设置为下拉,那么我们可以在字段目录中，把控制字段"DRDN_HNDL"指向对应的下拉内表的句柄就可以了.例如:

ps_fcat-drdn_hndl = \'1\' .

如果是某个单元格设置为下拉，那我们就需要在数据显示的内表中增加一个句柄字段(如果是有多个不同的字段需要设置下拉,可以增加多个字段),同时得在字段目录里设置"DRDN_FIELD".例如:

ps_fcat-drdn_field = \'PTYP_DD_HNDL\' .

数据显示内表定义为:

DATA BEGIN OF gt_list OCCURS 0 .
INCLUDE STRUCTURE SFLIGHT .
DATA rowcolor(4) TYPE c .
DATA cellcolors TYPE lvc_t_scol .
DATA carrid_handle TYPE int4 .
DATA connid_handle TYPE int4 .
DATA ptype_dd_hndl TYPE int4 .
DATA END OF gt_list .

定义下拉的句柄内表:

FORM prepare_drilldown_values.
DATA lt_ddval TYPE lvc_t_drop .
DATA ls_ddval TYPE lvc_s_drop .
ls_ddval-handle = \'1\' .
ls_ddval-value = \'JFK-12\' .
APPEND ls_ddval TO lt_ddval .

ls_ddval-handle = \'1\' .
ls_ddval-value = \'JSF-44\' .
APPEND ls_ddval TO lt_ddval .

ls_ddval-handle = \'1\' .
ls_ddval-value = \'KMDA-53\' .
APPEND ls_ddval TO lt_ddval .

ls_ddval-handle = \'1\' .
ls_ddval-value = \'SS3O/N\' .
APPEND ls_ddval TO lt_ddval .

CALL METHOD gr_alvgrid->set_drop_down_table
 EXPORTING
    it_drop_down = lt_ddval .

ENDFORM. " prepare_drilldown_values

准备好内表，以后,使用方法set_drop_down_table来传递给ALV.

功能八:基于事件的附加功能

作为使用面向对象的方法开发的一个组件,ALV GRID控制器有很多响应用户交互的事件.这些事件经常被用来增强一些用户响应的功能.为实现这样的功能，我们必须在程序中创建一个类的实例来作为ALV GRID实例的事件处理者.

下表列出了一些ALV GRID的事件,后面的HTML列用来说明是否在HTML形式SAP GUI上支持.

用户定义文本输出:

Event Application HTML
Print_end_of_list Define output text to be printed at the end of the entire list √
Print_top_of_list Define output text to be printed at begin of the entire list √
Print_top_of_page Define output text to be printed at begin of each page √
Print_end_of_page Define output text to be printed at the end of each page √
Subtotal_text Define self-defined subtotal texts √

ALV GRID的鼠标动作事件
Event Application HTML
Button_click Query click on a push button in the ALV GRID control √
Double_click Query a double click on a cell of the ALV GRID √
Hotspot_click Query a hotspot click on columns defined for this purpose in advance √
ondrag Collect information when elements of the ALV GRID Control are dragged ×
ondrop Process information when elements of the ALV GRID Control are dropped ×
ondropComplete Perform final actions after successful drag&drop ×
ondropGetFlavor Distinguish between options for drag&drop behavior ×

自定义和标准功能实现
Event Application HTML
Before_user_command Query self-defined and standard functions √
User_command Query self-defined function codes √
After_user_command Query self-defined and standard functions codes √

自定义功能的定义(自定义按钮,菜单等等)
Event Application HTML
Tool bar Change,delete or add gui elements on alv grid √
Menu_button Define menus for menu buttons in the toolbar √
Context_menu_request Change context menu ×
Onf1 Define self-defined f1 help √

下面是一段代码,举例说明如果定义我们的事件处理类.
CLAS lcl_event_handler DEFINITION.
PUBLIC SECTION.
METHODS:

*--在ALV的工具条上增加新的按钮
Handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object e_interactive,

*--实现用户命令
Handle_user_command
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.

*--热点点击控制
Handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id es_row_no.

*--在用户命令触发之前
Handle_before_user_command
FOR EVENT before_user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.

*--在用户命令触发之后
Handle_after_user_command
FOR EVENT after_user_command OF cl_gui_alv_grid
IMPORTING e_ucomm.

*--在ALV可修改的情况下,控制数据修改
Handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed.

*--在数据修改完成之后
Handle_data_changed_finished
FOR EVENT data_changed_finished OF cl_gui_alv_grid
IMPORTING e_modified.

*--管理菜单
Handle_menu_button
FOR EVENT menu_button OF cl_gui_alv_grid
IMPORTING e_object e_ucomm.

*--管理按钮点击
Handle_button_click
FOR EVENT button_click OF cl_gui_alv_grid
IMPORTING e_objec e_ucomm.
PRIVATE SECTION.
ENDCLASS.

下面是类的实现的一些概要代码,参数可以从ALV的事件中直接获取出来:
CLASS lcl_event_handler IMPLEMENTATION.

*-- Handle toolbar
METHOD handle_toolbar.
PERFORM handle_toolbar USIGN e_object e_interactive.
ENDMETHOD.

*-- Handle hotspot click
METHOD handle_hotspot_click.
PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no.
ENDMETHOD.

*-- Handle double click
METHOD handle_double_click.
PERFORM handle_double_click USING e_row e_column es_row_no.
ENDMETHOD.

*-- Handle after user command
METHOD handle _after_user_command.
PERFORM handle_after_user_command USING e_object.
ENDFORM.

*-- Handle before user command
METHOD handle_before_user_command.
PERFORM handle_before_user_command.
ENDMETHOD.

*--Handle data changed
METHOD handle_data_changed.
PERFORM handle_data_changed USING er_data_changed.
ENDMEHTOD.

METHOD handle_data_changed_finished.
PERFORM handle_data_chaged USING e_modified.
ENDMETHOD.

METHOD handle_menu_button.
PERFORM handle_menu_button USING e_object e_ucomm.
ENDMEHTOD.

MEHTOD handle_button_click.
PERFORM handle_button_click USING e_objcet e_ucomm.
ENDMETHOD.
ENDCALSS.

光定义了这些还不够,我们需要把事件管理类注册到ALV GRID的实例事件.
DATA gr_event_handler TYPE REF TO lcl_event_handler .
.. ..
*--Creating an instance for the event handler
CREATE OBJECT gr_event_handler .
*--Registering handler methods to handle ALV Grid events
SET HANDLER gr_event_handler->handle_user_command FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_toolbar FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_menu_button FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_double_click FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_hotspot_click FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_button_click FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_before_user_command FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_context_menu_request FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_data_changed FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_data_changed_finished FOR gr_alvgrid .