在SAP R/3中实现库存日清功能 .

大型电子制造企业大多采用按生产计划配送物料的方式，配送中心通过产品物料清单（BOM）、计划、实时库存进行MRP运算的结果，按生产线（成本中心）齐套物料。保管员、配套员的日常工作非常饱满，每个工作日后的

盘存（日清）就显得非常重要，库存准确与否将对下一个工作日配套质量产生重要的影响。SAP R/3有标准的盘点流程，但在实际操作中应用于日清盘存过于繁琐，它更适用于财务月度（年度）的盘存。

数据挖掘研究院

数据挖掘研究院

日清盘存由于只能在日常收货、配发工作完成后进行，所以对时间的要求很严格，应该做到简洁和高效。按照常规的盘存要求，应对库存地所有物料进行清点，但这在日清盘存中是绝对做不到的。我们采取的日清盘存方式，是根据保管员当日的收货、发货、转储物料凭证，对发生过库存变更的物料进行统计，打印出日清盘存表供保管员清点实物。由于当日发生过库存变更的物料占库存物料种类的比例一般不会太高，这样在大幅减轻日清盘存工作量的情况下，可以尽可能的提高盘存的精确度。

数据挖掘研究院

数据挖掘研究院

程序清单如下，用ABAP开发，在SAP R/3 4.5D上测试通过，关于程序说明见程序注解。 数据挖掘研究院

数据挖掘研究院

PROGRAM ZMTHD NO STANDARD PAGE HEADING LINE-SIZE 164 MESSAGE-ID Z1. 数据挖掘研究院

*$asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-

数据挖掘研究院

*& 查询并导出当日有收发的保管员库存清单 Author: Frank Feng(FQ) 数据挖掘研究院

*& (不分批次) 2003.10.15 数据挖掘实验室

*& last modify: 2004.06.15

数据挖掘研究院

*$asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-

数据挖掘实验室

TABLES:MSEG,MKPF,MARD,MARA,MAKT,T001W.

数据挖掘研究院

*MSEG：物料凭证表，收货、发货、转储凭证均保存在这个表中

*MKPF：物料凭证抬头表，凭证日期是保存在这个表中，根据日期汇集物料凭证，

数据挖掘研究院

* 然后根据物料凭证在MSEG中获得物料凭证明细

数据挖掘研究院

*MARD：库存地物料库存

*MARA：常规物料数据，包括物料代码、计量单位、旧物料号等 数据挖掘研究院

*MAKT：物料描述

*T001W：工厂部门数据，用于权限检查 数据挖掘研究院

* 定义数据结构 数据挖掘研究院

数据挖掘研究院

TYPES: BEGIN OF SFKC_TYPE,

数据挖掘研究院

B_MBLNR LIKE MSEG-MBLNR, "物料凭证编号 数据挖掘研究院

B_WERKS LIKE MSEG-WERKS, "工厂 数据挖掘研究院

B_LGORT LIKE MSEG-LGORT, "库存地 数据挖掘研究院

B_MATNR LIKE MSEG-MATNR, "物料代码 数据挖掘研究院

B_BISMT LIKE MARA-BISMT, "旧物料号

B_MAKTX LIKE MAKT-MAKTX, "物料描述

B_MEINS(4), "基本计量单位 数据挖掘研究院

B_LABST LIKE MARD-LABST, "非限制库存 数据挖掘实验室

B_INSME LIKE MARD-INSME, "质检库存 数据挖掘实验室

B_SPEME LIKE MARD-SPEME, "冻结库存

数据挖掘研究院

B_LGPBE LIKE MARD-LGPBE, "我们是用"仓位"记录保管员姓名

数据挖掘实验室

END OF SFKC_TYPE.

数据挖掘实验室

数据挖掘研究院

TYPES: BEGIN OF LIST_TYPE,

数据挖掘研究院

B_WERKS LIKE MSEG-WERKS, "工厂

B_LGORT LIKE MSEG-LGORT, "库存地

B_MATNR LIKE MSEG-MATNR, "物料代码 数据挖掘实验室

B_BISMT LIKE MARA-BISMT, "旧物料号 数据挖掘研究院

