OOSALV
在Net Weaver2004平台上集合了利用函数和GRID的功能发布的SALV包程序（SALV也称为New ALV）。
SALV可以像使用函数方式生成ALV那样，不用创建屏幕就可以调用的全屏方式显示的ALV
SALV的GRID报表可以在后台运行，但以前函数方式或OO方式生成的GRID不能？
SALV与现有的方法（Function ALV）相比，为了方便以接口的方式提供更整合及细微的功能，但SALV不提供编辑功能（但可以通过SALV适配器调用CL_GUI_ALV_GRID修改成编辑模式，就可以在ALV中修改数据了）
更多的实例请参考SALV程序包（Package），里面有大量示例
SALV有以下三种类型的报表：
三种显示模式
l 全屏模式——Classic 报表模式（普通List列表）
l 利用控制器的模式（利用用户自定义控件区域来控制ALV显示大小）
与CL_GUI_ALV_GRID相似的是CL_SALV_TABLE类，通过其factory方法，生成SALV实例：
要显示ALV，只需要调用以下两个方法即可：
factory：静态方法。定义要显示在屏幕上的数据；定义ALV报表样式；调用此方法就会返回CL_SALV_TABLE类型的实例对象
display：实例方法。调用此方法屏幕上就显示ALV
LIST_DISPLAY：参数决定了列表显示的模式：是以List普通列表方式显示，还是Grid网格方式显示
R_CONTAINER：用户自定义控件区域的引用对象，类型为CL_GUI_CONTAINER
CONTAINER_NAME：屏幕上用户自定义控件区域（Custom Control）
的名称
上面三个参数与显示模式关系如下：
|
LIST_DISPLAY |
R_CONTAINER |
CONTAINER_NAME |
|
|
初始值 |
|||
|
Classic List |
ABAP_TRUE |
初始值 |
初始值 |
|
利用控制器 |
ABAP_FALSE |
CL_GUI_CONTAINER对象引用 |
用户自定义控件区域（Custom Control）名称 |
全屏模式
与通过REUSE_ALV_GRID_DISPLAY函数产生的ALV相当：
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTINGr_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_table->display( )."调用实例方法显示表报
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
全屏经典列表模式
与通过REUSE_ALV_LIST_DISPLAY函数产生的ALV相当：
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
EXPORTINGlist_display = abap_true"以列表形式显示
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_functions = gr_table->get_functions( ).
gr_functions->set_default( )."Activate Standard Selection of Generic ALV Functions。激活工具栏中通用的选择性按钮。根据当前显示是List模式、还是Grid模式，来设置工具条上最基本的默认按钮，比gr_functions->set_all( abap_true)设置的按钮要少很多
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
可控模式
先绘制屏幕 100，然后在其上面放上用户自定义控件区域（Custom Control）
，并命名为CONTAINER_1：
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
MODULE 100_pbo OUTPUT.
PERFORM inital.
"判断是否已分配了一个有效引用
IF gr_container IS NOT BOUND.
"创建容器
CREATE OBJECT gr_container
EXPORTING
container_name = 'CONTAINER_1'."屏幕上用户自定义控件名
"创建ALV
cl_salv_table=>factory(
EXPORTING
r_container = gr_container
container_name = 'CONTAINER_1'
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = gt_data[] ).
"设置工具栏
gr_functions= gr_table->get_functions( ).
gr_functions->set_all( abap_true). "Activate All Generic ALV Functions，将激活所有的ALV内置通用按钮
"显示
gr_table->display( ).
ENDIF.
ENDMODULE.
CL_SALV_TABLE设置相关方法
对SALV进行设置，先需要通过CL_SALV_TABLE对象实例获取相关设置对象，然后再对这些设置对进行操作
如对样式的设置，需要先通过CL_SALV_TABLE对象的GET_LAYOUT( )方法拿到CL_SALV_LAYOUT对象，实后通过该对象相关方法对SALV进行设置；除样式外，如排序、工具栏设置、事件等，都是先通过某个GET*方法拿到相应对象，再通过该对象相关方法对SALV进行设置，这与以前Function ALV、及OO ALV不太一样。如上面程序中对SALV工具栏进行设置是这样的：
DATA: gr_functions TYPE REF TO cl_salv_functions_list.
gr_functions = gr_table->get_functions( ).
gr_functions->set_all( abap_true).
CL_SALV_TABLE类GET*相关方法：
样式设置
显示设置
SET_VERTICAL_LINES：设置是否显示垂直线
SET_HORIZONTAL_LINES：设置是否显示水平线
SET_STRIPED_PATTERN：斑马条纹（行颜色交替）
SET_LIST_HEADER_SIZE：报表头
SET_FIT_COLUMN_TO_TABLE_SIZE：列自适应表格宽度
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_display = gr_table->get_display_settings( ).
gr_display->set_striped_pattern( cl_salv_display_settings=>true ).
gr_display->set_list_header('Header Test').
gr_table->display( ). "调用实例方法显示表报
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bb'.
APPEND gt_data.
ENDFORM.
布局变式
F4_LAYOUTS
SET_DEFAULT
SET_INITIAL_LAYOUT
SET_KEY
SET_SAVE_RESTRICTION
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_layout = gr_table->get_layout( ).
gs_program-report = sy-repid.
gr_layout->set_key( gs_program )."设置布局保存为变式时，这些变式应属性此Key（本程序名）
gr_layout->set_save_restriction( cl_salv_layout=>restrict_none )."允许保存布局为变式
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bb'.
APPEND gt_data.
ENDFORM.
类似的Fieldcat
Function ALV、OO ALV可通过Fieldcat对列进行相关设置，SALV也有类似于这样的东西，只不过不是Fieldcat，而是通过CL_SALV_COLUMN对象来实现的。CL_SALV_COLUMN的获取过程如下：
隐藏字段（列）
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_columns = gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'KEY1' )."需处理的列
gr_column->set_visible( cl_salv_column_table=>false )."隐藏列，注：这里虽然是隐藏了，但在布局设置里还是可以看到此列的，如果使布局里也看不到，则需要gr_column->set_technical( 'X' ).
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
设置列标题
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_columns= gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'KEY2' )."需处理的列
gr_column->set_long_text( 'key2' ).
gr_column->set_medium_text( 'key2' ).
gr_column->set_short_text( 'key2' ).
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
设置列的颜色
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_columns = gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'KEY2' )."需处理的列
g_color-col = '6'.
g_color-int = '1'.
g_color-inv = '0'.
gr_column->set_color( g_color ).
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bb'.
APPEND gt_data.
ENDFORM.
优化列宽
相当于Function ALV所使用Layout的colwidth_optimize属性
优化前：
优化后：
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_columns = gr_table->get_columns( ).
gr_columns->set_optimize( 'X' ).
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bbbbbbbb'.
APPEND gt_data.
ENDFORM.
SALV行列选择模式
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
gr_selection = gr_table->get_selections( ).
gr_selection->set_selection_mode( if_salv_c_selection_mode=>row_column )."可以以行、列的方式进行选择
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bbbbbbbb'.
APPEND gt_data.
ENDFORM.
以弹出框显示SALV
可控模式（利用控制器的模式）的SALV是不能以弹出框来显示的
end_column
start_line
end_line = 5 ).
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bbbbbbbb'.
APPEND gt_data.
ENDFORM.
排序、分类汇总
sequence .
APPEND gt_data.
ENDFORM.
设置数据过滤条件
ALV 的标准按钮中已经有过滤的功能，我们也可以在初始显示的时候就设置过滤条件
.
APPEND gt_data.
ENDFORM.
GUI Status
使用预置的GUI Status
注：若要设置自定义的GUI Status，只适用于全屏模式与全屏幕经典列表模式的SALV
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory("全屏模式的SALV
IMPORTING r_salv_table = gr_table
CHANGING t_table = gt_data[] ).
"设置工具条：只适用于全屏模式与全屏幕经典列表模式的SALV
gr_table->set_screen_status(
pfstatus = 'T002'"系统提示的标准Status为SAPLSALV_METADATA_STATUS程序中的SALV_TABLE_STANDARD
report = sy-repid
"注：此参数只对SALV标准的预设保留按钮起作用，也就是说，当 T001 GUI Status是从
"系统中提供的标准Gui Staus拷贝时才起作用，即通用此参数来屏蔽或显示某些预置按钮
"对自己完全新创建的GUI Status是的按钮（实质上是根据 FunCode来判断的）不起作用
set_functions = gr_table->c_functions_all )."显示所有通用的预设按钮
"set_functions = gr_table->c_functions_default )."显示基本默认选择性的预设按钮
"set_functions = gr_table->c_functions_none )."所有预设按钮都将不会显示
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
在预设置工具栏上附加按钮
附加按钮只适用于可控制模式（即用户对话屏幕）的SALV
.
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
MODULE 100_pbo OUTPUT.
PERFORM inital.
"判断是否已分配了一个有效引用
IF gr_container IS NOT BOUND.
"创建容器
CREATE OBJECT gr_container
EXPORTING
container_name = 'CONTAINER_1'."屏幕上用户自定义控件名
"创建ALV
cl_salv_table=>factory(
EXPORTING
r_container = gr_container
container_name = 'CONTAINER_1'
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = gt_data[] ).
"附加刷新按钮
DATA: lr_functions TYPE REF TO cl_salv_functions_list.
lr_functions = gr_table->get_functions( ).
lr_functions->set_all( abap_true )."Activate All Generic ALV Functions，将激活所有的ALV内置通用按钮
INCLUDE <icon>.
DATA: l_icon TYPE string.
l_icon = icon_refresh.
"附加按钮，只适用于 可控模式 下的SALV
lr_functions->add_function(
name = 'refresh'
icon = l_icon
text = '刷新按钮'
tooltip = '刷新数据'
"按钮存放的位置：这里在右边附加。该参数的其他取值可以查看该方法源码，可以
"找到该参数其他取值的蛛丝马迹
position = if_salv_c_function_position=>right_of_salv_functions ).
"显示
gr_table->display( ).
ENDIF.
ENDMODULE.
事件
DOUBLE_CLICK双击事件
ENDFORM.
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
LINK_CLICK热点点击事件
) WITH p_text.
ENDFORM.
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
ADDED_FUNCTION附加功能（按钮）事件
在“在预设置工具栏上附加按钮”示例的基础上，增加按钮事件
.
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
ENDFORM.
MODULE 100_pbo OUTPUT.
PERFORM inital.
"判断是否已分配了一个有效引用
IF gr_container IS NOT BOUND.
"创建容器
CREATE OBJECT gr_container
EXPORTING
container_name = 'CONTAINER_1'."屏幕上用户自定义控件名
"创建ALV
cl_salv_table=>factory(
EXPORTING
r_container = gr_container
container_name = 'CONTAINER_1'
IMPORTING
r_salv_table = gr_table
CHANGING
t_table = gt_data[] ).
"附加刷新按钮
DATA: lr_functions TYPE REF TO cl_salv_functions_list.
lr_functions = gr_table->get_functions( ).
lr_functions->set_all( abap_true ).
INCLUDE <icon>.
DATA: l_icon TYPE string.
l_icon = icon_refresh.
"附加按钮，只适用于 可控模式 下的SALV
lr_functions->add_function(
name = 'REFRESH'
icon = l_icon
text = '刷新按钮'
tooltip = '刷新数据'
"按钮存放的位置：这里在右边附加。该参数的其他取值可以查看该方法源码，可以
"找到该参数其他取值的蛛丝马迹
position = if_salv_c_function_position=>right_of_salv_functions ).
"=====获取事件对象
DATA: lr_event TYPE REF TO cl_salv_events_table.
lr_event = gr_table->get_event( ).
"=====事件注册
DATA: lr_handle_event TYPE REF TO l_cl_handle_events.
CREATE OBJECT lr_handle_event.
SET HANDLER lr_handle_event->on_user_command FOR lr_event.
"显示
gr_table->display( ).
ENDIF.
ENDMODULE.
FORM handle_user_command USING p_function TYPE salv_de_function.
CASE p_function.
WHEN 'REFRESH'.
PERFORM inital.
gr_table->refresh( ).
ENDCASE.
ENDFORM.
红绿灯、灯提示信息
),
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table
CHANGING t_table = gt_data[] ).
gr_columns = gr_table->get_columns( ).
gr_columns->set_exception_column( 'LIGHT' ).
gr_column ?= gr_columns->get_column( 'LIGHT' ).
"如果不通过下面set_ddic_reference方法来设置参
"照某词典类型，则异常列标题固定显示为 Exception
gr_column->set_long_text( '异常灯' ).
DATA: s_ddic TYPE salv_s_ddic_reference.
s_ddic-field = 'FIELD'.
s_ddic-table = 'SALV_S_DDIC_REFERENCE'.
gr_column->set_ddic_reference( s_ddic ).
gr_column ?= gr_columns->get_column( 'VAL' ).
gr_column->set_long_text( '异常值' ).
"==========为异常列单无格不同的值添加不同的冒泡提示
DATA:lr_functional_settings TYPE REF TO cl_salv_functional_settings.
lr_functional_settings = gr_table->get_functional_settings( ).
DATA: lr_tooltips TYPE REF TO cl_salv_tooltips.
lr_tooltips = lr_functional_settings->get_tooltips( ).
lr_tooltips->add_tooltip(
"单元格显示类型：异常灯、图标、符号。即这里针对的是类型为 异常列 所有的单元格
type = cl_salv_tooltip=>c_type_exception
value = space"不同的图形不同的冒泡提示
tooltip = 'Undefined').
lr_tooltips->add_tooltip(
type = cl_salv_tooltip=>c_type_exception
value = '1'
tooltip = '红灯').
lr_tooltips->add_tooltip(
type = cl_salv_tooltip=>c_type_exception
value = '2'
tooltip = '黄灯').
lr_tooltips->add_tooltip(
type = cl_salv_tooltip=>c_type_exception
value = '3'
tooltip = '绿灯').
gr_table->display( ). "调用实例方法显示表报
FORM inital .
gt_data-light = ' '. "取值范围为：空、1~3
gt_data-val = '空'.
APPEND gt_data .
gt_data-light = '1'.
gt_data-val = '1'.
APPEND gt_data .
gt_data-light = '2'.
gt_data-val = '2'.
APPEND gt_data .
gt_data-light = '3'.
gt_data-val = '3'.
APPEND gt_data .
ENDFORM.
图标显示、图标提示信息
,
icon TYPE icon_d, "图标
val TYPE string,
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table
CHANGING t_table = gt_data[] ).
gr_columns= gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'ICON' ).
gr_column->set_icon( if_salv_c_bool_sap=>true ).
gr_column->set_long_text( '图标' ).
gr_column ?= gr_columns->get_column( 'VAL' ).
gr_column->set_long_text( '图标值' ).
"==========为图标列单无格不同的值添加不同的冒泡提示
DATA:lr_functional_settings TYPE REF TO cl_salv_functional_settings.
lr_functional_settings = gr_table->get_functional_settings( ).
DATA: lr_tooltips TYPE REF TO cl_salv_tooltips.
lr_tooltips = lr_functional_settings->get_tooltips( ).
DATA: lvc_value TYPE lvc_value.
lvc_value = icon_locked.
lr_tooltips->add_tooltip(
"单元格显示类型：异常灯、图标、符号。即这里针对的是类型为 图标列 所有的单元格
type = cl_salv_tooltip=>c_type_icon
value = lvc_value"不同的图形不同的冒泡提示
tooltip = '锁定').
lvc_value = icon_message_warning.
lr_tooltips->add_tooltip(
type = cl_salv_tooltip=>c_type_icon
value = lvc_value
tooltip = '警告').
lvc_value = icon_unlocked.
lr_tooltips->add_tooltip(
type = cl_salv_tooltip=>c_type_icon
value = lvc_value
tooltip = '解锁').
gr_table->display( ). "调用实例方法显示表报
FORM inital .
gt_data-icon = icon_locked.
"在前面加了等号，如果不加，也会直接输出图标，而不是文字
gt_data-val = `=@06@`.
APPEND gt_data .
gt_data-icon = icon_message_warning.
gt_data-val = `=@1A@`.
APPEND gt_data .
gt_data-icon = icon_unlocked.
gt_data-val = `=@07@`.
APPEND gt_data .
ENDFORM.
设置单元格颜色
),
color TYPE lvc_t_scol,
END OF gt_data.
START-OF-SELECTION.
PERFORM inital.
cl_salv_table=>factory(
IMPORTING r_salv_table = gr_table"用来接收工厂产生的实例
CHANGING t_table = gt_data[] ).
FIELD-SYMBOLS: <ls_outtab> LIKE gt_data.
DATA: lt_color TYPE lvc_t_scol,
ls_color TYPE lvc_s_scol.
LOOP AT gt_data ASSIGNING <ls_outtab>.
CLEAR: ls_color,lt_color.
IF <ls_outtab>-key1 = 'a'.
ls_color-fname = 'KEY1'."为哪列设置颜色
ls_color-color-col = '6'."颜色值
ls_color-color-int = '0'."加深
ls_color-color-inv = '0'."前景背景颜色反转
APPEND ls_color TO lt_color.
ENDIF.
IF <ls_outtab>-key2 = 'bb'.
ls_color-fname = 'KEY2'.
ls_color-color-col = '5'.
ls_color-color-int = '0'.
ls_color-color-inv = '0'.
APPEND ls_color TO lt_color.
ENDIF.
<ls_outtab>-color = lt_color.
ENDLOOP.
gr_columns = gr_table->get_columns( ).
gr_columns->set_color_column( 'COLOR' ).
gr_table->display( ).
FORM inital .
gt_data-key1 = 'a'.
gt_data-key2 = 'aa'.
APPEND gt_data.
gt_data-key1 = 'b'.
gt_data-key2 = 'bb'.
APPEND gt_data.
ENDFORM.