ABAP--ALV_BLOCK_LIAST的函数使用样例

REPORTz_alv_block_list.

*Type-pools
TYPE-POOLS:slis.

*Datadeclarations.
DATA:BEGINOFt_vbakOCCURS0,
vbelnTYPEvbeln,
bstnkTYPEvbak-bstnk,
erdatTYPEvbak-erdat,
kunnrTYPEvbak-kunnr,
ENDOFt_vbak.

DATA:BEGINOFt_vbapOCCURS0,
vbelnTYPEvbeln,
matnrTYPEvbap-matnr,
netprTYPEvbap-netpr,
waerkTYPEvbap-waerk,
kwmengTYPEvbap-kwmeng,
meinsTYPEvbap-meins,
ENDOFt_vbap.

DATA:t_fieldcatalog1TYPEslis_t_fieldcat_alv.
DATA:t_fieldcatalog2TYPEslis_t_fieldcat_alv.
DATA:v_repidTYPEsyrepid.
DATA:s_layoutTYPEslis_layout_alv.
DATA:v_tabnameTYPEslis_tabname.
DATA:t_eventsTYPEslis_t_event.

*start-of-selectionevent.
START-OF-SELECTION.

v_repid=sy-repid.

*Getthefieldcatalogforthefirstblock
PERFORMget_fieldcat1CHANGINGt_fieldcatalog1.

*Getthefieldcatalogforthesecondblock
PERFORMget_fieldcat2CHANGINGt_fieldcatalog2.

*Getthedataforthefirstblock
SELECTvbelnbstnkerdatkunnrUPTO10ROWS
INTOTABLEt_vbak
FROMvbakWHEREvbeln>'0060000100'.

*Getthedataforthesecondblock
SELECTvbelnmatnrnetprwaerkkwmengmeinsUPTO10ROWS
INTOTABLEt_vbap
FROMvbapWHEREvbeln>'0060000100'.

*init
CALLFUNCTION'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program=v_repid.

*Firstblock
v_tabname='ITAB1'.
CALLFUNCTION'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout=s_layout
it_fieldcat=t_fieldcatalog1
i_tabname=v_tabname
it_events=t_events
TABLES
t_outtab=t_vbak.

*Secondblock
v_tabname='ITAB2'.
CALLFUNCTION'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout=s_layout
it_fieldcat=t_fieldcatalog2
i_tabname=v_tabname
it_events=t_events
TABLES
t_outtab=t_vbap.

*Display
CALLFUNCTION'REUSE_ALV_BLOCK_LIST_DISPLAY'
.

*---------------------------------------------------------------------*
*FORMGET_FIELDCAT1*
*---------------------------------------------------------------------*
*Getthefieldcatalogforthefirstblock*
*---------------------------------------------------------------------*
FORMget_fieldcat1CHANGINGlt_fieldcatalogTYPEslis_t_fieldcat_alv.

DATA:s_fieldcatalogTYPEslis_fieldcat_alv.

*Ordernumber
s_fieldcatalog-col_pos='1'.
s_fieldcatalog-fieldname='VBELN'.
s_fieldcatalog-tabname='T_VBAK'.
s_fieldcatalog-ref_tabname='VBAK'.
s_fieldcatalog-ref_fieldname='VBELN'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

*Customerpurchaseorder.
s_fieldcatalog-col_pos='2'.
s_fieldcatalog-fieldname='BSTNK'.
s_fieldcatalog-tabname='T_VBAK'.
s_fieldcatalog-ref_tabname='VBAK'.
s_fieldcatalog-ref_fieldname='BSTNK'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

*Creationdate.
s_fieldcatalog-col_pos='3'.
s_fieldcatalog-fieldname='ERDAT'.
s_fieldcatalog-tabname='T_VBAK'.
s_fieldcatalog-ref_tabname='VBAK'.
s_fieldcatalog-ref_fieldname='ERDAT'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

*Customer
s_fieldcatalog-col_pos='4'.
s_fieldcatalog-fieldname='KUNNR'.
s_fieldcatalog-tabname='T_VBAK'.
s_fieldcatalog-ref_tabname='VBAK'.
s_fieldcatalog-ref_fieldname='KUNNR'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

ENDFORM.

*---------------------------------------------------------------------*
*FORMGET_FIELDCAT2*
*---------------------------------------------------------------------*
*Getthefieldcatalogforthesecondblock*
*---------------------------------------------------------------------*
FORMget_fieldcat2CHANGINGlt_fieldcatalogTYPEslis_t_fieldcat_alv.

DATA:s_fieldcatalogTYPEslis_fieldcat_alv.

*Ordernumber
s_fieldcatalog-col_pos='1'.
s_fieldcatalog-fieldname='VBELN'.
s_fieldcatalog-tabname='T_VBAP'.
s_fieldcatalog-ref_tabname='VBAP'.
s_fieldcatalog-ref_fieldname='VBELN'.

APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

*Materialnumber
s_fieldcatalog-col_pos='2'.
s_fieldcatalog-fieldname='MATNR'.
s_fieldcatalog-tabname='T_VBAP'.
s_fieldcatalog-ref_tabname='VBAP'.
s_fieldcatalog-ref_fieldname='MATNR'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

*Netprice
s_fieldcatalog-col_pos='3'.
s_fieldcatalog-fieldname='NETPR'.
s_fieldcatalog-tabname='T_VBAP'.
s_fieldcatalog-ref_tabname='VBAP'.
s_fieldcatalog-ref_fieldname='NETPR'.
s_fieldcatalog-cfieldname='WAERK'.
s_fieldcatalog-ctabname='T_VBAP'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.

*Currency.
s_fieldcatalog-col_pos='4'.
s_fieldcatalog-fieldname='WAERK'.
s_fieldcatalog-tabname='T_VBAP'.
s_fieldcatalog-ref_tabname='VBAP'.
s_fieldcatalog-ref_fieldname='WAERK'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.
*Quantity
s_fieldcatalog-col_pos='5'.
s_fieldcatalog-fieldname='KWMENG'.
s_fieldcatalog-tabname='T_VBAP'.
s_fieldcatalog-ref_tabname='VBAP'.
s_fieldcatalog-ref_fieldname='KWMENG'.
s_fieldcatalog-qfieldname='MEINS'.
s_fieldcatalog-qtabname='T_VBAP'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.
*UOM
s_fieldcatalog-col_pos='6'.
s_fieldcatalog-fieldname='MEINS'.
s_fieldcatalog-tabname='T_VBAP'.
s_fieldcatalog-ref_tabname='VBAP'.
s_fieldcatalog-ref_fieldname='MEINS'.
APPENDs_fieldcatalogTOlt_fieldcatalog.
CLEARs_fieldcatalog.
ENDFORM.
运行结果：