B_MAKTX LIKE MAKT-MAKTX, "物料描述 数据挖掘研究院

B_MEINS(4), "基本计量单位

数据挖掘研究院

B_LABST LIKE MARD-LABST, "非限制库存

B_INSME LIKE MARD-INSME, "质检库存 数据挖掘研究院

B_SPEME LIKE MARD-SPEME, "冻结库存 数据挖掘研究院

B_LGPBE LIKE MARD-LGPBE, "仓位-->保管员 数据挖掘研究院

END OF LIST_TYPE.

数据挖掘研究院

DATA: FQ_ITAB TYPE STANDARD TABLE OF SFKC_TYPE WITH HEADER LINE, 数据挖掘研究院

LI_ITAB TYPE STANDARD TABLE OF LIST_TYPE WITH HEADER LINE.

DATA: BEGIN OF IWERKS OCCURS 0,

WERKS LIKE T001W-WERKS, 数据挖掘研究院

END OF IWERKS. 数据挖掘研究院

数据挖掘研究院

DATA: TOTALLINE(5) TYPE N VALUE 0. "日清表的总行数（记录数） 数据挖掘研究院

数据挖掘实验室

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn 数据挖掘研究院

*日清表条件输入(我们默认工厂是2010，可以根据实际需求更改)

数据挖掘研究院

SELECTION-SCREEN BEGIN OF BLOCK FQ WITH FRAME TITLE TEXT-001.

数据挖掘实验室

SELECTION-SCREEN SKIP 1. 数据挖掘实验室

SELECT-OPTIONS: V_WERKS FOR MSEG-WERKS MEMORY ID WRK NO INTERVALS 数据挖掘研究院

OBLIGATORY DEFAULT "2010", "工厂

数据挖掘实验室

V_LGORT FOR MSEG-LGORT MEMORY ID LAG, "库存地

V_LGPBE FOR MARD-LGPBE, "仓位-->保管员 数据挖掘研究院

JZ_DATE FOR MKPF-BUDAT DEFAULT SY-DATUM TO SY-DATUM.

"记帐日期 数据挖掘研究院

PARAMETERS: V_MJAHR(4) DEFAULT SY-DATUM(4).

数据挖掘研究院

SELECTION-SCREEN END OF BLOCK FQ. 数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn- 数据挖掘研究院

INCLUDE .

START-OF-SELECTION. 数据挖掘研究院

* 根权限对象ZAUTHOR进行权限检查，如不要求，可以去除 数据挖掘研究院

SELECT WERKS FROM T001W INTO TABLE IWERKS WHERE WERKS IN V_WERKS.

数据挖掘研究院

数据挖掘研究院

LOOP AT IWERKS.

AUTHORITY-CHECK OBJECT "ZAUTHOR"

数据挖掘研究院

ID "ZQQ_WERKS" FIELD IWERKS-WERKS. 数据挖掘研究院

IF SY-SUBRC NE 0. 数据挖掘研究院

MESSAGE A722 WITH IWERKS-WERKS. 数据挖掘研究院

ENDIF. 数据挖掘研究院

ENDLOOP. 数据挖掘研究院

CLEAR T001W. 数据挖掘实验室

CLEAR IWERKS. 数据挖掘实验室

*根据记账日期区间汇集相关物料凭证

数据挖掘研究院

SELECT * FROM MKPF

数据挖掘研究院

WHERE MJAHR = V_MJAHR AND BUDAT IN JZ_DATE.

IF SY-SUBRC = 0.

FQ_ITAB-B_MBLNR = MKPF-MBLNR.

数据挖掘研究院

APPEND FQ_ITAB. 数据挖掘研究院

ENDIF. 数据挖掘实验室

ENDSELECT.

CLEAR MKPF. 数据挖掘研究院

数据挖掘研究院

LOOP AT FQ_ITAB. 数据挖掘研究院

SELECT * FROM MSEG WHERE MBLNR = FQ_ITAB-B_MBLNR AND "more lines

数据挖掘实验室

MJAHR = SY-DATUM(4). 数据挖掘研究院

IF SY-SUBRC EQ 0. 数据挖掘研究院

