ABAP的ALV报表开发(转）
ALV相关概念
ALV是系统的一种网格的显示方式,这种方式带有汇总\排序\筛选等功能,ALV格式的数据是以单元格为单位显示,不象一般的写屏方式拷出来或是
导出成文件不同列的内容粘在一块,这种方式便于数据导出来放在电子表格里进行加工。 ALV即能显示简单表单（SIMPLE LIST）又能显示有序表单（SEQUENTIALLIST）：
ALV实现方式：
ALV 可以通过两种方式实现：Two Approaches Conventional (Using SAP Standard Function Modules).
Object Oriented (Using SAP Standard Classes and Methods).
以下我们要讲的为Function Modules方式。
ALV实现流程：
第一步：定义将要用到的表，即TALBES定义部分，然后定义TYPE-POOLS: SLIS.
第二步：定义数据类型或者内表的实体对象.
第三步：定义一些需要用到的变量.
第四步：定义自己的选择屏幕.
第五步：start-of-selection部分.
1)用一个子函数完成对ALV表单标题区域的赋值(i_list_comments). 2)用一个子函数完成自己所需要数据的抓取. 3)用一个子函数完成要显示列表的列名行(第一行)的相关赋值(i_fieldcat_alv)以及设置. 4)用一个子函数完成输出格式的设置(i_layout)，比如双击一条记录是否弹出对话框啊?是用哪个功能键触发等等. 5)用一个子函数FORM DISPLAY_DATA来显示上面我们已经分别封装好的数据，需要调用两个常用的FUNCTION MODULE.
下面根据一个普通的例子来具体解释各步骤：
*&---------------------------------------------------------------------*
*& Report ZHYALVREPORTDEMO2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZHYALVREPORTDEMO2.
*第一步：添加TYPE-POOLS和所需要的TABLES
TYPE-POOLS:SLIS.
TABLES:ZHYUSERMAIN,ZHYUSERLINE.
*第二步：定义ALV报表的内表数据类型和内表，用来作为ALV报表的DATASOURCE
TYPES:BEGIN OF T_OUT,
ID LIKE ZHYUSERMAIN-ID,
NAME LIKE ZHYUSERMAIN-NAME,
AGE LIKE ZHYUSERMAIN-AGE,
ADDR LIKE ZHYUSERLINE-ADDR,
SCHOOL LIKE ZHYUSERLINE-SCHOOL,
END OF T_OUT.
DATA: IT_OUT TYPE STANDARD TABLE OF T_OUT WITH HEADER LINE,
ST_OUT LIKE LINE OF IT_OUT.
*第三步：定义ALV报表的相关的参数
DATA:ST_LAYOUT TYPE SLIS_LAYOUT_ALV,"ALV报表的LAYOUT设置
IT_EVENT TYPE SLIS_T_EVENT,"ALV的事件内表
ST_EVENT LIKE LINE OF IT_EVENT,"ALV的单个事件对象
* ST_EVENT TYPE SLIS_ALV_EVENT,
IT_COMMENT TYPE SLIS_T_LISTHEADER,"存储表头信息的内表
ST_COMMENT LIKE LINE OF IT_COMMENT,"存储单个表头信息
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,"存储ALV报表的COLUMNS信息的内表
ST_FIELDCAT LIKE LINE OF IT_FIELDCAT,"单个COLUMN信息
* ST_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
IT_SORT TYPE SLIS_T_SORTINFO_ALV,"保存排序列的信息
ST_SORT LIKE LINE OF IT_SORT."单个SORT信息
* ST_SORT TYPE SLIS_SORTINFO_ALV.
**1)SLIS_LAYOUT_ALV是一个类型，它用来定义ALV报表的整体属性例如：
* *ST_LAYO-ZEBRA = 'X'.“显示成斑马纹样式
* *ST_LAYO-DETAIL_POPUP = 'X'.“是否弹出详细信息窗口
* *ST_LAYO-F2CODE = '&ETA'. “设置触发弹出详细信息窗口的功能码，这里是双击
* *ST_LAYO-COLWIDTH_OPTIMIZE = 'X'. “优化列宽选项是否设置
* *ST_LAYO-DETAIL_INITIAL_LINES = 'X'.
* *ST_LAYO -no_vline = 'X'.“这个用来设置列间隔线
* *ST_LAYO -detail_titlebar = '详细内容'. “设置弹出窗口的标题栏
**2)SLIS_T_EVENT是一个取得事件的内表，通过函数REUSE_ALV_EVENTS_GET取得多个事件(包括操作页眉页脚的事件).
**3)SLIS_T_LISTHEADER操作页眉页脚的内表.
**4)SLIS_T_FIELDCAT_ALV操作ALV报表列的内表.
**5)SLIS_T_SORTINFO_ALV对显示数据排序的内表。
*第四步：定义自己的选择屏幕的查询条件包括PARAMETERS和SELECT-OPTIONS
SELECT-OPTIONS:S_ID FOR ZHYUSERMAIN-ID.
*在选择屏幕处做一些输入的条件的验证。
AT SELECTION-SCREEN.
PERFORM FRM_CHECK_SDATA."调用验证子例程FRM_CHECK_SDATA
* 第五步：在START-OF-SELECTION部分调用以下子例程设置ALV报表所要使用到的相关参数
*即对第三步定义的一些ALV参数进行设置
*1：FRM_GET_DATA获得数据赋值给ALV数据源内表IT_OUT
*2：FRM_SET_LAYOUT设置ALV报表样式
*3：FRM_SET_EVENT设置ALV报表的事件
*4：FRM_SET_FIELDCAT设置ALV的列属性。
*5：FRM_SET_SORT设置ALV的排序属性。
*6：FRM_DISPLAY_ALV显示ALV报表。
START-OF-SELECTION.
PERFORM FRM_GET_DATA.
PERFORM FRM_SET_LAYOUT.
PERFORM FRM_SET_EVENT.
PERFORM FRM_SET_FIELDCAT.
PERFORM FRM_SET_SORT.
PERFORM FRM_DISPLAY_ALV.
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_SDATA
*&---------------------------------------------------------------------*
* 判断录入参数的合法性
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_CHECK_SDATA .
*做一些判断
IF S_ID-HIGH = 3.
MESSAGE '用户ID不能等于3' TYPE 'E' .
LEAVE TO LIST-PROCESSING.
ENDIF.
ENDFORM. " FRM_CHECK_SDATA
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
* 取数据到内表中
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
SELECT
ZHYUSERMAIN~ID
ZHYUSERMAIN~NAME
ZHYUSERMAIN~AGE
ZHYUSERLINE~ADDR
ZHYUSERLINE~SCHOOL
INTO CORRESPONDING FIELDS OF TABLE IT_OUT
FROM ZHYUSERMAIN
INNER JOIN ZHYUSERLINE ON ZHYUSERLINE~MAINID = ZHYUSERMAIN~ID.
IF SY-SUBRC <> 0 .
MESSAGE '读取数据进内表失败' TYPE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. " FRM_GET_DATA
*&---------------------------------------------------------------------*
*& Form FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_SET_LAYOUT .
CLEAR ST_LAYOUT.
ST_LAYOUT-ZEBRA = 'X'.
ST_LAYOUT-DETAIL_POPUP = 'X'.
ST_LAYOUT-F2CODE = '&ETA'.
ST_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ST_LAYOUT-DETAIL_INITIAL_LINES = 'X'.
ENDFORM. " FRM_SET_LAYOUT
*&---------------------------------------------------------------------*
*& Form FRM_SET_EVENT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM FRM_SET_EVENT .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = IT_EVENT
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
LEAVE TO LIST-PROCESSING.
ENDIF.
READ TABLE IT_EVENT
WITH KEY NAME = SLIS_EV_END_OF_LIST
INTO ST_EVENT.
IF SY-SUBRC = 0.
ST_EVENT-FORM = 'ALV_END_OF_PAGE'."将页尾子程名称赋值给 ST_EVENT-FORM
MODIFY IT_EVENT FROM ST_EVENT INDEX SY-TABIX.
ENDIF.
READ TABLE IT_EVENT
WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
INTO ST_EVENT.
IF SY-SUBRC = 0 .
ST_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
MODIFY IT_EVENT FROM ST_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM. " FRM_SET_EVENT
*页眉处理子例程
FORM ALV_TOP_OF_PAGE.
DATA:CONTXT TYPE SLIS_LISTHEADER-INFO.
DATA:L,H TYPE STRING.
MOVE S_ID-LOW TO L .
MOVE S_ID-HIGH TO H.
CONCATENATE L '~' H INTO CONTXT.
REFRESH IT_COMMENT.
PERFORM INSERT_IT_COMMENT USING:
'H' SPACE '用户信息表',