以表MARDH为例，来开发ALV报表。
一、最简单的ALV报表
先来做一个最简单的ALV报表。源码如下：
REPORT zquy_alv_test_01.
TYPE-POOLS slis.
TABLES : mardh.
DATA :it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv,
BEGIN OF wa_data,
check TYPE c,
matnr TYPE matnr,
lgort TYPE lgort_d,
labst TYPE labst,
END OF wa_data,
wt_data LIKE wa_data OCCURS 100 WITH HEADER LINE.
PARAMETERS : p_lfgja TYPE lfgja OBLIGATORY,
p_lfmon TYPE lfmon OBLIGATORY.
START-OF-SELECTION.
PERFORM. get_data.
PERFORM. set_alv_layout.
PERFORM. dis_alv_grid.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* 填充数据
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM. get_data .
SELECT * INTO CORRESPONDING FIELDS OF TABLE wt_data FROM mardh WHERE lfgja = p_lfgja AND lfmon = p_lfmon AND labst > 1000.
ENDFORM. " get_data
*&---------------------------------------------------------------------*
*& Form set_alv_layout
*&---------------------------------------------------------------------*
* 设置数据的显示格式
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM. set_alv_layout .
wa_fieldcat-col_pos = 1.
wa_fieldcat-fieldname = 'matnr'.
wa_fieldcat-seltext_m = '物料编码'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-col_pos = 2.
wa_fieldcat-fieldname = 'lgort'.
wa_fieldcat-seltext_m = '库区'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-col_pos = 3.
wa_fieldcat-fieldname = 'labst'.
wa_fieldcat-seltext_m = '非限制使用库存'.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. " set_alv_layout
*&---------------------------------------------------------------------*
*& Form dis_alv_grid
*&---------------------------------------------------------------------*
* 输出ALV列表
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM. dis_alv_grid .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = wt_data
* 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. " dis_alv_grid
OK，运行程序后，输出如下：
二、设置ALV输出的格式
定义格式对象：
DATA:
lth_layout TYPE slis_layout_alv.
lth_layout-box_fieldname = 'CHECK'. //设置全选字段，别忘了在数据结构中加入此字段。
lth_layout-colwidth_optimize = 'X'. //设置列的宽度自动调整。
lth_layout-zebra = 'X'. // 设置间隔行颜色交替。
调用ALV显示控件：
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
is_layout = lth_layout
it_fieldcat = it_fieldcat
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = wt_data
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2.
做好调整后，运行程序，输出如下：
三、求和求平均值
wa_fieldcat-do_sum = 'A' //求这列的最大值。
wa_fieldcat-do_sum = 'B' //求这列的最小值。
wa_fieldcat-do_sum = 'C'. //求平均值,必须为大写。
按物料进行小计：
定义排序条件：
DATA : lt_sort TYPE slis_t_sortinfo_alv.
.......
START-OF-SELECTION.
PERFORM. get_data.
PERFORM. sort_build.
PERFORM. set_alv_layout.
PERFORM. dis_alv_grid.
FORM. sort_build .
DATA lwa_sort TYPE slis_sortinfo_alv.
lwa_sort-fieldname = 'MATNR'.
lwa_sort-up = 'X'.
lwa_sort-subtot = 'X'.
APPEND lwa_sort TO lt_sort.
ENDFORM. " SORT_BUILD
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
is_layout = lth_layout
it_fieldcat = it_fieldcat
IT_SORT = lt_sort
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = wt_data
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
如图：
创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、做网站、城子河网络推广、小程序制作、城子河网络营销、城子河企业策划、城子河品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联公司为所有大学生创业者提供城子河建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com
11.jpg
22.jpg
33.jpg