LI_ITAB-B_WERKS = MSEG-WERKS.

数据挖掘实验室

LI_ITAB-B_LGORT = MSEG-LGORT. 数据挖掘研究院

LI_ITAB-B_MATNR = MSEG-MATNR. 数据挖掘研究院

APPEND LI_ITAB. 数据挖掘研究院

ENDIF. 数据挖掘研究院

ENDSELECT. 数据挖掘实验室

ENDLOOP.

CLEAR FQ_ITAB. 数据挖掘研究院

CLEAR FQ_ITAB[].

CLEAR MSEG. 数据挖掘研究院

数据挖掘实验室

*删除不符的凭证明细 数据挖掘研究院

DELETE LI_ITAB WHERE NOT ( B_WERKS IN V_WERKS AND B_LGORT IN V_LGORT ) 数据挖掘研究院

OR B_WERKS IS INITIAL OR B_LGORT IS INITIAL.

数据挖掘实验室

SORT LI_ITAB BY B_WERKS B_LGORT B_MATNR. 数据挖掘研究院

数据挖掘研究院

*压缩内表，保证按工厂、库存地、物料号关键字记录唯一

数据挖掘研究院

DELETE ADJACENT DUPLICATES FROM LI_ITAB 数据挖掘研究院

COMPARING B_WERKS B_LGORT B_MATNR. 数据挖掘实验室

CONDENSE TOTALLINE. 数据挖掘研究院

数据挖掘研究院

* 遍历汇集的工厂库存地物料库存，写入表中 数据挖掘实验室

LOOP AT LI_ITAB.

数据挖掘研究院

SELECT * FROM MARD WHERE WERKS = LI_ITAB-B_WERKS AND

LGORT = LI_ITAB-B_LGORT AND

MATNR = LI_ITAB-B_MATNR.

数据挖掘研究院

IF SY-SUBRC EQ 0 AND MARD-LVORM IS INITIAL.

LI_ITAB-B_LABST = MARD-LABST. 数据挖掘研究院

LI_ITAB-B_INSME = MARD-INSME.

数据挖掘研究院

LI_ITAB-B_SPEME = MARD-SPEME.

数据挖掘研究院

LI_ITAB-B_LGPBE = MARD-LGPBE.

数据挖掘研究院

ENDIF.

数据挖掘研究院

ENDSELECT.

数据挖掘研究院

SELECT * FROM MARA WHERE MATNR = LI_ITAB-B_MATNR.

数据挖掘实验室

IF SY-SUBRC = 0.

数据挖掘实验室

LI_ITAB-B_BISMT = MARA-BISMT. 数据挖掘研究院

LI_ITAB-B_MEINS = MARA-MEINS.

ENDIF.

ENDSELECT. 数据挖掘实验室

SELECT * FROM MAKT WHERE MATNR = LI_ITAB-B_MATNR

AND SPRAS = SY-LANGU. 数据挖掘研究院

IF SY-SUBRC = 0.

LI_ITAB-B_MAKTX = MAKT-MAKTX. 数据挖掘研究院

ENDIF. 数据挖掘研究院

ENDSELECT. 数据挖掘研究院

MODIFY LI_ITAB. 数据挖掘研究院

ENDLOOP.

IF NOT V_LGPBE IS INITIAL.

数据挖掘研究院

DELETE LI_ITAB WHERE NOT ( B_LGPBE IN V_LGPBE ).

数据挖掘研究院

ENDIF.

数据挖掘研究院

CLEAR MARD.

数据挖掘研究院

CLEAR MARA. 数据挖掘研究院

CLEAR MAKT.

数据挖掘研究院

LOOP AT LI_ITAB. 数据挖掘研究院

TOTALLINE = TOTALLINE + 1. 数据挖掘研究院

ENDLOOP. 数据挖掘研究院

END-OF-SELECTION. 数据挖掘实验室

数据挖掘研究院

数据挖掘实验室

IF TOTALLINE EQ 0.

WRITE: / "没有满足选定条件的物料" COLOR 3. 数据挖掘研究院

ELSE.

SORT LI_ITAB BY B_WERKS B_LGORT B_LGPBE B_MATNR. 数据挖掘实验室

