OO实现ALV TABLE 八：ALV的布局功能

在ALV的输出结果中，我们可以利用ALV提供的标准功能(过滤,排序,汇总)对输出结果正行操作。比如说我们对一个结果进行了排序和过滤等的动作，下次再运行这个报表的时候可以选择一个功能直接运行这些动作。这就需要布局（Layout）的功能了。

1. 首先我们设置布局的功能按钮。

ls_key-report = sy-repid.

lr_layout = gr_table->get_layout( ).

lr_layout->set_key( ls_key ).

lr_layout->set_save_restriction(
l_restrict ).

lr_layout->set_default( 'X' ).

IF p_lay IS NOT INITIAL.

lr_layout->set_initial_layout( p_lay
).

ENDIF.

2.
设置前台选项页面。

SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME.

PARAMETERS: p_lay LIKE disvariant-variant.

SELECTION-SCREEN SKIP.

PARAMETERS: p_save1 RADIOBUTTON GROUP rg DEFAULT 'X',

p_save2
RADIOBUTTON GROUP rg,

p_save3
RADIOBUTTON GROUP rg.

SELECTION-SCREEN END OF BLOCK blk.

3. 设置前台布局选项功能搜索帮助

DATA: ls_layout TYPE salv_s_layout_info,

ls_key
TYPE salv_s_layout_key,

l_restrict TYPE salv_de_layout_restriction.

l_restrict = get_restrict( ).

ls_key-report = sy-repid.

ls_layout =
cl_salv_layout_service=>f4_layouts(

s_key
= ls_key

restrict = l_restrict ).

layout = ls_layout-layout.

下面是效果图





下面是程序的所有代码:

REPORT y_xin_002.

*变量定义

TYPES: BEGIN OF gs_spfli,

mandt TYPE spfli-mandt,

carrid TYPE spfli-carrid,

connid TYPE spfli-connid,

countryfr TYPE spfli-countryfr,

cityfrom TYPE spfli-cityfrom,

airpfrom TYPE spfli-airpfrom,

countryto TYPE spfli-countryto,

cityto TYPE spfli-cityto,

airpto TYPE spfli-airpto,

fltime TYPE spfli-fltime,

deptime TYPE spfli-deptime,

arrtime TYPE spfli-arrtime,

distance TYPE spfli-distance,

distid TYPE spfli-distid,

fltype TYPE spfli-fltype,

period TYPE spfli-period,

END OF gs_spfli.

TYPES ty_spfli TYPE gs_spfli OCCURS 0.

*选择屏幕

SELECTION-SCREEN BEGIN OF BLOCK
blk WITH FRAME.

PARAMETERS: p_lay LIKE
disvariant-variant.

SELECTION-SCREEN SKIP.

PARAMETERS: p_save1 RADIOBUTTON
GROUP rg DEFAULT 'X',

p_save2 RADIOBUTTON GROUP rg,

p_save3 RADIOBUTTON GROUP rg.

SELECTION-SCREEN END OF BLOCK
blk.

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

* CLASS lcl_alv DEFINITION

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

* ALV操作类（定义）

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

CLASS lcl_alv DEFINITION.

PUBLIC SECTION.

METHODS: getdata "取得要显示的数据

RETURNING value(lt_tab) TYPE
ty_spfli,

alv_full "全屏Grid列表处理方法

IMPORTING value(lt_tab) TYPE ty_spfli.

CLASS-METHODS: f4_layout "布局选项的搜索帮助

EXPORTING
value(layout) TYPE disvariant-variant,

get_restrict "取得约束选项的值

RETURNING value(restrict)
TYPE salv_de_layout_restriction.

PRIVATE SECTION.

DATA: gr_table TYPE REF TO cl_salv_table.

ENDCLASS. "lcl_alv DEFINITION

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

* CLASS lcl_alv IMPLEMENTATION

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

* ALV操作类（实现）

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

CLASS lcl_alv
IMPLEMENTATION.

*取得要显示的数据

METHOD getdata.

SELECT * INTO CORRESPONDING FIELDS OF TABLE
lt_tab FROM spfli.

ENDMETHOD. "getdata

*输出全屏网格列表的方法

METHOD alv_full.

DATA: lr_functions TYPE REF TO cl_salv_functions_list,

lr_selections TYPE REF TO cl_salv_selections,

lr_layout TYPE REF TO cl_salv_layout,

ls_key TYPE salv_s_layout_key,

l_restrict TYPE salv_de_layout_restriction.

l_restrict = lcl_alv=>get_restrict( ).

"创建实例

TRY.

cl_salv_table=>factory(

IMPORTING

r_salv_table = gr_table

CHANGING

t_table = lt_tab

).

CATCH cx_salv_msg.

ENDTRY.

"设置布局功能按钮

ls_key-report = sy-repid.

lr_layout = gr_table->get_layout( ).

lr_layout->set_key( ls_key ).

lr_layout->set_save_restriction(
l_restrict ).

lr_layout->set_default( 'X' ).

IF p_lay IS NOT INITIAL.

lr_layout->set_initial_layout( p_lay
).

ENDIF.

"显示ALV的标准功能

lr_functions = gr_table->get_functions(
).

lr_functions->set_all( 'X' ).

"

"显示列表

gr_table->display( ).

ENDMETHOD. "alv_full

*前台布局选项搜索帮助

METHOD f4_layout.

DATA: ls_layout TYPE salv_s_layout_info,

ls_key TYPE salv_s_layout_key,

l_restrict TYPE
salv_de_layout_restriction.

l_restrict = get_restrict( ).

ls_key-report = sy-repid.

ls_layout =
cl_salv_layout_service=>f4_layouts(

s_key
= ls_key

restrict = l_restrict ).

layout = ls_layout-layout.

ENDMETHOD.
"f4_layout

*取得约束选项的值

METHOD get_restrict.

CASE 'X'.

WHEN p_save1.

restrict =
if_salv_c_layout=>restrict_none.

WHEN p_save2.

restrict =
if_salv_c_layout=>restrict_user_dependant.

WHEN p_save3.

restrict =
if_salv_c_layout=>restrict_user_independant.

ENDCASE.

ENDMETHOD. "constructor

ENDCLASS. "lcl_alv
IMPLEMENTATION

*&---------------------------------------------------------------------*

*& Form
f_main

*&---------------------------------------------------------------------*

* 整合数据，执行

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

FORM f_main.

DATA: lt_tab TYPE ty_spfli,

lr_alv TYPE REF TO lcl_alv.

CREATE OBJECT lr_alv.

"取得要显示的数据

lt_tab = lr_alv->getdata( ).

lr_alv->alv_full( lt_tab ).

ENDFORM. "f_main

*布局搜索帮助

AT SELECTION-SCREEN ON
VALUE-REQUEST FOR p_lay.

CALL METHOD lcl_alv=>f4_layout

IMPORTING

layout = p_lay.

*执行动作

START-OF-SELECTION.

PERFORM f_main.