ALV 层级分组显示报表
2011-04-10 14:11
253 查看
相当于分组显示。第一行显示分组的头,下面显示明细。
例程1:采购订单主从表ALV层次输出
*&---------------------------------------------------------------------*
*& Report Z_T_HIERSEQ_ALV *
*& *
*&---------------------------------------------------------------------*
*& 采购订单主从表ALV层次输出 *
*& *
*&---------------------------------------------------------------------*
REPORT z_t_hierseq_alv .
TABLES: ekko,ekpo.
SELECT-OPTIONS s_ebeln FOR ekko-ebeln.
*1、在程序里包含SLIS
TYPE-POOLS:slis.
*2、声明主表和明细表
DATA: BEGIN OF headertab OCCURS 0,
ebeln LIKE ekko-ebeln,
bstyp LIKE ekko-bstyp,
bsart LIKE ekko-bsart,
statu LIKE ekko-statu,
END OF headertab.
DATA: BEGIN OF itemtab OCCURS 0,
ebeln LIKE ekpo-ebeln,
ebelp LIKE ekpo-ebelp,
matnr LIKE ekpo-matnr,
werks LIKE ekpo-werks,
menge LIKE ekpo-menge,
netpr LIKE ekpo-netpr,
peinh LIKE ekpo-peinh,
netwr LIKE ekpo-netwr,
END OF itemtab.
DATA: i_fieldcat TYPE slis_t_fieldcat_alv.
DATA: v_repid LIKE sy-repid."当前程序名
*3、申明主表和明细表的名称变量
DATA: g_tabname_header TYPE slis_tabname,
g_tabname_item TYPE slis_tabname.
*4、声明主表和明细表连接关键字变量
DATA: gs_keyinfo TYPE slis_keyinfo_alv.
INITIALIZATION.
v_repid = sy-repid.
START-OF-SELECTION.
PERFORM get_data.
END-OF-SELECTION.
*5、获取头表输出表头字段名称
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = v_repid "当前程序名
i_internal_tabname = 'HEADERTAB' "主表名
i_inclname = v_repid "当前程序名
i_bypassing_buffer = 'X'
i_buffer_active = ''
CHANGING
ct_fieldcat = i_fieldcat "ALV输出的主表标题
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1
sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*6、获取从表输出表头字段名称
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'ITEMTAB'
i_inclname = v_repid
i_bypassing_buffer = 'X'
i_buffer_active = ''
CHANGING
ct_fieldcat = i_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1
sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*7、设置主从表的关联字段,最多可以设置五个字段关联。
gs_keyinfo-header01 = 'EBELN'.
gs_keyinfo-item01 = 'EBELN'.
*8、设置主表和明细表变量对应的内表名称
g_tabname_header = 'HEADERTAB'."主表
g_tabname_item = 'ITEMTAB'."明细表
*9、调用层次ALV输出函数
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
i_callback_program = v_repid
it_fieldcat = i_fieldcat
i_save = 'A'
i_tabname_header = g_tabname_header
i_tabname_item = g_tabname_item
is_keyinfo = gs_keyinfo
i_bypassing_buffer = 'X'
i_buffer_active = ' '
TABLES
t_outtab_header = headertab
t_outtab_item = itemtab
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.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM get_data.
SELECT ebeln bstyp bsart statu
INTO TABLE headertab
FROM ekko
WHERE ebeln IN s_ebeln.
IF NOT headertab[] IS INITIAL.
SELECT ebeln ebelp matnr werks menge netpr peinh netwr
INTO TABLE itemtab
FROM ekpo
FOR ALL ENTRIES IN headertab
WHERE ebeln = headertab-ebeln.
ENDIF.
ENDFORM. "get_data
还有官方的demo BALVHD01详细参见http://www.se80.co.uk/sapreports/b/balv/balvhd01.htm
相关文章推荐
- ALV 层级分组显示报表
- SAP ABAP/4学习---报表分析分组显示
- 弹出框显示ALV报表
- [转]分组报表中,如何让组名字段只显示中间的一行 [http://blog.csdn.net/xwdd129/archive/2006/05/29/760661.aspx]
- 水晶报表分组显示
- 在水晶报表分组中,只显示一行重复的字段值
- 润乾报表实现导出excel并将分组的各个类别以目录的形式显示
- 水晶报表分组统计中如何让字段值居中显示
- 水晶报表分组分页且每页最多显示N条记录
- Report报表对数据进行分组显示
- Qreport分组显示报表 (QRexp控件应用)
- birt报表的行隐藏和列隐藏以及分组显示
- 分组报表中,如何让组名字段只显示中间的一行
- ABAP 类型导致ALV 报表筛选和导出到excel物料号显示不全
- 单选按钮实现alv格式显示和报表下载功能
- 【转】RDLC报表 矩阵 详解 分组、总计、表头、显示方向、序号~~~~~追求
- 报表分组统计然后显示数据的时候顺序不正常,即使用order by 也是不可以!见图
- 分组报表中,如何让组名字段只显示中间的一行
- [水晶报表]分组时控制每页显示的组数目
- 分组报表,组名字段只显示中间一行(转)