WRITE: /3 ICON_GREEN_LIGHT,"程序运行成功,共", 数据挖掘研究院

TOTALLINE,"项". 数据挖掘研究院

PERFORM LISTOUT. "执行日清表写屏程序 数据挖掘研究院

ENDIF.

数据挖掘研究院

START-OF-SELECTION. 数据挖掘实验室

数据挖掘研究院

SET PF-STATUS "LIST".

AT USER-COMMAND.

数据挖掘实验室

CASE SY-UCOMM. 数据挖掘实验室

WHEN "DOWNLOAD". 数据挖掘研究院

PERFORM DOWNLOAD. "下载日清表格到文本

数据挖掘研究院

WHEN "TOXLS".

数据挖掘研究院

PERFORM TOEXCEL. "导出日清表格到Excel 数据挖掘实验室

ENDCASE. 数据挖掘研究院

END-OF-SELECTION.

数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-- 数据挖掘实验室

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn*

*& Form LISTOUT 数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn* 数据挖掘研究院

* text 数据挖掘实验室

*asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-*

* --> p1 text

数据挖掘研究院

* <-- p2 text 数据挖掘研究院

*asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-*

* 在屏幕上写日清表

FORM LISTOUT.

数据挖掘研究院

数据挖掘实验室

SET LEFT SCROLL-BOUNDARY COLUMN 33. 数据挖掘研究院

数据挖掘实验室

ULINE 0(162).

数据挖掘研究院

WRITE:/73 "保管员库存日清核对表" . 数据挖掘研究院

WRITE:/. 数据挖掘研究院

ULINE 1(162).

WRITE: AT /1 SY-VLINE, AT 2 "工厂",

6 SY-VLINE, 7 "库存地", 数据挖掘研究院

13 SY-VLINE, 14 "物料代码", 数据挖掘实验室

32 SY-VLINE, 33 "旧物料号", 数据挖掘研究院

51 SY-VLINE, 52 "物料描述",

92 SY-VLINE, 93 "单位",

数据挖掘研究院

97 SY-VLINE, 98 "非限制库存", 数据挖掘实验室

115 SY-VLINE, 116 "质检库存", 数据挖掘研究院

133 SY-VLINE, 134 "冻结库存", 数据挖掘研究院

151 SY-VLINE, 152 "保管员",162 SY-VLINE.

ULINE 0(162).

数据挖掘研究院

DATA: COLORCH TYPE I VALUE 0.

数据挖掘研究院

LOOP AT LI_ITAB.

IF COLORCH EQ 0. 数据挖掘研究院

WRITE: /1 SY-VLINE, 2 LI_ITAB-B_WERKS COLOR 1,

6 SY-VLINE, 7 " " COLOR 1,8 LI_ITAB-B_LGORT COLOR 1, 数据挖掘研究院

12 " " COLOR 1, 数据挖掘研究院

13 SY-VLINE, 14 LI_ITAB-B_MATNR COLOR 1, 数据挖掘研究院

32 SY-VLINE, 33 LI_ITAB-B_BISMT COLOR 1," delete by FQ 数据挖掘研究院

51 SY-VLINE, 52 LI_ITAB-B_MAKTX COLOR 1, 数据挖掘研究院

92 SY-VLINE, 93 LI_ITAB-B_MEINS COLOR 1,76 " " COLOR 1,

97 SY-VLINE, 98 LI_ITAB-B_LABST COLOR 1, 数据挖掘研究院

115 SY-VLINE,116 LI_ITAB-B_INSME COLOR 1, 数据挖掘研究院

133 SY-VLINE,134 LI_ITAB-B_SPEME COLOR 1,

151 SY-VLINE,152 LI_ITAB-B_LGPBE COLOR 1,162 SY-VLINE.

数据挖掘研究院

COLORCH = 1. 数据挖掘研究院

ELSE. 数据挖掘实验室

WRITE: /1 SY-VLINE, 2 LI_ITAB-B_WERKS COLOR 2, 数据挖掘研究院

6 SY-VLINE, 7 " " COLOR 2,8 LI_ITAB-B_LGORT COLOR 2,

