ALV 层级分组显示报表

阳光穿透心脏的1/2处 2022-09-30 03:59 286阅读 0赞

![0_1302415655INRJ.gif][]

![0_13024156903Y7B.gif][]

相当于分组显示。第一行显示分组的头，下面显示明细。

例程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][http_www.se80.co.uk_sapreports_b_balv_balvhd01.htm]

[0_1302415655INRJ.gif]: /images/20220708/9e59ad2a60eb4f83a4552a3f19030972.png
[0_13024156903Y7B.gif]: /images/20220708/071bafdb7e0143819e2b7e0e828e19ae.png
[http_www.se80.co.uk_sapreports_b_balv_balvhd01.htm]: http://www.se80.co.uk/sapreports/b/balv/balvhd01.htm