ABAP--ALV_BLOCK_LIAST的函数使用样例
2007-08-09 08:59
471 查看
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. 运行结果:
相关文章推荐
- ABAP--ALV_BLOCK_LIAST的函数使用样例
- ABAP--ALV_BLOCK_LIAST的函数使用样例
- ABAP--ALV_BLOCK_LIAST的函数使用样例
- ABAP--ALV_BLOCK_LIAST的函数使用样例
- ABAP--如何使用REUSE_ALV_GRID_DISPLAY函数删除内表数据(样例代码,感谢依风提供)
- ABAP--如何限制REUSE_ALV_GRID_DISPLAY_LVC函数的某行某列的编辑(代码样例)
- ABAP--如何使用REUSE_ALV_GRID_DISPLAY函数删除内表数据(样例代码,感谢依风提供)
- ABAP--如何使用REUSE_ALV_GRID_DISPLAY函数删除内表数据(样例代码,感谢依风提供)
- ABAP--如何限制REUSE_ALV_GRID_DISPLAY_LVC函数的某行某列的编辑(代码样例)
- ABAP--如何使用REUSE_ALV_GRID_DISPLAY函数删除内表数据(样例代码,感谢依风提供)
- ABAP--如何限制REUSE_ALV_GRID_DISPLAY_LVC函数的某行某列的编辑(代码样例)
- ABAP--如何限制REUSE_ALV_GRID_DISPLAY_LVC函数的某行某列的编辑(代码样例)
- ABAP--如何限制REUSE_ALV_GRID_DISPLAY_LVC函数的某行某列的编辑(代码样例)
- ABAP--如何使用REUSE_ALV_GRID_DISPLAY函数删除内表数据(样例代码,感谢依风提供)
- ABAP--如何在'REUSE_ALV_GRID_DISPLAY'使用自定义F4帮助,返回多个字段以及计算修改其他字段
- ABAP--通过自定义类使用ALV(相应事件)的代码
- 使用Java connector消费ABAP系统的函数
- ABAP--如何使用CL_SALV_TABLE 的代码样例(2004以后版本)
- ABAP--如何在ALV_Grid的函数中定义下拉列表
- ABAP:Read_Text(SAVE_TEXT)函数的使用方法