12 " " COLOR 2,

数据挖掘研究院

13 SY-VLINE, 14 LI_ITAB-B_MATNR COLOR 2,

数据挖掘研究院

32 SY-VLINE, 33 LI_ITAB-B_BISMT COLOR 2,"delete by fq 数据挖掘研究院

51 SY-VLINE, 52 LI_ITAB-B_MAKTX COLOR 2, 数据挖掘研究院

92 SY-VLINE,93 LI_ITAB-B_MEINS COLOR 2,76 " " COLOR 2,

97 SY-VLINE, 98 LI_ITAB-B_LABST COLOR 2,

115 SY-VLINE,116 LI_ITAB-B_INSME COLOR 2,

133 SY-VLINE,134 LI_ITAB-B_SPEME COLOR 2, 数据挖掘研究院

151 SY-VLINE,152 LI_ITAB-B_LGPBE COLOR 2,162 SY-VLINE.

COLORCH = 0.

ENDIF. 数据挖掘研究院

ENDLOOP. 数据挖掘研究院

ULINE 0(162).

数据挖掘研究院

ENDFORM. " LISTOUT

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn* 数据挖掘研究院

*& Form DOWNLOAD

数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn* 数据挖掘研究院

* text 数据挖掘研究院

*asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-*

数据挖掘研究院

* --> p1 text 数据挖掘研究院

* <-- p2 text

*asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-* 数据挖掘研究院

*下载日清表到文本

数据挖掘研究院

FORM DOWNLOAD.

数据挖掘研究院

DATA: CANCELUSER TYPE C,OUTFILE LIKE RLGRAP-FILENAME.

数据挖掘实验室

CALL FUNCTION "DOWNLOAD"

EXPORTING

数据挖掘研究院

FILENAME = "d:gcheck.txt"

数据挖掘研究院

FILETYPE = "DAT"

数据挖掘研究院

ITEM = "输出日清表（不分批次）"

数据挖掘实验室

MODE = " " 数据挖掘实验室

IMPORTING

ACT_FILENAME = OUTFILE "user out filename 数据挖掘研究院

CANCEL = CANCELUSER 数据挖掘研究院

TABLES

数据挖掘研究院

DATA_TAB = LI_ITAB . 数据挖掘研究院

数据挖掘研究院

IF SY-SUBRC EQ 0.

数据挖掘实验室

IF CANCELUSER EQ SPACE. " not press the X button

MESSAGE S683 WITH OUTFILE. 数据挖掘研究院

ENDIF. 数据挖掘研究院

ENDIF. 数据挖掘研究院

ENDFORM. " DOWNLOAD 数据挖掘研究院

数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn*

数据挖掘研究院

*& Form TOEXCEL

数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn* 数据挖掘研究院

* text 数据挖掘实验室

*asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-*

数据挖掘研究院

* --> p1 text

数据挖掘实验室

* <-- p2 text 数据挖掘研究院

*asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn-*

*导出日清表到Excel

FORM TOEXCEL. 数据挖掘研究院

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cndefine data for Function!asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn

DATA: XMPL_HEADER LIKE GXXLT_P-TEXT VALUE "Fenq Software".

数据挖掘研究院

DATA BEGIN OF XMPLT_O OCCURS 1. " For further explanation, please

INCLUDE STRUCTURE GXXLT_O. " refer to report XXLFTEST.

数据挖掘实验室

DATA END OF XMPLT_O. " This report is similar in

数据挖掘研究院

" structure to XXLFTEST, but 数据挖掘研究院

DATA BEGIN OF XMPLT_P OCCURS 1. " avoids any special features in 数据挖掘研究院

INCLUDE STRUCTURE GXXLT_P. " order to demonstrate the

数据挖掘研究院

DATA END OF XMPLT_P. " applicability of XXL_SIMPLE_API 数据挖掘实验室

" in straight-forward situations.

数据挖掘研究院

DATA BEGIN OF XMPLT_V OCCURS 1.

数据挖掘实验室

INCLUDE STRUCTURE GXXLT_V.

数据挖掘实验室

DATA END OF XMPLT_V. 数据挖掘实验室

