SE38-报表实例.docVIP

SE38-报表实例 ** * Report ZTESTPP01 * ** * * ** REPORT ZTESTPP01. * TABLE DESCRIPTION : 宣告程序会使用的TABLE * *--定义需要用到的表 tables: mara,makt,marc. *--ALV的参数 start type-pools: slis. include ole2incl. data: g_fieldcat_alv type slis_t_fieldcat_alv with header line, g_layout type slis_layout_alv, g_fieldcat type slis_fieldcat_alv, g_repid like sy-repid. data: it_event type slis_t_event, it_header type slis_t_listheader . data: excel_obj type ole2_object, book_obj type ole2_object, sheet_obj type ole2_object, cell_obj type ole2_object, row_obj type ole2_object, column_obj type ole2_object, range_obj type ole2_object, borders_obj type ole2_object, int_obj type ole2_object, font_obj type ole2_object. *--ALV的参数 end *--定义要输出的内表 data: begin of itab occurs 0, matnr like marc-matnr, 物料号 maktx like makt-maktx, 物料描述 meins like mara-meins,物料单位 werks like marc-werks, 工厂 ekgrp like marc-ekgrp, 采购组 dismm like marc-dismm, MRP控制者 end of itab. *--定义界面 selection-screen begin of block blk1 with frame title text-001. select-options: matnr for marc-matnr, 料号 werks for marc-werks.工厂 selection-screen skip 1. selection-screen end of block blk1. initialization. clear :itab. at selection-screen. *--报表调用的程序 start-of-selection. perform sub_get_data. perform layout_build. 用于定义ALV表单的相关格式、属性 perform fields. 用来定义表单中的各个列的相关信息，比如列名等 perform display_data. 用来显示ALV表单 ** * Form sub_get_data ** * text ** * -- p1 text * -- p2 text ** *--获取数据 form sub_get_data . * 取值（ITAB） select marc~matnr 物料号 makt~maktx 物料描述 mara~meins物料单位