*&---------------------------------------------------------------------* *& Report Z_PIDAOKUCUN3 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT z_pidaokucun3. TABLES: mkpf,mseg,prps,seri,proj,equi,mbew. DATA: BEGIN OF alv_itab OCCURS 0, bldat(10) TYPE c, "凭证中的凭证日期 budat(10) TYPE c, "凭证中的过帐日期 bwart(3) TYPE c, "移动类型 sobkz(1) TYPE c, "特殊库存标志 lifnr(10) TYPE c, "供应商 kunnr(10) TYPE c, "客户 pspnr(24) TYPE c, "WBS元素 werks(4) TYPE c, "工厂 lgort(4) TYPE c, "库存地点 matnr(18) TYPE c, "物料号 erfmg(13) TYPE c, "数量 erfme(3) TYPE c, "单位 ebeln(10) TYPE c, "采购订单号 ebelp(5) TYPE c, "采购订单行项目 exbwr(13) TYPE c, "'本地币计金额 sernr(24) TYPE c, ""序列号 messa(100) TYPE c, "用于存储检测消息 END OF alv_itab. DATA: BEGIN OF temp_itab OCCURS 0, bldat(10) TYPE c, "凭证中的凭证日期 budat(10) TYPE c, "凭证中的过帐日期 bwart(3) TYPE c, "移动类型 sobkz(1) TYPE c, "特殊库存标志 lifnr(10) TYPE c, "供应商 kunnr(10) TYPE c, "客户 pspnr(24) TYPE c, "WBS元素 werks(4) TYPE c, "工厂 lgort(4) TYPE c, "库存地点 matnr(18) TYPE c, "物料号 erfmg(13) TYPE c, "数量 erfme(3) TYPE c, "单位 ebeln(10) TYPE c, "采购订单号 ebelp(5) TYPE c, "采购订单行项目 exbwr(13) TYPE c, "'本地币计金额 sernr(24) TYPE c, ""序列号 END OF temp_itab. TYPE-POOLS:slis. DATA: ss_fname TYPE string. DATA:it_bdc LIKE bdcdata OCCURS 0 WITH HEADER LINE. "内表定义 DATA layout TYPE slis_layout_alv . DATA fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE . DATA fact LIKE LINE OF fieldcat. *DATA:bdcmsgcoll LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE. "内表定义 SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1. SELECTION-SCREEN:SKIP 1. PARAMETERS: p_test AS CHECKBO...
