ABAP:ALV List报表

本文介绍了SAP中ALV List报表方式,包括一般报表结构、设置如排序、分类汇总和合计等。阐述了ALV报表的2种显示方式及实现代码。同时强调使用注意事项,如添加列需内表有对应字段,字符串大小写在ABAP程序中很重要等。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

ALV List是SAP中的一种报表方式,一般的ALV报表有一个表头,再加上表内容。对报表的设置有排序,分类汇总和合计等预设置。
ALV报表显示方式有2种,一种是Grid方式,一种是List方式,分别调用不同的Function来实现。下面是主要代码及说明。

 

None.gifTYPE-POOLS: slis.
None.gif
None.gifform frm_show_data .
None.gif  DATA: l_line TYPE slis_listheader.
None.gif  DATA: hinfo TYPE slis_t_listheader.
None.gif  DATA: fieldcat TYPE slis_t_fieldcat_alv 
WITH HEADER LINE.
None.gif  DATA: layout TYPE slis_layout_alv .
None.gif  data: sortable type SLIS_T_SORTINFO_ALV 
with header line.
None.gif
None.gif  clear fieldcat.
None.gif  add 
1 to fieldcat-col_pos.
None.gif  fieldcat
-fieldname = 'LGORT'. " 对应的内表中的字段名称
None.gif
  fieldcat-seltext_m =  '库存地点'. "ALV中显示的标题
None.gif
  fieldcat-outputlen = 15. " 列的显示宽度,可以不设置
None.gif  append fieldcat.
*   按照上面的方式添加所有需要在ALV中显示的字段
None.gif
None.gif  clear fieldcat.
None.gif  add 
1 to fieldcat-col_pos.
None.gif  fieldcat
-fieldname = 'CSPEM'.
None.gif
  fieldcat-seltext_m =  '待报废数量'.
None.gif
  fieldcat-do_sum = 'X'.  "汇总,该字段在ALV的最底部汇总
None.gif
  append fieldcat.
None.gif
None.gif
*-------Field List Table Setting--------
None.gif
None.gif
*---------------Begin of SortTable info
None.gif
*--排序字段为分类字段,如果ALV需要自动分类合计,那么合计字段必须设置为排序字段,多个字段按照下面方式逐个添加
None.gif
*clear sortable.
None.gif
*sortable-FIELDNAME = 'LGORT'.
None.gif
*sortable-UP = 'X'.
None.gif
*sortable-DOWN = SPACE.
None.gif
*sortable-SUBTOT = 'X'.
None.gif
*append sortable.
None.gif
*-----------------End of SortTable Info
None.gif
None.giflayout
-colwidth_optimize = 'X'. "列宽度自动根据内容优化
None.gif

ExpandedBlockStart.gifContractedBlock.gif    
CALL Function '()FUNCTION 'REUSE_ALV_GRID_DISPLAY'
InBlock.gif
    EXPORTING
InBlock.gif      i_interface_check        
= ''
InBlock.gif
      i_callback_program       = sy-repid
InBlock.gif      is_layout                
= layout
InBlock.gif
*      i_callback_pf_status_set = 'SET_PF_STATUS' "如果ALV使用自定义的工具栏,如果使用系统工具栏则忽略该行
InBlock.gif
*      i_callback_user_command  = 'USER_COMMAND' "自定义工具栏的事件
InBlock.gif
      it_fieldcat              = fieldcat[]
InBlock.gif
* 这里是动态嵌入的代码,用于ALV控制头部和尾部数据
InBlock.gif      I_CALLBACK_HTML_TOP_OF_PAGE       
= 'ALV_TOP_OF_PAGE' "如果需要表头
InBlock.gif
*    it_sort = sortable[] "如果有排序和分类汇总,需要该行
InBlock.gif
* 动态代码结束
InBlock.gif    TABLES
InBlock.gif      t_outtab                 
= GI_OUTPUT "ALV数据输出使用的内表
InBlock.gif    EXCEPTIONS
InBlock.gif      program_error            
= 1
InBlock.gif      OTHERS                   
= 2.
InBlock.gif
InBlock.gifendform.                    
" frm_show_data
InBlock.gif
InBlock.gif

InBlock.gif
*------用于设置ALV的GUI状态
InBlock.gifFORM set_pf_status USING rt_extab TYPE slis_t_extab.
InBlock.gif
*  SET PF-STATUS '0100'.
InBlock.gif
ENDFORM.                    "SET_PF_STATUS
InBlock.gif

InBlock.gif
FORM user_command  USING r_ucomm LIKE sy-ucomm
InBlock.gif                                   rs_selfield TYPE slis_selfield.
InBlock.gif  
CASE r_ucomm.
InBlock.gif    WHEN 
'Z_EXPORT'.
InBlock.gif
      PERFORM frm_excel_out.
InBlock.gif  ENDCASE.
InBlock.gifENDFORM.                    
"user_command
InBlock.gif
InBlock.gif

InBlock.gif
*-------ALV Commit Setting of ALV_top_of_page--------
InBlock.gifFORM alv_top_of_page USING cl_dd TYPE REF 
TO cl_dd_document.
InBlock.gif  DATA: m_p TYPE i.
InBlock.gif  DATA: m_buff TYPE 
string.
InBlock.gif*表头其实完全可以是一个html文件,自己使用html语言进行格式控制
InBlock.gif  m_buff 
= '<html>'.
InBlock.gif
  CALL METHOD cl_dd->html_insert
InBlock.gif    EXPORTING
InBlock.gif      contents 
= m_buff
InBlock.gif    CHANGING
InBlock.gif      position 
= m_p.
InBlock.gif
InBlock.gifm_buff 
= '<center><H2>配件报废品种汇总表</H2></Center>'.
InBlock.gif
CALL METHOD CL_DD->HTML_INSERT
InBlock.gifEXPORTING
InBlock.gif  CONTENTS 
= m_buff
InBlock.gifCHANGING
InBlock.gif  POSITION 
= m_p.
InBlock.gif
InBlock.gifCONCATENATE 
'报表日期:' S_DATE-LOW ' TO ' S_DATE-HIGH  '<BR>' into m_buff.
InBlock.gif
CALL METHOD CL_DD->HTML_INSERT
InBlock.gifEXPORTING
InBlock.gif  CONTENTS 
= m_buff
InBlock.gifCHANGING
InBlock.gif  POSITION 
= m_p.
InBlock.gif
InBlock.gif
InBlock.gif  m_buff 
= '</html>'.
InBlock.gif
  CALL METHOD cl_dd->html_insert
InBlock.gif    EXPORTING
InBlock.gif      contents 
= m_buff
InBlock.gif    CHANGING
InBlock.gif      position 
= m_p.
InBlock.gifENDFORM.                    
"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中的列对应的字段名称也必须使用大写字母,否则数据不会显示出来。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值