ABAP ALV控件的使用和ALV报表开发

ALV控件的使用和ALV
ALV(SAP List Viewer)控件是SAP业务中最常用的控件之一，本章先用一个简单的例子介绍用ALV控件显示数据，再以实例方式介绍ALV的强大功能。
本章主要内容有：
(1)简单的ALV控件实例

(2)自定义输出字段的ALV控件实例

(3)在屏幕上建立ALV控件

(4)自定义ALV控件的工具条按钮

(5)处理ALV控件双击事件

(6)通过ALV控件编辑内表和数据库更新

(7)ALV Tree的使用

(8)ALV报表开发的相关参数及属性
 

1.简单的ALV控件实例

REPORT YHELLOA.

DATA:WA_SCHOOL LIKE TABLE OF YTDSCHOOL WITH HEADER LINE.

SELECT * INTO TABLE WA_SCHOOL FROM YTDSCHOOL.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
    I_STRUCTURE_NAME = 'YTDSCHOOL'
  TABLES 
    T_OUTTAB = WA_SCHOOL
  EXCEPTIONS
    PROGRAM_ERROR = 1
    OTHERS = 2.

2.自定义输出字段的ALV控件实例

REPORT YHELLOA.

*ALV使用到的类库
 TYPE-POOLS:SLIS.
*一列描述
DATA WA_ALV_FIELD TYPE SLIS_FIELDCAT_ALV.
*列描述内表。列清单
 DATA WA_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
*d定义内表
 DATA WA_SCHOOL LIKE TABLE OF YTDSCHOOL WITH HEADER LINE.
*内表赋值
 SELECT * INTO TABLE WA_SCHOOL FROM YTDSCHOOL.
 
*定义第一到第四个字段
 WA_ALV_FIELD-COL_POS = 1.
 WA_ALV_FIELD-FIELDNAME = 'YCT_ID'.
 WA_ALV_FIELD-SELTEXT_M = '城市编号'.
 APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.

WA_ALV_FIELD-COL_POS = 2.
WA_ALV_FIELD-FIELDNAME = 'YSH_ID'.
WA_ALV_FIELD-SELTEXT_M = '学校编号'.
APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.

WA_ALV_FIELD-COL_POS = 3.
WA_ALV_FIELD-FIELDNAME = 'YSH_NAME'.
WA_ALV_FIELD-SELTEXT_M = '学校名称'.
APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.

WA_ALV_FIELD-COL_POS = 4.
WA_ALV_FIELD-FIELDNAME = 'YSH_ADDR'.
WA_ALV_FIELD-SELTEXT_M = '学校地址'.
APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
    IT_FIELDCAT = WA_ALV_FIELDCAT
    TABLES
      T_OUTTAB = WA_SCHOOL.

3.在屏幕上建立ALV控件

逻辑流：

PROCESS BEFORE OUTPUT.
 MODULE STATUS_0100.

PROCESS AFTER INPUT.
 MODULE USER_COMMAND_0100.

主程序：

REPORT YHELLOA.
*功能码返回值
DATA:OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.
*定义内表，变量需要传递，不加HEADER LINE
DATA WA_SCHOOL TYPE TABLE OF YTDSCHOOL.
*内表赋值
SELECT * INTO TABLE WA_SCHOOL FROM YTDSCHOOL.
*ALVDATA是屏幕100中定义控制控件的名称  
DATA:WA_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',
      ALV_GRID TYPE REF TO CL_GUI_ALV_GRID,
      WA_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
*直接调用窗口
CALL SCREEN 100.

MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'TESTSTA1'.
*如果窗口还没有创建ALV对象则创建它
IF WA_CUSTOM_CONTAINER IS INITIAL.
  CREATE OBJECT WA_CUSTOM_CONTAINER
  EXPORTING
    CONTAINER_NAME = WA_CONTAINER.

  CREATE OBJECT ALV_GRID
      EXPORTING
        I_PARENT = WA_CUSTOM_CONTAINER.
  
  CALL METHOD ALV_GRID->SET_TABLE_FOR_F