ABAP[采购信息记录查询]绝对好例子参照.pdfVIP

1.先看下运行的界面： 2.选择条件，点击运行按钮，结果如下图所示： 3 ．相应示例代码如下： ** * Report ZTEST_ALV2 * ** * * ** REPORT ytest0206. * 定义所需要的报表 tables : EINE,LFA1,EKPO,eina. *for alv type-pools: slis. data: i_fieldcat_alv type slis_t_fieldcat_alv, 定义列标题 (属性 / 信息 ) i_layout type slis_layout_alv, alv 格式 i_fieldcat type slis_fieldcat_alv, i_events type slis_t_event, alv 事件 w_events like line of i_events, i_list_comments type slis_t_listheader, alv 表单标题区域设置 w_list_comments like line of i_list_comments, w_repid like sy-repid. 当前程序 * 定义内表字段 *1. 选择屏幕 data: begin of hd_itab occurs 0, infnr like eine-infnr, 采购信息记录 ekorg like eine-ekorg, 采购组织 matnr like eina-matnr, 物料号码 lifnr like eina-lifnr, 供应商 erdat like eine-erdat, 记录建立时间 loekz like eine-loekz, 删除标记 urznr like eina-urznr, 批准号 color(4) type c, 颜色 *2. 显示屏幕 aplfz like eine-aplfz, 计划交货时间 netpr like eine-netpr, 净价 peinh like eine-peinh, 价格单位 dwjj like eine-netpr, 单位净价 bprme like eine-bprme, 计量单位 MAKTX like MAKT-MAKTX, 物料名称 name1 like lfa1-name1, 供应商名称 end of hd_itab. * 定义选择屏幕 selection-screen begin of block b1 with frame title t1. select-options:s_infnr for eine-infnr memory id INF. 信息记录号码 PARAMETERS: PR_LOEKZ TYPE CAS CHECKBOX DEFAULT . 显示有删除标记的信息记录 select-options:s_ekorg for eine-ekorg memory id EKO. 采购组织 select-options:s_matnr for eina-matnr memory id MAT. 物料号码 select-options:s_lifnr for eina-lifnr memory id LIF. 供应商号码 select-options:s_erdat for eine-erdat memory id s_erdat. 创建日期 select-options:s_urznr for eina-urznr memory id s_urznr. 批准号 selection-screen end of block b1. * 程序初始化 initialization. t1 = 采购查询 . * 数据选择 start-of-selection. perform getd