OO实现ALV TABLE 十:ALV的页眉页脚

摘要:
1.声明设置页眉页脚所需要的Layout的实例和变量。

除了可以通过类CL_SALV_EVENTS_TABLE的事件设置ALV的页眉页脚之外,还可以通过类CL_SALV_TABLE的方法SET_TOP_OF_LIST,SET_TOP_OF_LIST_PRINT,

SET_END_OF_LIST,SET_END_OF_LIST_PRINT这四个方法。页眉页脚的显示可以设置显示和打印时不一样,打印时的页眉页脚通过方法SET_TOP_OF_LIST_PRINT和SET_END_OF_LIST_PRINT。

1.声明设置页眉页脚所需要的Layout的实例和变量。

DATA: lr_gridTYPE REF TO cl_salv_form_layout_grid,

lr_grid2TYPE REF TOcl_salv_form_layout_grid,

lr_textTYPE REF TO cl_salv_form_text,

lr_actionTYPE REF TOcl_salv_form_action_info,

lr_headerTYPE REF TO cl_salv_form_header_info,

lr_labelTYPE REF TO cl_salv_form_label.

2.添加页眉页脚所需要的文本到Layout里。

lr_header =lr_grid->create_header_information(

row = 1

column = 1

text = 'Header Information'

).

lr_label = lr_grid->create_label(

row = 2

column = 1

text = 'Label'

).

lr_action =lr_grid->create_action_information(

row = 3

column = 1

text = 'Action Information'

).

lr_text = lr_grid->create_text(

text = 'text'

row = 4

column = 1

).

gr_table->set_top_of_list( lr_grid ).

lr_text = lr_grid2->create_text(

text = 'end of page'

row = 1

column = 1

).

3.使用方法SET_TOP_OF_LIST设置页眉

gr_table->set_top_of_list( lr_grid ).

下面是效果图

OO实现ALV TABLE 十:ALV的页眉页脚第1张

下面是程序的所有代码:

REPORTy_xin_002.

*变量定义

TYPES: BEGIN OF gs_spfli,

mandtTYPE spfli-mandt,

carridTYPE spfli-carrid,

connidTYPE spfli-connid,

countryfrTYPE spfli-countryfr,

cityfromTYPE spfli-cityfrom,

airpfromTYPE spfli-airpfrom,

countrytoTYPE spfli-countryto,

citytoTYPE spfli-cityto,

airptoTYPE spfli-airpto,

fltimeTYPE spfli-fltime,

deptimeTYPE spfli-deptime,

arrtimeTYPE spfli-arrtime,

distanceTYPE spfli-distance,

distidTYPE spfli-distid,

fltypeTYPE spfli-fltype,

periodTYPE spfli-period,

END OF gs_spfli.

TYPESty_spfli TYPE gs_spfli OCCURS 0.

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

*CLASS lcl_alv DEFINITION

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

*ALV操作类(定义)

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

CLASS lcl_alv DEFINITION.

PUBLIC SECTION.

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

RETURNING value(lt_tab) TYPEty_spfli,

alv_full"全屏Grid列表处理方法

IMPORTING value(lt_tab) TYPEty_spfli.

PRIVATE SECTION.

DATA: gr_table TYPE REF TO cl_salv_table.

ENDCLASS."lcl_alv DEFINITION

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

*CLASS lcl_alv IMPLEMENTATION

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

*ALV操作类(实现)

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

CLASS lcl_alvIMPLEMENTATION.

*取得要显示的数据

METHOD getdata.

SELECT * INTO CORRESPONDING FIELDS OF TABLElt_tab FROM spfli.

ENDMETHOD."getdata

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

METHOD alv_full.

DATA: lr_functionsTYPE REF TO cl_salv_functions_list,

lr_gridTYPE REF TOcl_salv_form_layout_grid,

lr_grid2TYPE REF TO cl_salv_form_layout_grid,

lr_textTYPE REF TO cl_salv_form_text,

lr_actionTYPE REF TO cl_salv_form_action_info,

lr_headerTYPE REF TO cl_salv_form_header_info,

lr_labelTYPE REF TO cl_salv_form_label.

"创建实例

TRY.

cl_salv_table=>factory(

IMPORTING

r_salv_table = gr_table

CHANGING

t_table= lt_tab

).

CATCH cx_salv_msg.

ENDTRY.

"ALV标准功能

lr_functions = gr_table->get_functions().

lr_functions->set_all( 'X' ).

"页眉页脚

CREATE OBJECT: lr_grid,lr_grid2.

lr_header =lr_grid->create_header_information(

row = 1

column = 1

text = 'Header Information'

).

lr_label = lr_grid->create_label(

row = 2

column = 1

text = 'Label'

).

lr_action =lr_grid->create_action_information(

row = 3

column = 1

text = 'Action Information'

).

lr_text = lr_grid->create_text(

text = 'text'

row = 4

column = 1

).

gr_table->set_top_of_list( lr_grid ).

lr_text = lr_grid2->create_text(

text = 'end of page'

row = 1

column = 1

).

gr_table->set_end_of_list( lr_grid2 ).

"显示列表

gr_table->display( ).

ENDMETHOD."alv_full

ENDCLASS."lcl_alvIMPLEMENTATION

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

*&Formf_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

*执行动作

START-OF-SELECTION.

PERFORM f_main.

免责声明:文章转载自《OO实现ALV TABLE 十:ALV的页眉页脚》仅用于学习参考。如对内容有疑问,请及时联系本站处理。

上篇diedaiqiSTM32 库函数 初学笔记下篇

宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=

相关文章

DIV居中问题

/* from: http://guoxuelin.cn.blog.163.com/blog/static/4917562620093405115780/ */   一、Div层居中 如果在父级元素定义TEXT-ALIGN:center;这个的意思就是在父级元素内的内容居中;对于IE这样设定就已经可以了。但在mozilla中不能居中。解决办法就是在子元素...

html使用代码大全

<DIV style="FONT-SIZE: 9pt">1)贴图:<img src="http://t.zoukankan.com/图片地址">1)首行缩进2格:<p style="TEXT-INDENT: 2em">html使用代码大全</p> 2)加入连接:<a href="http://t.zou...

sql语句的join用法

sql的join分为三种,内连接、外连接、交叉连接。 以下先建2张表,插入一些数据,后续理解起来更方便一些。 create table emp(empno int, name char(20),depart int);create table depart(dpno int,dpname char(20));insert into emp values (...

pc端遇到的知识点

1、封装时间组件(基于 element) commonDate.vue <template> <!-- 年月日 --> <el-date-picker v-model="val" :type="type"...

DB2查询前100到后200之间的数据

select T.sicCd form Table T where T.sicCd not in ( select sicCd form Table fetch first 100 rows only ) fetch first 100 rows only...

mysql只显示表名和备注

查看某个数据下的表及其备注: select table_name,table_comment from information_schema.tables where table_schema='db' ; 只要改后面的table_schema为你的数据库名 结果: 查看某个表下的字段及其备注 desc 表名; show columns from表名...