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  '用户信息表',
         'S'  'ID' CONTXT.

   CALL  FUNCTION  'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
      IT_LIST_COMMENTARY = IT_COMMENT
      I_LOGO             =  'ENJOYSAP_LOGO'.

   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.

ENDFORM.                     "ALV_TOP_OF_PAGE



*页脚处理子例程
FORM ALV_END_OF_PAGE.
   DATA:W_DATA  TYPE SLIS_LISTHEADER-INFO.
   DATA:W_UNAME  TYPE SLIS_LISTHEADER-INFO.
   DATA:Z_DATA  TYPE STRING.
   CONCATENATE
    SY-DATUM+ 0( 4)
    SY-DATUM+ 4( 2)
    SY-DATUM+ 6( 2)
     INTO W_DATA  SEPARATED  BY  '/'.
   MOVE SY-UNAME  TO W_UNAME.

   REFRESH IT_COMMENT.
   PERFORM INSERT_IT_COMMENT  USING:
         'S'  '用户名：' W_UNAME,
         'S'  '时间：' W_DATA.

   CALL  FUNCTION  'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
      IT_LIST_COMMENTARY = IT_COMMENT
      I_END_OF_LIST_GRID =  'X'.

ENDFORM.                     "ALV_END_OF_PAGE

*&---------------------------------------------------------------------*
*&      Form  INSERT_IT_COMMENT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->TYP        text
*      -->KEY        text
*      -->INFO       text
*----------------------------------------------------------------------*
FORM INSERT_IT_COMMENT
   USING TYP  TYPE SLIS_LISTHEADER-TYP
         KEY  TYPE SLIS_LISTHEADER- KEY
        INFO  TYPE SLIS_LISTHEADER-INFO.
   CLEAR ST_COMMENT.
  ST_COMMENT-TYP = TYP.  "H=Header, S=Selection, A=Action供选择
  ST_COMMENT- KEY =  KEY.
  ST_COMMENT-INFO = INFO.
   APPEND ST_COMMENT  TO IT_COMMENT.
ENDFORM.                     "INSERT_IT_COMMENT
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_FIELDCAT
*&---------------------------------------------------------------------*
*       设置ALV报表列属性
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_FIELDCAT .
   REFRESH IT_FIELDCAT.
   PERFORM INSERT_IT_FIELDCAT  USING:
         0  'ID'  'ZHYUSERMAIN-ID'  'ID' SPACE,
         1  'NAME'  'ZHYUSERMAIN-NAME'  '姓名' SPACE,
         2  'AGE'  'ZHYUSERMAIN-AGE'  '年龄' SPACE,
         3  'ADDR'  'ZHYUSERMAIN-ADDR'  '地址' SPACE,
         4  'SCHOOL'  'ZHYUSERMAIN-SCHOOL'  '学校' SPACE.
ENDFORM.                     " FRM_SET_FIELDCAT

*&---------------------------------------------------------------------*
*&      Form  INSERT_IT_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->COL_POS        列序
*      -->FIELDNAME      绑定的内表列名
*      -->REF_FIELDNAME  录入时，帮助制作时指定表中参考列名称
*      -->SELTEXT_M      字段描述
*      -->EDIT           是否可编辑
*----------------------------------------------------------------------*
FORM INSERT_IT_FIELDCAT  USING
      COL_POS  TYPE SLIS_FIELDCAT_ALV-COL_POS
      FIELDNAME  TYPE SLIS_FIELDCAT_ALV-FIELDNAME
      REF_FIELDNAME  TYPE SLIS_FIELDCAT_ALV-REF_FIELDNAME
      SELTEXT_M  TYPE SLIS_FIELDCAT_ALV-SELTEXT_M
       EDIT  TYPE SLIS_FIELDCAT_ALV- EDIT.

   CLEAR ST_FIELDCAT.
  ST_FIELDCAT-COL_POS = COL_POS.
  ST_FIELDCAT-FIELDNAME = FIELDNAME.
  ST_FIELDCAT-REF_FIELDNAME = REF_FIELDNAME.
  ST_FIELDCAT-SELTEXT_M = SELTEXT_M.
  ST_FIELDCAT- EDIT =  EDIT.
   APPEND ST_FIELDCAT  TO IT_FIELDCAT.

ENDFORM.                     "INSERT_IT_FIELDCAT
*&---------------------------------------------------------------------*
*&      Form  FRM_SET_SORT
*&---------------------------------------------------------------------*
*       显示前页表数据的排序
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SET_SORT .
   REFRESH IT_SORT.
   PERFORM INSERT_IT_SORT  USING:
         2  'AGE'  'X',
         1  'ID'  'X'.
ENDFORM.                     " FRM_SET_SORT

FORM INSERT_IT_SORT  USING
      SPOS  TYPE SLIS_SORTINFO_ALV-SPOS
      FIELDNAME  TYPE SLIS_SORTINFO_ALV-FIELDNAME
       UP  TYPE SLIS_SORTINFO_ALV- UP.

   CLEAR ST_SORT.
  ST_SORT-SPOS = SPOS.
  ST_SORT-FIELDNAME = FIELDNAME.
  ST_SORT- UP =  UP.
   APPEND ST_SORT  TO IT_SORT.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_DISPLAY_ALV
*&---------------------------------------------------------------------*
*       ALV报表的显示
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DISPLAY_ALV .
   CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
      I_INTERFACE_CHECK = SPACE
      I_CALLBACK_PROGRAM = SY-REPID
      IS_LAYOUT = ST_LAYOUT
      IT_FIELDCAT = IT_FIELDCAT
      IT_SORT = IT_SORT
      I_DEFAULT =  'X'
      I_SAVE =  'A'
      IT_EVENTS = IT_EVENT
     TABLES
      T_OUTTAB = IT_OUT
     EXCEPTIONS
      PROGRAM_ERROR =  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.
   ENDIF.
ENDFORM.                     " FRM_DISPLAY_ALV