ALV+EXCEL BDS

最新推荐文章于 2022-05-27 09:50:04 发布

原创最新推荐文章于 2022-05-27 09:50:04 发布 · 1.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#excel #structure #include #module #command #table

SAP技术同时被 2 个专栏收录

113 篇文章

订阅专栏

SAP ABAP ALV

21 篇文章

订阅专栏

本文介绍了一个使用 ABAP 编写的 ALV 控件与 Excel 导出功能相结合的应用示例。该示例展示了如何设置 ALV 控件、定义字段目录并将其显示在两种不同的布局中，最后通过 Office 集成将 ALV 的数据导出到 Excel 中。

*&---------------------------------------------------------------------* *& Report ZALV_EXCEL_SHOWALLA *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zalv_excel_showalla. *----------------------------------------------------------------------* * INCLUDE BC_ALVHIERTOP * *----------------------------------------------------------------------* INCLUDE cnt4defs. INCLUDE <list>. INCLUDE <ctldef>. TYPE-POOLS : abap, sbdst. DATA structure TYPE fieldname VALUE 'ZPOWER'. "是ALV FIELDCAT问题的关键 DATA it_sorttab TYPE lvc_t_sort. DATA it_fieldcat TYPE lvc_t_fcat. DATA it_fcat2 TYPE lvc_t_fcat. DATA cnthier1 TYPE int4. DATA cnthier2 TYPE int4. DATA wa_nfieldcat TYPE lvc_s_fcat. *----------------------------------------------------------------------* * INCLUDE OFFICEINTEGRATIONINCLUDE * *----------------------------------------------------------------------* INCLUDE officeintegrationinclude. TYPE-POOLS: sbdst. TYPES: t_url TYPE bds_uri. TYPES: BEGIN OF document_descr, document_name(40), document_id(64), END OF document_descr. TYPES: document_list TYPE TABLE OF document_descr. DATA: retcode TYPE t_oi_ret_string, document_type TYPE soi_document_type VALUE soi_doctype_excel_chart, document_format TYPE soi_document_type. *----------------------------------------------------------------------* * 基础数据声明 * *----------------------------------------------------------------------* DATA contgrid TYPE REF TO cl_gui_custom_container. DATA conttree TYPE REF TO cl_gui_custom_container. DATA tmp TYPE int4. DATA wa_fieldcat TYPE lvc_s_fcat. DATA hgrid TYPE REF TO cl_gui_alv_grid. TABLES zpower. TYPES: BEGIN OF ty_power. INCLUDE STRUCTURE zpower. TYPES: END OF ty_power. DATA itab TYPE TABLE OF ty_power. DATA wa TYPE ty_power. START-OF-SELECTION. CALL SCREEN 100. *----------------------------------------------------------------------* * MODULE STATUS_0102 OUTPUT *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE status_0102 OUTPUT. SET PF-STATUS space. SET TITLEBAR 'DEMO'. " 'HIER-ALV: DEMO. NOT operational'. DATA oncepbod0100 TYPE flag. IF ( oncepbod0100 IS INITIAL ). PERFORM get_data. oncepbod0100 = 'X'. DATA dynnr TYPE sydynnr. dynnr = sy-dynnr. DATA repid TYPE syrepid. repid = sy-repid. IF ( contgrid IS INITIAL ). dynnr = sy-dynnr. repid = sy-repid. CREATE OBJECT contgrid EXPORTING dynnr = dynnr repid = repid container_name = 'GRID'. CREATE OBJECT conttree EXPORTING dynnr = dynnr repid = repid container_name = 'TREE'. CREATE OBJECT hgrid EXPORTING i_parent = contgrid i_parentdbg = conttree. CALL METHOD hgrid->set_table_for_first_display CHANGING it_fieldcatalog = it_fcat2 it_outtab = itab. ENDIF. SET PF-STATUS space. ENDIF. ENDMODULE. " STATUS_0102 OUTPUT *----------------------------------------------------------------------* * MODULE user_command_0100 INPUT *----------------------------------------------------------------------* * *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. CALL METHOD cl_gui_cfw=>dispatch. IF ( sy-ucomm = 'EXIT' OR sy-ucomm = 'BACK' ). LEAVE TO SCREEN 0. ENDIF. ENDMODULE. " USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* *& Form get_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM get_data . SELECT * FROM zpower INTO CORRESPONDING FIELDS OF TABLE itab. CLEAR it_fieldcat[]. CALL FUNCTION 'LVC_FIELDCATALOG_MERGE' EXPORTING i_structure_name = structure CHANGING ct_fieldcat = it_fieldcat. LOOP AT it_fieldcat INTO wa_fieldcat. CLEAR wa_nfieldcat. MOVE-CORRESPONDING wa_fieldcat TO wa_nfieldcat. APPEND wa_nfieldcat TO it_fcat2. ENDLOOP. ENDFORM. " get_data

SCREEN 100 里面两个布局，名字分别是TREE/GRID

结果如下：