1 *&---------------------------------------------------------------------*
2 *& Report Y4_B4_TEST20
3 *&---------------------------------------------------------------------*
4 *&
5 *&---------------------------------------------------------------------*
6 REPORT y4_b4_test20.
7 TABLES: ekko,ekpo.
8 SELECT-OPTIONS s_ebeln FOR ekko-ebeln.
9
10 *1、在程序里包含SLIS
11 TYPE-POOLS:slis.
12
13 *2、声明主表和明细表
14 DATA: BEGIN OF headertab OCCURS 0,
15 ebeln LIKE ekko-ebeln,
16 bstyp LIKE ekko-bstyp,
17 bsart LIKE ekko-bsart,
18 statu LIKE ekko-statu,
19 END OF headertab.
20
21 DATA: BEGIN OF itemtab OCCURS 0,
22 ebeln LIKE ekpo-ebeln,
23 ebelp LIKE ekpo-ebelp,
24 matnr LIKE ekpo-matnr,
25 werks LIKE ekpo-werks,
26 menge LIKE ekpo-menge,
27 netpr LIKE ekpo-netpr,
28 peinh LIKE ekpo-peinh,
29 netwr LIKE ekpo-netwr,
30 END OF itemtab.
31
32 DATA: i_fieldcat TYPE slis_t_fieldcat_alv.
33 DATA: v_repid LIKE sy-repid."当前程序名
34
35 *3、申明主表和明细表的名称变量
36 DATA: g_tabname_header TYPE slis_tabname,
37 g_tabname_item TYPE slis_tabname.
38
39 *4、声明主表和明细表连接关键字变量
40 DATA: gs_keyinfo TYPE slis_keyinfo_alv.
41
42 INITIALIZATION.
43 v_repid = sy-repid.
44
45 START-OF-SELECTION.
46
47 PERFORM get_data.
48
49 END-OF-SELECTION.
50
51 *5、获取头表输出表头字段名称
52 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
53 EXPORTING
54 i_program_name = v_repid "当前程序名
55 i_internal_tabname = 'HEADERTAB' "主表名
56 i_inclname = v_repid "当前程序名
57 i_bypassing_buffer = 'X'
58 i_buffer_active = ''
59 CHANGING
60 ct_fieldcat = i_fieldcat "ALV输出的主表标题
61 EXCEPTIONS
62 inconsistent_interface = 1
63 program_error = 2
64 OTHERS = 3.
65 IF sy-subrc <> 0.
66 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1
67 sy-msgv2 sy-msgv3 sy-msgv4.
68 ENDIF.
69
70 *6、获取从表输出表头字段名称
71 CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
72 EXPORTING
73 i_program_name = sy-repid
74 i_internal_tabname = 'ITEMTAB'
75 i_inclname = v_repid
76 i_bypassing_buffer = 'X'
77 i_buffer_active = ''
78 CHANGING
79 ct_fieldcat = i_fieldcat
80 EXCEPTIONS
81 inconsistent_interface = 1
82 program_error = 2
83 OTHERS = 3.
84 IF sy-subrc <> 0.
85 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1
86 sy-msgv2 sy-msgv3 sy-msgv4.
87 ENDIF.
88
89 *7、设置主从表的关联字段,最多可以设置五个字段关联。
90 gs_keyinfo-header01 = 'EBELN'.
91 gs_keyinfo-item01 = 'EBELN'.
92
93 *8、设置主表和明细表变量对应的内表名称
94 g_tabname_header = 'HEADERTAB'."主表
95 g_tabname_item = 'ITEMTAB'."明细表
96
97 *9、调用层次ALV输出函数
98 CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
99 EXPORTING
100 i_callback_program = v_repid
101 it_fieldcat = i_fieldcat
102 i_save = 'A'
103 i_tabname_header = g_tabname_header
104 i_tabname_item = g_tabname_item
105 is_keyinfo = gs_keyinfo
106 i_bypassing_buffer = 'X'
107 i_buffer_active = ' '
108 TABLES
109 t_outtab_header = headertab
110 t_outtab_item = itemtab
111 EXCEPTIONS
112 program_error = 1
113 OTHERS = 2.
114 IF sy-subrc <> 0.
115 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
116 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
117 ENDIF.
118
119 FORM get_data.
120
121 SELECT ebeln bstyp bsart statu
122 INTO TABLE headertab
123 FROM ekko
124 WHERE ebeln IN s_ebeln.
125
126 IF NOT headertab[] IS INITIAL.
127 SELECT ebeln ebelp matnr werks menge netpr peinh netwr
128 INTO TABLE itemtab
129 FROM ekpo
130 FOR ALL ENTRIES IN headertab
131 WHERE ebeln = headertab-ebeln.
132 ENDIF.
133
134 ENDFORM.