*&asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cndefine data end!asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn- 数据挖掘研究院

数据挖掘研究院

*$asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn--set field for reportasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn

XMPLT_V-COL_NO = 1.

XMPLT_V-COL_NAME = "工厂". 数据挖掘实验室

APPEND XMPLT_V. 数据挖掘研究院

数据挖掘研究院

XMPLT_V-COL_NO = 2. 数据挖掘研究院

XMPLT_V-COL_NAME = "库存地". 数据挖掘实验室

APPEND XMPLT_V.

数据挖掘研究院

数据挖掘研究院

XMPLT_V-COL_NO = 3.

数据挖掘研究院

XMPLT_V-COL_NAME = "物料代码". 数据挖掘研究院

APPEND XMPLT_V. 数据挖掘研究院

数据挖掘研究院

* when cpzx not use this then delete

XMPLT_V-COL_NO = 4. 数据挖掘研究院

XMPLT_V-COL_NAME = "旧物料号".

数据挖掘实验室

APPEND XMPLT_V. 数据挖掘研究院

数据挖掘研究院

XMPLT_V-COL_NO = 5. 数据挖掘研究院

XMPLT_V-COL_NAME = "物料描述".

APPEND XMPLT_V. 数据挖掘研究院

数据挖掘研究院

XMPLT_V-COL_NO = 6. 数据挖掘研究院

XMPLT_V-COL_NAME = "计量单位".

APPEND XMPLT_V.

数据挖掘研究院

XMPLT_V-COL_NO = 7. 数据挖掘研究院

XMPLT_V-COL_NAME = "非限制库存".

数据挖掘研究院

APPEND XMPLT_V. 数据挖掘研究院

XMPLT_V-COL_NO = 8. 数据挖掘研究院

XMPLT_V-COL_NAME = "质检库存". 数据挖掘研究院

APPEND XMPLT_V.

数据挖掘实验室

数据挖掘研究院

XMPLT_V-COL_NO = 9.

XMPLT_V-COL_NAME = "冻结库存". 数据挖掘研究院

APPEND XMPLT_V.

数据挖掘研究院

XMPLT_V-COL_NO = 10. 数据挖掘研究院

XMPLT_V-COL_NAME = "保管员".

数据挖掘研究院

APPEND XMPLT_V. 数据挖掘研究院

*$asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnset field for report end!asadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cnasadfdw.cn 数据挖掘研究院

数据挖掘研究院

CALL FUNCTION "XXL_SIMPLE_API" 数据挖掘实验室

EXPORTING 数据挖掘研究院

N_KEY_COLS = 1

数据挖掘实验室

FILENAME = "bgcheck" 数据挖掘研究院

HEADER = XMPL_HEADER

数据挖掘实验室

TABLES

数据挖掘研究院

DATA = LI_ITAB

ONLINE_TEXT = XMPLT_O 数据挖掘研究院

PRINT_TEXT = XMPLT_P

COL_TEXT = XMPLT_V

数据挖掘研究院

EXCEPTIONS

数据挖掘研究院

DIM_MISMATCH_DATA = 71 数据挖掘研究院

FILE_OPEN_ERROR = 72

数据挖掘研究院

FILE_WRITE_ERROR = 73

数据挖掘研究院

INV_WINSYS = 74

INV_XXL = 75.

数据挖掘研究院

CASE SY-SUBRC.

数据挖掘研究院

WHEN 0.

数据挖掘实验室

MESSAGE S692.

数据挖掘实验室

WHEN 71.

数据挖掘实验室

RAISE DIM_MISMATCH_DATA.

数据挖掘实验室

WHEN 72.

RAISE FILE_OPEN_ERROR.

WHEN 73. 数据挖掘研究院

RAISE FILE_WRITE_ERROR.

数据挖掘研究院

WHEN 74. 数据挖掘研究院

RAISE INV_WINSYS.

数据挖掘研究院

WHEN 75.

数据挖掘研究院

RAISE INV_XXL.

ENDCASE. 数据挖掘研究院

数据挖掘研究院

ENDFORM. " TOEXCEL 数据挖掘研究院

数据挖掘研究院

（来源：CCW）