ABAP:ALVList报表

  • 格式:pdf
  • 大小:129.39 KB
  • 文档页数:2

ABAP:ALVList报表

ALV List是SAP中的⼀种报表⽅式,⼀般的ALV报表有⼀个表头,再加上表内容。对报表的设置有排序,分类汇总和合计等预设置。

ALV报表显⽰⽅式有2种,⼀种是Grid⽅式,⼀种是List⽅式,分别调⽤不同的Function来实现。下⾯是主要代码及说明。 TYPE-POOLS: slis.form frm_show_data . DATA: l_line TYPE slis_listheader. DATA: hinfo TYPE slis_t_listheader.

DATA: fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE. DATA: layout TYPE slis_layout_alv .

data: sortable type SLIS_T_SORTINFO_ALV with header line. clear fieldcat.

add 1 to fieldcat-col_pos.

fieldcat-fieldname = 'LGORT'. " 对应的内表中的字段名称

fieldcat-seltext_m = '库存地点'. "ALV中显⽰的标题

fieldcat-outputlen = 15. " 列的显⽰宽度,可以不设置

append fieldcat.

* 按照上⾯的⽅式添加所有需要在ALV中显⽰的字段 clear fieldcat.

add 1 to fieldcat-col_pos.

fieldcat-fieldname = 'CSPEM'.

fieldcat-seltext_m = '待报废数量'.

fieldcat-do_sum = 'X'. "汇总,该字段在ALV的最底部汇总 append fieldcat.*-------Field List Table Setting--------*---------------Begin of SortTable info

*--排序字段为分类字段,如果ALV需要⾃动分类合计,那么合计字段必须设置为排序字段,多个字段按照下⾯⽅式逐个添加*clear sortable.

*sortable-FIELDNAME = 'LGORT'.

*sortable-UP = 'X'.

*sortable-DOWN = SPACE.

*sortable-SUBTOT = 'X'.*append sortable.

*-----------------End of SortTable Info

layout-colwidth_optimize = 'X'. "列宽度⾃动根据内容优化

CALL Function '()FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING

i_interface_check = '' i_callback_program = sy-repid is_layout = layout

* i_callback_pf_status_set = 'SET_PF_STATUS' "如果ALV使⽤⾃定义的⼯具栏,如果使⽤系统⼯具栏则忽略该⾏

* i_callback_user_command = 'USER_COMMAND' "⾃定义⼯具栏的事件 it_fieldcat = fieldcat[]

* 这⾥是动态嵌⼊的代码,⽤于ALV控制头部和尾部数据

I_CALLBACK_HTML_TOP_OF_PAGE = 'ALV_TOP_OF_PAGE' "如果需要表头

* it_sort = sortable[] "如果有排序和分类汇总,需要该⾏

* 动态代码结束 TABLES

t_outtab = GI_OUTPUT "ALV数据输出使⽤的内表 EXCEPTIONS program_error = 1 OTHERS = 2.endform. " frm_show_data

*------⽤于设置ALV的GUI状态

FORM set_pf_status USING rt_extab TYPE slis_t_extab.* SET PF-STATUS '0100'.ENDFORM. "SET_PF_STATUSFORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield.

CASE r_ucomm.

WHEN 'Z_EXPORT'. PERFORM frm_excel_out. ENDCASE.ENDFORM. "user_command*-------ALV Commit Setting of ALV_top_of_page--------

FORM alv_top_of_page USING cl_dd TYPE REF TO cl_dd_document. DATA: m_p TYPE i.

DATA: m_buff TYPE string.

*表头其实完全可以是⼀个html⽂件,⾃⼰使⽤html语⾔进⾏格式控制

m_buff = ''.

CALL METHOD cl_dd->html_insert EXPORTING contents = m_buff CHANGING position = m_p.

m_buff = '

配件报废品种汇总表

'.

CALL METHOD CL_DD->HTML_INSERTEXPORTING CONTENTS = m_buffCHANGING POSITION = m_p.

CONCATENATE '报表⽇期:' S_DATE-LOW ' TO ' S_DATE-HIGH '
' into m_buff.

CALL METHOD CL_DD->HTML_INSERTEXPORTING CONTENTS = m_buffCHANGING POSITION = m_p.

m_buff = ''.

CALL METHOD cl_dd->html_insert EXPORTING contents = m_buff CHANGING position = m_p.

ENDFORM. "ALV_top_of_page

注: 在ALV中,需要注意所有添加的需要显⽰的列,都必须在相应的内表中有对应的字段,否则,只要使⽤合计或者分类汇总都会导致程序

的崩溃。

注意:在SAP ABAP程序中,字符串的⼤⼩写很重要,在单引号包围的字符串中,⼀般来说都应该⽤⼤写,特别是在调⽤⼀些系统的⽅法

时传⼊字符串参数时,例如在ALV中,Call Function 'REUSE_ALV_GRID_DISPLAY'时,传⼊的下⾯的两个参数:i_callback_pf_status_set = 'SET_PF_STATUS'

i_callback_user_command = 'USER_COMMAND'

就必须使⽤⼤写字符串,否则就会出现Perform_not_found的系统错误。

另外,传⼊到ALV中的列对应的字段名称也必须使⽤⼤写字母,否则数据不会显⽰出来。