1 *&---------------------------------------------------------------------*
2 *& 包括 ZCM_ZMARC_DMSNEW_F01
3 *&---------------------------------------------------------------------*
4
5 FORM SUB_SETDMS USING P_WERKS TYPE MARC-WERKS.
6
7 ***常量***
8 CONSTANTS: C_VTWEG LIKE S983-VTWEG VALUE '30', "*分销渠道**
9 C_FACTOR TYPE P LENGTH 2 DECIMALS 2 VALUE '0.3',"*FACTOR值**
10 C_MAX_DATA_RANGE TYPE I VALUE 10. "DMS最大计算日期范围.
11
12 DATA: L_WA_ZMARCFACTOR TYPE ZMARCFACTOR.
13 DATA: L_DATE TYPE DATS,
14 L_DMS TYPE P LENGTH 12 DECIMALS 2.
15 DATA: L_OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
16 L_LASTDATE TYPE DATS, "*存放DMS最后更新日期**
17 L_FACTOR_C(4) TYPE C,
18 L_ERROR(1) TYPE C,
19 L_CNT TYPE I.
20
21 L_DATE = SY-DATUM - 1."做前一天的．
22
23 PERFORM SUB_ADDLOG USING TEXT-013 'S'. "*添加日志信息．**
24
25 ***从ZMARCLOG表中取出最后更新日期***
26 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
27 EXPORTING
28 INPUT = 'ZDMS'
29 IMPORTING
30 OUTPUT = L_OBJECTCLAS.
31
32 SELECT SINGLE * INTO CORRESPONDING FIELDS OF G_WA_ZMARCLOG
33 FROM ZMARCDMSLOG
34 WHERE ZTYPE = '6'
35 AND WERKS = P_WERKS.
36
37 IF SY-SUBRC <> 0.
38 G_WA_ZMARCLOG-OBJECTCLAS = L_OBJECTCLAS.
39 G_WA_ZMARCLOG-ZTYPE = '6'.
40 G_WA_ZMARCLOG-WERKS = P_WERKS.
41 G_WA_ZMARCLOG-ZFLAG = SPACE. "初始值为空。
42 ENDIF.
43
44 ***从日志中查看今天是否已做过,做过,退出***
45 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
46 EXPORTING
47 INPUT = G_WA_ZMARCLOG-CHANGENR
48 IMPORTING
49 OUTPUT = G_WA_ZMARCLOG-CHANGENR.
50
51 SHIFT G_WA_ZMARCLOG-CHANGENR LEFT DELETING LEADING '0'.
52 L_LASTDATE = G_WA_ZMARCLOG-CHANGENR+0(8).
53 ***判断日期有效性!!!!***
54 CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
55 EXPORTING
56 DATE = L_LASTDATE
57 EXCEPTIONS
58 PLAUSIBILITY_CHECK_FAILED = 1
59 OTHERS = 2.
60
61 ***L_CNT = L_DATE - L_LASTDATE.
62 IF SY-SUBRC <> 0.
63 CONCATENATE TEXT-026 L_LASTDATE INTO G_WA_ZXSYSLOG-ZDESC. "*生成日志信息．**
64 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
65 PERFORM SUB_ADDLOG USING TEXT-024 'E'. "*添加日志信息．**
66 RETURN.
67 ENDIF.
68
69 ***判断ＤＭＳ是否已计算过．*** 判断日期和是否执行成功。by sunxm add.
70 IF L_LASTDATE >= L_DATE AND G_WA_ZMARCLOG-ZFLAG = 'X'.
71 CONCATENATE TEXT-023 L_LASTDATE '-' P_WERKS INTO G_WA_ZXSYSLOG-ZDESC.
72 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'W'. "*添加日志信息．**
73 PERFORM SUB_ADDLOG USING TEXT-024 'E'. "*添加日志信息．**
74 RETURN.
75 ENDIF.
76
77 ***取出factor数据***
78 SELECT SINGLE FACTOR INTO CORRESPONDING FIELDS OF L_WA_ZMARCFACTOR
79 FROM ZMARCFACTOR.
80
81 ***如未取出factor值.停止计算***
82 IF SY-SUBRC <> 0.
83 CONCATENATE '未找到FACTOR的值.' TEXT-024 INTO G_WA_ZXSYSLOG-ZDESC.
84 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
85 RETURN.
86 ENDIF.
87
88 ****如果中间有Ｎ天未算，要补算．***
89 WHILE L_LASTDATE < L_DATE.
90 L_LASTDATE = L_LASTDATE + 1.
91 ***生成临时数据***
92 PERFORM SUB_SET_DMSTD USING L_LASTDATE P_WERKS
93 CHANGING L_ERROR.
94
95 IF L_ERROR <> ''.
96 EXIT.
97 ENDIF.
98 ***计算ＤＭＳ***
99 PERFORM SUB_SET_DMSCALC USING L_WA_ZMARCFACTOR-FACTOR P_WERKS
100 CHANGING L_ERROR.
101
102 IF L_ERROR <> ''.
103 EXIT.
104 ENDIF.
105 ***写入ＺＭＡＲＣ***
106 PERFORM SUB_SET_DMSSYNC USING L_LASTDATE L_WA_ZMARCFACTOR-FACTOR P_WERKS
107 CHANGING L_ERROR.
108
109 IF L_ERROR <> ''.
110 EXIT.
111 ENDIF.
112
113 ENDWHILE.
114
115 IF L_ERROR = ''.
116 CONCATENATE TEXT-029 L_FACTOR_C INTO G_WA_ZXSYSLOG-ZDESC.
117 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'S'. "*添加日志信息．**
118 ELSE.
119 CONCATENATE TEXT-030 L_FACTOR_C INTO G_WA_ZXSYSLOG-ZDESC.
120 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
121 ENDIF.
122
123
124 ENDFORM. "sub_setdms
125
126
127
128 ********************************功能注释********************************
129 **功能名称: SUB_ADDLOG
130 **功能说明: 添加系统日志内容。
131 ** xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
132 ** 参数 参数类型 说明
133 ** ------- ------------- ----------------------------------
134 ** xxxxx xxxxxxxx xxxxxxxxxxxxxxxxxxxxxx
135 ** xxxxx xxxxxxxx xxxxxxxxxxxxxxxxxxxxxx
136 ************************************************************************
137
138 FORM SUB_ADDLOG USING P_MSG TYPE C P_ETYPE TYPE C.
139 G_WA_ZXSYSLOG-ZDESC = P_MSG. "*生成日志信息．**
140 G_WA_ZXSYSLOG-ZETYPE = P_ETYPE.
141 G_WA_ZXSYSLOG-ZNO = G_WA_ZXSYSLOG-ZNO + 1.
142 APPEND G_WA_ZXSYSLOG TO G_ITAB_ZXSYSLOG.
143 ENDFORM. "SUB_ADDLOG
144
145 ********************************功能注释********************************
146 **功能名称: SUB_SAVELOG
147 **功能说明: 保存系统日志。
148 ** xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
149 ** 参数 参数类型 说明
150 ** ------- ------------- ----------------------------------
151 ** xxxxx xxxxxxxx xxxxxxxxxxxxxxxxxxxxxx
152 ** xxxxx xxxxxxxx xxxxxxxxxxxxxxxxxxxxxx
153 ************************************************************************
154
155 FORM SUB_SAVELOG .
156 CALL FUNCTION 'ZFUN_CREATE_LOG'
157 EXPORTING
158 P_OBJECT = 'ZCM' "*对象名.**
159 P_SUBOBJECT = 'ZMARC' "*子对象名.**
160 TABLES
161 P_ITAB_LOG = G_ITAB_ZXSYSLOG. "*日志内容内表.**
162
163 ENDFORM. " SUB_SAVELOG
164
165
166
167
168 ********************************功能注释********************************
169 **功能名称: SUB_SET_DMSTD
170 **功能说明: 生成DMS临时数据.
171 ** 参数 参数类型 说明
172 ** ------- ------------- ----------------------------------
173 ** P_DATE DATS 计算DMS的日期
174 ** P_RETURN C 返回值．空：成功．Ｘ：出错．
175 ************************************************************************
176 FORM SUB_SET_DMSTD USING P_DATE TYPE DATS
177 P_WERKS TYPE MARC-WERKS
178 CHANGING P_RETURN TYPE C.
179
180 DATA: L_DATERANGE TYPE DATS,
181 L_WA_ZMARCDMS LIKE ZMARCDMS.
182 PERFORM SUB_ADDLOG USING TEXT-018 'S'. "*添加日志信息．**
183
184 FREE P_RETURN.
185 L_DATERANGE = P_DATE - 6."7天内.包括当天,所以少减一天.
186
187 ***查询ZMARCDMS中是否有数据***
188 SELECT SINGLE * INTO CORRESPONDING FIELDS OF L_WA_ZMARCDMS
189 FROM ZMARCDMS
190 WHERE WERKS = P_WERKS.
191 IF SY-SUBRC <> 4.
192 DELETE FROM ZMARCDMS WHERE WERKS = P_WERKS.
193 IF SY-SUBRC = 0.
194 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
195 ELSE.
196 P_RETURN = 'X'.
197 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
198 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
199 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
200 RETURN.
201 ENDIF.
202 ENDIF.
203
204 ***1.STORE***
205 ***1.1 生成7天有销售的数据-门店***
206 *** BY SUNXM 加地点条件
207 FREE EXC_REF.
208 TRY.
209 EXEC SQL.
210 INSERT INTO ZMARCDMS(MANDT,MATNR,WERKS)
211 (SELECT DISTINCT A.MANDT,A.MATNR,A.WERKS
212 FROM S983 A,T001W B
213 WHERE A.MANDT=B.MANDT AND A.WERKS=B.WERKS
214 AND B.WERKS = :P_WERKS
215 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_ST
216 AND A.SPTAG >= :L_DATERANGE AND A.SPTAG <= :P_DATE
217 AND A.VTWEG <> :C_VTWEG
218 AND A.VKBUR = ' ')
219 ENDEXEC.
220 **获取错误.***
221 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
222 ERROR_TEXT = EXC_REF->GET_TEXT( ).
223 ENDTRY.
224
225 IF EXC_REF IS INITIAL.
226 CALL FUNCTION 'DB_COMMIT'.
227 ELSE.
228 P_RETURN = 'X'.
229 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
230 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
231 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
232 RETURN.
233 ENDIF.
234
235 IF P_DMSN IS NOT INITIAL.
236 **新算法.
237 ***1.1B 按促销单,生成促销售据-门店 和 DC***
238 DATA: BEGIN OF LT_PROMOTION OCCURS 0,
239 AKTNR LIKE WAKP-AKTNR,
240 MATNR LIKE WAKP-ARTNR,
241 KUNNR LIKE WALE-KUNNR,
242 WERKS LIKE T001W-WERKS,
243 AKART LIKE WAKH-AKART,
244 EKKPS LIKE WAKP-EKKPS,"*采购价格条件**
245 VKKPS LIKE WAKP-VKKPS,"*维护销售价格条件的状态**
246 * EKKON LIKE WAKP-EKKON,"*创建采购价格条件记录**
247 * VKKON LIKE WAKP-VKKON,"*创建销售价格条件记录**
248 EKGEN LIKE WALE-EKGEN,"*采购价格生成状态
249 END OF LT_PROMOTION.
250
251 DATA: LT_PRO_DMS LIKE ZMARCDMS OCCURS 0 WITH HEADER LINE,
252 LT_PRO_DMS_DC LIKE ZMARCDMS OCCURS 0 WITH HEADER LINE.
253
254 *** 转换地点用。
255 DATA: LW_KUNNR LIKE WALE-KUNNR.
256
257 FIELD-SYMBOLS: <LFS_PRO> LIKE LINE OF LT_PROMOTION.
258
259 TYPES: BEGIN OF LX_T001W,
260 WERKS LIKE T001W-WERKS,
261 VLFKZ LIKE T001W-VLFKZ,
262 END OF LX_T001W.
263
264 DATA LT_T001W TYPE LX_T001W OCCURS 0.
265 "取 DC 编号
266 SELECT WERKS
267 INTO CORRESPONDING FIELDS OF TABLE LT_T001W
268 FROM T001W
269 WHERE VLFKZ = C_VLFKZ_DC
270 AND WERKS = P_WERKS. " by sunxm 加地点条件。
271 SORT LT_T001W BY WERKS.
272
273 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
274 EXPORTING
275 INPUT = P_WERKS
276 IMPORTING
277 OUTPUT = LW_KUNNR.
278
279 SELECT WAKP~AKTNR WAKP~ARTNR AS MATNR
280 WALE~KUNNR WAKH~AKART WAKP~EKKPS WAKP~VKKPS WALE~EKGEN
281 FROM WAKH
282 INNER JOIN WAKP ON WAKH~AKTNR = WAKP~AKTNR
283 INNER JOIN WALE ON WAKP~ARTNR = WALE~ARTNR AND WAKP~AKTNR = WALE~AKTNR
284 INTO CORRESPONDING FIELDS OF TABLE LT_PROMOTION
285 WHERE WAKH~VKDAB <= P_DATE
286 AND WAKH~VKDBI >= P_DATE
287 AND WALE~KUNNR = LW_KUNNR " by sunxm 加地点条件。!!! 时间要改为wakh判断。
288 * AND wale~vkdab <= p_date
289 * AND wale~vkdbi >= p_date
290 AND WAKH~AKART IN ('ZS01','ZP02','ZP03').
291
292 LOOP AT LT_PROMOTION ASSIGNING <LFS_PRO> .
293 CASE <LFS_PRO>-AKART.
294 WHEN 'ZS01'."销售促销
295 CHECK <LFS_PRO>-VKKPS = 'B'.
296 WHEN 'ZP03'."进价促销
297 CHECK <LFS_PRO>-EKKPS = 'B'.
298 CHECK <LFS_PRO>-EKGEN = 'B'.
299 WHEN 'ZP02'."进售价联动促销
300 CHECK <LFS_PRO>-VKKPS = 'B'.
301 CHECK <LFS_PRO>-EKKPS = 'B'.
302 CHECK <LFS_PRO>-EKGEN = 'B'.
303 ENDCASE.
304
305 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
306 EXPORTING
307 INPUT = <LFS_PRO>-KUNNR
308 IMPORTING
309 OUTPUT = <LFS_PRO>-WERKS.
310
311 LT_PRO_DMS-MATNR = <LFS_PRO>-MATNR.
312 LT_PRO_DMS-WERKS = <LFS_PRO>-WERKS.
313 LT_PRO_DMS-AKTNR = <LFS_PRO>-AKTNR.
314 READ TABLE LT_T001W WITH KEY
315 WERKS = <LFS_PRO>-WERKS BINARY SEARCH TRANSPORTING NO FIELDS.
316 IF SY-SUBRC = 0.
317 "DC 促销信息。
318 APPEND LT_PRO_DMS TO LT_PRO_DMS_DC.
319 ELSE.
320 "门店促销信息。
321 APPEND LT_PRO_DMS.
322 ENDIF.
323
324 ENDLOOP.
325 IF LINES( LT_PRO_DMS ) > 0.
326 MODIFY ZMARCDMS FROM TABLE LT_PRO_DMS .
327 IF SY-SUBRC = 0.
328 COMMIT WORK.
329 ELSE.
330 ROLLBACK WORK.
331 P_RETURN = 'X'.
332 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
333 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
334 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
335 RETURN.
336 ENDIF.
337
338 FREE LT_PRO_DMS.
339 ENDIF.
340
341 ENDIF.
342
343
344
345 ****begin added by zhangwei 增加解决map为零商品的dms计算逻辑。 2012-11-20
346 ****首先计算出所有的门店销售记录。此步骤并不排除sto数量。排除条件 and A.UMSGEO <> 0
347 FREE EXC_REF.
348 TRY.
349 EXEC SQL.
350 UPDATE ZMARCDMS C SET (C.AKTNR,C.UMSMNG)=(
351 SELECT MAX(A.AKTNR) AKTNR,SUM(A.UMSMNG) UMSMNG
352 FROM S983 A,T001W B
353 WHERE C.MANDT=A.MANDT AND C.MATNR=A.MATNR
354 AND C.WERKS=A.WERKS
355 AND A.MANDT=B.MANDT AND A.WERKS=B.WERKS
356 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_ST
357 AND B.WERKS = :P_WERKS
358 AND A.SPTAG = :P_DATE
359 AND A.VTWEG <> :C_VTWEG
360 AND A.VKBUR = ' '
361 AND A.UMSMNG <> 0
362
363 GROUP BY A.MANDT,A.MATNR,A.WERKS
364 )
365 WHERE EXISTS
366 (SELECT 1
367 FROM S983 A,T001W B
368 WHERE C.MANDT=A.MANDT AND C.MATNR=A.MATNR
369 AND C.WERKS=A.WERKS
370 AND A.MANDT=B.MANDT AND A.WERKS=B.WERKS
371 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_ST
372 AND B.WERKS = :P_WERKS
373 AND A.SPTAG = :P_DATE
374 AND A.VTWEG <> :C_VTWEG
375 AND A.VKBUR = ' '
376 AND A.UMSMNG <> 0
377
378 GROUP BY A.MANDT,A.MATNR,A.WERKS
379 )
380
381 ENDEXEC.
382 **获取错误.***
383 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
384 ERROR_TEXT = EXC_REF->GET_TEXT( ).
385 ENDTRY.
386
387 IF EXC_REF IS INITIAL.
388 CALL FUNCTION 'DB_COMMIT'.
389 ELSE.
390 P_RETURN = 'X'.
391 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
392 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
393 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
394 RETURN.
395 ENDIF.
396
397 ****begin added by zhangwei 增加解决map为零商品的dms计算逻辑。 2012-11-20
398 ****首先计算出所有的门店销售记录。此步骤并不排除sto数量。
399
400
401
402
403 ***1.2 生成当日销售数据-门店***
404 *** by sunxm 加地点条件。
405 *** by sunxm add DMS取数据逻辑修改 RELK900040 20120530.
406 *** sum(a.umsmng) 替换为. sum(umsmng-kzwi2/(umsgeo/umsmng))
407 FREE EXC_REF.
408 TRY.
409 EXEC SQL.
410 UPDATE ZMARCDMS C SET (C.AKTNR,C.UMSMNG)=(
411 SELECT MAX(A.AKTNR) AKTNR,SUM(A.UMSMNG-A.KZWI2/(A.UMSGEO/A.UMSMNG)) UMSMNG
412 FROM S983 A,T001W B
413 WHERE C.MANDT=A.MANDT AND C.MATNR=A.MATNR
414 AND C.WERKS=A.WERKS
415 AND A.MANDT=B.MANDT AND A.WERKS=B.WERKS
416 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_ST
417 AND B.WERKS = :P_WERKS
418 AND A.SPTAG = :P_DATE
419 AND A.VTWEG <> :C_VTWEG
420 AND A.VKBUR = ' '
421 AND A.UMSMNG <> 0
422 and A.UMSGEO <> 0
423 GROUP BY A.MANDT,A.MATNR,A.WERKS
424 )
425 WHERE EXISTS
426 (SELECT 1
427 FROM S983 A,T001W B
428 WHERE C.MANDT=A.MANDT AND C.MATNR=A.MATNR
429 AND C.WERKS=A.WERKS
430 AND A.MANDT=B.MANDT AND A.WERKS=B.WERKS
431 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_ST
432 AND B.WERKS = :P_WERKS
433 AND A.SPTAG = :P_DATE
434 AND A.VTWEG <> :C_VTWEG
435 AND A.VKBUR = ' '
436 AND A.UMSMNG <> 0
437 and A.UMSGEO <> 0
438 GROUP BY A.MANDT,A.MATNR,A.WERKS
439 )
440
441 ENDEXEC.
442 **获取错误.***
443 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
444 ERROR_TEXT = EXC_REF->GET_TEXT( ).
445 ENDTRY.
446
447 IF EXC_REF IS INITIAL.
448 CALL FUNCTION 'DB_COMMIT'.
449 ELSE.
450 P_RETURN = 'X'.
451 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
452 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
453 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
454 RETURN.
455 ENDIF.
456
457
458
459
460 ***2.DC*** "ABGMNG ,KMAMNG
461 ***2.1 生成7天有商品转移的数据-DC
462 ***2.2 用S984 替换 S083 信息结构. by sunxm 2011-5-13.
463 *** BY SUNXM 加地点条件。
464 FREE EXC_REF.
465 TRY.
466 EXEC SQL.
467 INSERT INTO ZMARCDMS(MANDT,MATNR,WERKS)
468 (SELECT DISTINCT A.MANDT,A.MATNR,A.WERKS
469 FROM S984 A,T001W B
470 WHERE A.MANDT = B.MANDT AND A.WERKS = B.WERKS
471 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_DC
472 AND B.WERKS = :P_WERKS
473 AND A.SPTAG >= :L_DATERANGE AND A.SPTAG <= :P_DATE
474 AND ( A.KMAMNG <> 0 OR A.UMSMNG <> 0 ))
475 ENDEXEC.
476 **获取错误.***
477 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
478 ERROR_TEXT = EXC_REF->GET_TEXT( ).
479 ENDTRY.
480
481 IF EXC_REF IS INITIAL.
482 CALL FUNCTION 'DB_COMMIT'.
483 ELSE.
484 P_RETURN = 'X'.
485 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
486 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
487 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
488 RETURN.
489 ENDIF.
490
491 IF P_DMSN IS NOT INITIAL.
492 **新算法.
493 ***1.1B 按促销单,生成促销售据-DC***
494 IF LINES( LT_PRO_DMS_DC ) > 0.
495 MODIFY ZMARCDMS FROM TABLE LT_PRO_DMS_DC .
496 IF SY-SUBRC = 0.
497 COMMIT WORK.
498 ELSE.
499 ROLLBACK WORK.
500 P_RETURN = 'X'.
501 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
502 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
503 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
504 RETURN.
505 ENDIF.
506
507 FREE LT_PRO_DMS_DC.
508 ENDIF.
509 ENDIF.
510
511 ***2.2 生成当日商品转移数据-DC***
512 *** BY SUNXM 加地点条件.
513 FREE EXC_REF.
514 TRY.
515 EXEC SQL.
516
517 UPDATE ZMARCDMS C SET (C.UMSMNG)=(
518 SELECT SUM(A.KMAMNG + A.UMSMNG) UMSMNG
519 * SELECT SUM(A.ABGMNG) UMSMNG
520 FROM S984 A,T001W B
521 WHERE C.MANDT=A.MANDT AND C.MATNR=A.MATNR
522 AND C.WERKS=A.WERKS
523 AND A.MANDT=B.MANDT AND A.WERKS=B.WERKS
524 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_DC
525 AND B.WERKS = :P_WERKS
526 AND A.SPTAG = :P_DATE
527 AND ( A.KMAMNG <> 0 OR A.UMSMNG <> 0 )
528 * AND A.SPTAG = :P_DATE AND A.ABGMNG <> 0
529 GROUP BY A.MANDT,A.MATNR,A.WERKS
530 )
531 WHERE EXISTS
532 (SELECT 1
533 FROM S984 A,T001W B
534 WHERE C.MANDT=A.MANDT AND C.MATNR=A.MATNR
535 AND C.WERKS=A.WERKS
536 AND A.MANDT=B.MANDT AND A.WERKS=B.WERKS
537 AND A.MANDT = :SY-MANDT AND B.VLFKZ = :C_VLFKZ_DC
538 AND B.WERKS = :P_WERKS
539 AND A.SPTAG = :P_DATE
540 AND ( A.KMAMNG <> 0 OR A.UMSMNG <> 0 )
541 * AND A.SPTAG = :P_DATE AND A.ABGMNG <> 0
542 GROUP BY A.MANDT,A.MATNR,A.WERKS
543 )
544 ENDEXEC.
545 **获取错误.***
546 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
547 ERROR_TEXT = EXC_REF->GET_TEXT( ).
548 ENDTRY.
549
550 IF EXC_REF IS INITIAL.
551 CALL FUNCTION 'DB_COMMIT'.
552 ELSE.
553 P_RETURN = 'X'.
554 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
555 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
556 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
557 RETURN.
558 ENDIF.
559
560 ***3.加入DMS***
561 *** by sunxm 加地点条件.
562 FREE EXC_REF.
563 IF P_DMSN IS INITIAL.
564 TRY.
565 EXEC SQL.
566 UPDATE (SELECT A.ZDMS,B.ZDMS AS NEWZDMS
567 FROM ZMARCDMS A,ZMARC B
568 WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
569 AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
570 AND A.WERKS = :P_WERKS
571 )
572 SET ZDMS=NEWZDMS
573 ENDEXEC.
574 **获取错误.***
575 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
576 ERROR_TEXT = EXC_REF->GET_TEXT( ).
577 ENDTRY.
578 ELSE.
579 "新DMS算法
580 TRY.
581 EXEC SQL.
582 UPDATE (SELECT A.ZDMS_N,A.ZDMS_P
583 ,B.ZDMS_N AS NEWZDMS_N,B.ZDMS_P AS NEWZDMS_P
584 FROM ZMARCDMS A,ZMARC B
585 WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
586 AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
587 AND A.WERKS = :P_WERKS
588 )
589 SET ZDMS_N=NEWZDMS_N
590 ,ZDMS_P=NEWZDMS_P
591 ENDEXEC.
592 **获取错误.***
593 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
594 ERROR_TEXT = EXC_REF->GET_TEXT( ).
595 ENDTRY.
596 ENDIF.
597
598 IF EXC_REF IS INITIAL.
599 CALL FUNCTION 'DB_COMMIT'.
600 ELSE.
601 P_RETURN = 'X'.
602 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
603 CONCATENATE TEXT-020 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
604 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
605 RETURN.
606 ENDIF.
607
608 PERFORM SUB_ADDLOG USING TEXT-019 'S'. "*添加日志信息．**
609
610 ENDFORM. "sub_set_dmstd
611
612
613
614 ********************************功能注释********************************
615 **功能名称: SUB_SET_DMSCALC
616 **功能说明: 计算DMS BY SUNXM 加地点条件。
617 ** 参数 参数类型 说明
618 ** ------- ------------- ----------------------------------
619 ** P_FATCOR ZMARCFACTOR-FACTOR 计算DMS的FACTOR 系数
620 ** P_RETURN C 返回值．空：成功．Ｘ：出错．
621 ************************************************************************
622 FORM SUB_SET_DMSCALC USING P_FACTOR LIKE ZMARCFACTOR-FACTOR
623 P_WERKS LIKE MARC-WERKS
624 CHANGING P_RETURN TYPE C.
625
626 DATA: L_SUBFACTOR LIKE ZMARCFACTOR-FACTOR.
627
628 L_SUBFACTOR = 1 - P_FACTOR.
629
630 FREE P_RETURN.
631 FREE EXC_REF.
632 IF P_DMSN IS INITIAL.
633 TRY.
634
635 ***1.计算 正常销售 并且 原DMS >0 的数据***
636 ***在正常销售时dms = 当日销售数量 * factor + (1 - factor) * dms***
637 EXEC SQL.
638 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG * :P_FACTOR + ZDMS * :L_SUBFACTOR,2)
639 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND AKTNR = ' ' AND ZDMS > 0
640 ENDEXEC.
641
642 ***2.计算 促销销售 并且 原DMS >0 的数据***
643 ***促销销售时dms = 当日销售数量 * （1-factor） + factor * dms***
644 EXEC SQL.
645 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG * :L_SUBFACTOR + ZDMS * :P_FACTOR,2)
646 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND AKTNR <> ' ' AND ZDMS > 0
647 ENDEXEC.
648 ***3.计算 原DMS = 0 的数据；***
649 ***因为UMSMNG与ZDMS位数不一致，先将UMSMNG更新，避免溢出***
650 EXEC SQL.
651 UPDATE ZMARCDMS SET UMSMNG = 99999 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS = 0 AND UMSMNG > 99999
652 ENDEXEC.
653
654 EXEC SQL.
655 UPDATE ZMARCDMS SET UMSMNG = 0.05 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS = 0 AND UMSMNG < 0.05
656 ENDEXEC.
657
658 EXEC SQL.
659 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG,2) WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS = 0
660 ENDEXEC.
661 **4. DMS >99999 -> =99999 ***
662 EXEC SQL.
663 UPDATE ZMARCDMS SET ZDMS = 99999 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS > 99999
664 ENDEXEC.
665 **5. DMS <0.05 -> =0.05 ***
666 EXEC SQL.
667 UPDATE ZMARCDMS SET ZDMS = 0.05 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS < 0.05
668 ENDEXEC.
669 **获取错误.***
670 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
671 ERROR_TEXT = EXC_REF->GET_TEXT( ).
672 ENDTRY.
673 ELSE.
674 "新DMS算法
675 TRY.
676
677 ***1.计算 正常销售 并且 原DMS <>0 的数据***
678 ***在正常销售时dms = 当日销售数量 * factor + (1 - factor) * dms***
679 EXEC SQL.
680 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG * :P_FACTOR + ZDMS_N * :L_SUBFACTOR,2)
681 ,ZDMS_N = ROUND(UMSMNG * :P_FACTOR + ZDMS_N * :L_SUBFACTOR,2)
682 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND AKTNR = ' ' AND ZDMS_N <> 0
683 ENDEXEC.
684 COMMIT WORK.
685 ***2.计算 促销销售 并且 原DMS <>0 的数据***
686 ***促销销售时dms = 当日销售数量 * （1-factor） + factor * dms***
687 EXEC SQL.
688 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG * :L_SUBFACTOR + ZDMS_P * :P_FACTOR,2)
689 ,ZDMS_P = ROUND(UMSMNG * :L_SUBFACTOR + ZDMS_P * :P_FACTOR,2)
690 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND AKTNR <> ' ' AND ZDMS_P <> 0
691 ENDEXEC.
692 COMMIT WORK.
693 ***3.计算 原DMS = 0 的数据；***
694 ***因为UMSMNG与ZDMS位数不一致，先将UMSMNG更新，避免溢出***
695 EXEC SQL.
696 UPDATE ZMARCDMS SET UMSMNG = 99999
697 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND UMSMNG > 99999 AND (ZDMS_N = 0 OR ZDMS_P = 0)
698 ENDEXEC.
699 COMMIT WORK.
700 EXEC SQL.
701 UPDATE ZMARCDMS SET UMSMNG = 0.05
702 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND UMSMNG < 0.05 AND (ZDMS_N = 0 OR ZDMS_P = 0)
703 ENDEXEC.
704 COMMIT WORK.
705 EXEC SQL.
706 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG,2)
707 ,ZDMS_N = ROUND(UMSMNG,2)
708 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS_N = 0 AND AKTNR = ' '
709 ENDEXEC.
710 COMMIT WORK.
711 EXEC SQL.
712 UPDATE ZMARCDMS SET ZDMS = ROUND(UMSMNG,2)
713 ,ZDMS_P = ROUND(UMSMNG,2)
714 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS_P = 0 AND AKTNR <> ' '
715 ENDEXEC.
716 COMMIT WORK.
717 **4. DMS >99999 -> =99999 ***
718 EXEC SQL.
719 UPDATE ZMARCDMS SET ZDMS = 99999
720 ,ZDMS_N = 99999
721 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS_N > 99999
722 ENDEXEC.
723 COMMIT WORK.
724 EXEC SQL.
725 UPDATE ZMARCDMS SET ZDMS = 99999
726 ,ZDMS_P = 99999
727 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS_P > 99999
728 ENDEXEC.
729 COMMIT WORK.
730 **5. DMS <0.05 -> =0.05 ***
731 EXEC SQL.
732 UPDATE ZMARCDMS SET ZDMS = 0.05
733 ,ZDMS_N = 0.05
734 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS_N < 0.05 AND ZDMS_N <> 0
735 ENDEXEC.
736 COMMIT WORK.
737 EXEC SQL.
738 UPDATE ZMARCDMS SET ZDMS = 0.05
739 ,ZDMS_P = 0.05
740 WHERE MANDT = :SY-MANDT AND WERKS = :P_WERKS AND ZDMS_P < 0.05 AND ZDMS_P <> 0
741 ENDEXEC.
742 COMMIT WORK.
743 **获取错误.***
744 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
745 ERROR_TEXT = EXC_REF->GET_TEXT( ).
746 ENDTRY.
747 ENDIF.
748
749 IF EXC_REF IS INITIAL.
750 CALL FUNCTION 'DB_COMMIT'.
751 PERFORM SUB_ADDLOG USING TEXT-029 'S'. "*添加日志信息．**
752 ELSE.
753 P_RETURN = 'X'.
754 * CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
755 CONCATENATE TEXT-030 ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
756 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
757 RETURN.
758 ENDIF.
759
760
761
762 ENDFORM. "sub_set_dmscalc
763
764
765
766 ********************************功能注释********************************
767 **功能名称: SUB_SET_DMSSYNC
768 **功能说明: DMS数据写入ZMARC,并保存增量日志.
769 ** 参数 参数类型 说明
770 ** ------- ------------- ----------------------------------
771 ** P_DATE DATS 计算DMS的日期
772 ** P_RETURN C 返回值．空：成功．Ｘ：出错．
773 ************************************************************************
774 FORM SUB_SET_DMSSYNC USING P_DATE TYPE DATS
775 P_FACTOR LIKE ZMARCFACTOR-FACTOR
776 P_WERKS LIKE MARC-WERKS
777 CHANGING P_RETURN TYPE C.
778 DATA: L_SUBFACTOR LIKE ZMARCFACTOR-FACTOR.
779
780 L_SUBFACTOR = 1 - P_FACTOR.
781 FREE P_RETURN.
782 FREE EXC_REF.
783
784 DATA: MY_SEED LIKE QF00-RAN_INT VALUE 1,
785 MY_VALUE LIKE QF00-RAN_INT VALUE 0,
786 MY_SEND TYPE P LENGTH 10 DECIMALS 2.
787
788 CALL FUNCTION 'QF05_RANDOM_INTEGER'
789 EXPORTING
790 RAN_INT_MAX = 2
791 RAN_INT_MIN = 1
792 IMPORTING
793 RAN_INT = MY_SEED. "种子
794
795 DO 5 TIMES.
796
797 CALL FUNCTION 'QF05_RANDOM_INTEGER'
798 EXPORTING
799 RAN_INT_MAX = 2000
800 RAN_INT_MIN = 500
801 IMPORTING
802 RAN_INT = MY_VALUE.
803
804 IF P_DMSN IS INITIAL.
805 TRY.
806 EXEC SQL.
807 UPDATE (SELECT A.ZDMS,B.ZDMS AS NEWZDMS
808 ,A.UDATE,to_char(sysdate,'yyyymmdd') AS NEWUDATE
809 FROM ZMARC A,ZMARCDMS B
810 WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
811 AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
812 AND B.WERKS = :P_WERKS
813 )
814 SET ZDMS = NEWZDMS
815 ,UDATE = NEWUDATE
816
817 ENDEXEC.
818 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
819 ERROR_TEXT = EXC_REF->GET_TEXT( ).
820 ENDTRY.
821 ELSE.
822 TRY.
823 EXEC SQL.
824 UPDATE (SELECT A.ZDMS,A.ZDMS_N,A.ZDMS_P
825 ,B.ZDMS AS NEWZDMS,B.ZDMS_N AS NEWZDMS_N,B.ZDMS_P AS NEWZDMS_P
826 ,A.UDATE,to_char(sysdate,'yyyymmdd') AS NEWUDATE
827 FROM ZMARC A,ZMARCDMS B
828 WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
829 AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
830 AND B.WERKS = :P_WERKS
831 )
832 SET ZDMS = NEWZDMS
833 ,ZDMS_N=NEWZDMS_N
834 ,ZDMS_P=NEWZDMS_P
835 ,UDATE = NEWUDATE
836
837 ENDEXEC.
838 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
839 ERROR_TEXT = EXC_REF->GET_TEXT( ).
840 ENDTRY.
841 *** beg by sunxm 20120530 更改没有更新的数据。乘以系数值
842 TRY .
843 EXEC SQL.
844 UPDATE ZMARC SET ZDMS_N = ROUND(ZDMS_N * :L_SUBFACTOR,2),
845 ZDMS = ROUND(ZDMS * :L_SUBFACTOR,2)
846 WHERE not exists (
847 SELECT * FROM ZMARCDMS
848 WHERE ZMARC.MATNR = ZMARCDMS.MATNR AND ZMARC.WERKS = ZMARCDMS.WERKS )
849 AND ZMARC.WERKS = :P_WERKS
850 AND ZMARC.ZDMS_N <> 0
851 ENDEXEC.
852 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
853 ERROR_TEXT = EXC_REF->GET_TEXT( ).
854 ENDTRY.
855
856 ENDIF.
857
858 *****处理ZDMS_N < 0.05。
859 TRY .
860 EXEC SQL.
861 UPDATE ZMARC SET ZDMS_N = 0.05,
862 ZDMS = 0.05
863 WHERE not exists (
864 SELECT * FROM ZMARCDMS
865 WHERE ZMARC.MATNR = ZMARCDMS.MATNR AND ZMARC.WERKS = ZMARCDMS.WERKS )
866 AND ZMARC.WERKS = :P_WERKS
867 AND ZMARC.ZDMS_N < 0.05
868 AND ZMARC.ZDMS_N <> 0
869 ENDEXEC.
870 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF.
871 ERROR_TEXT = EXC_REF->GET_TEXT( ).
872 ENDTRY.
873
874
875 *** ***begin added by zhangwei ： 从marc表中获取商品状态数据覆盖zmarc中商品状态、2013-07-15
876
877
878 * UPDATE ZMARC SET ZMARC.PERSTATUS = MARC.MMSTA,
879 * STATUSDATE = to_char(sysdate,'yyyymmdd')
880 * WHERE exists (
881 * SELECT MMSTA
882 * FROM MARC
883 * WHERE ZMARC.MANDT=MARC.MANDT AND ZMARC.MATNR=MARC.MATNR
884 * AND ZMARC.WERKS=MARC.WERKS )
885 * AND ZMARC.MANDT = :SY-MANDT
886 * AND ZMARC.PERSTATUS <> 0
887 * AND ZMARC.WERKS = :P_WERKS
888 * IF P_ZT = 'X'.
889 * TRY .
890 * EXEC SQL.
891 *
892 * UPDATE (SELECT A.PERSTATUS,A.STATUSDATE,B.MMSTA,
893 * to_char(sysdate,'yyyymmdd') AS NEWUDATE
894 * FROM ZMARC A,MARC B
895 * WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
896 * AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
897 * AND A.WERKS = :P_WERKS
898 * )
899 * SET PERSTATUS = MMSTA,
900 * STATUSDATE = NEWUDATE
901 *
902 * ENDEXEC.
903 * CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF." AND A.PERSTATUS <> B.MMSTA
904 * ERROR_TEXT = EXC_REF->GET_TEXT( ).
905 * ENDTRY.
906 * ENDIF.
907
908 ***end added by zhangwei ： 从marc表中获取商品状态数据覆盖zmarc中商品状态、2013-07-15
909 *** end by sunxm 20120530 更改没有更新的数据。
910
911
912
913 IF EXC_REF IS INITIAL.
914 *** 保存增量文档最后更新日期***
915 G_WA_ZMARCLOG-CHANGENR = P_DATE.
916 * g_wa_zmarclog-werks = p_werks. " 添加地点。
917 G_WA_ZMARCLOG-ZFLAG = 'X'. " 更新成功。 by sunxm.
918 MODIFY ZMARCDMSLOG FROM G_WA_ZMARCLOG.
919 IF SY-SUBRC = 0.
920 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
921 CONCATENATE TEXT-005 P_DATE '-' P_WERKS INTO G_WA_ZXSYSLOG-ZDESC.
922 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'S'. "*添加日志信息．**
923 ELSE.
924 P_RETURN = 'X'.
925 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
926 CONCATENATE TEXT-025 P_DATE INTO G_WA_ZXSYSLOG-ZDESC.
927 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
928 ENDIF.
929 *** 如果成功，退出循环。
930 EXIT.
931 ELSE.
932 P_RETURN = 'X'.
933 CALL FUNCTION 'DB_ROLLBACK'.
934 * g_wa_zmarclog-changenr = p_date.
935 * g_wa_zmarclog-werks = p_werks. " 添加地点。
936 G_WA_ZMARCLOG-ZFLAG = SPACE. " 更新失败。 by sunxm.
937 MODIFY ZMARCDMSLOG FROM G_WA_ZMARCLOG.
938 IF SY-SUBRC = 0.
939 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
940 CONCATENATE TEXT-005 P_DATE '-' P_WERKS INTO G_WA_ZXSYSLOG-ZDESC.
941 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'S'. "*添加日志信息．**
942 ELSE.
943 P_RETURN = 'X'.
944 CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
945 CONCATENATE TEXT-025 P_DATE INTO G_WA_ZXSYSLOG-ZDESC.
946 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
947 ENDIF.
948 CONCATENATE TEXT-016 P_DATE '-' P_WERKS ERROR_TEXT INTO G_WA_ZXSYSLOG-ZDESC.
949 PERFORM SUB_ADDLOG USING G_WA_ZXSYSLOG-ZDESC 'E'. "*添加日志信息．**
950 *** 如果有异常，得到随机数,等待。
951 MY_SEND = MY_VALUE / 1000.
952 WAIT UP TO MY_SEND SECONDS.
953 *** 释放异常变量。
954 FREE EXC_REF.
955 ENDIF.
956 ENDDO.
957
958 ENDFORM. "sub_set_dmssync
959
960
961 *&---------------------------------------------------------------------*
962 *& Form sub_loopupdate
963 *&---------------------------------------------------------------------*
964 * text 循环处理P_DMS ZMARC数据。
965 *----------------------------------------------------------------------*
966 FORM SUB_LOOP_P_DMS USING P_WERKS LIKE MARC-WERKS.
967 * DATA : my_value LIKE qf00-ran_int VALUE 1,
968 * my_send TYPE p LENGTH 10 DECIMALS 2.
969 *
970 * FREE exc_ref.
971 * CLEAR my_send.
972 **** add random number beg.
973 *
974 * CALL FUNCTION 'QF05_RANDOM_INTEGER'
975 * EXPORTING
976 * ran_int_max = 2000
977 * ran_int_min = 500
978 * IMPORTING
979 * ran_int = my_value.
980 **** 得到随机数。
981 * my_send = my_value / 1000.
982 * WAIT UP TO my_send SECONDS.
983 * TRY.
984 * EXEC SQL.
985 * UPDATE (SELECT A.ZDMS,B.ZDMS AS NEWZDMS
986 * ,A.UDATE,to_char(sysdate,'yyyymmdd') AS NEWUDATE
987 * FROM ZMARC A,ZMARCDMS B
988 * WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
989 * AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
990 * AND B.WERKS = :P_WERKS
991 * )
992 * SET ZDMS = NEWZDMS
993 * ,UDATE = NEWUDATE
994 *
995 * ENDEXEC.
996 * CATCH cx_sy_native_sql_error INTO exc_ref.
997 * error_text = exc_ref->get_text( ).
998 * ENDTRY.
999 *** add random number end.
1000
1001 ENDFORM. "sub_loopupdate
1002
1003 *&---------------------------------------------------------------------*
1004 *& Form sub_loop_p_dmsn
1005 *&---------------------------------------------------------------------*
1006 * text 循环处理P_DMSN ZMARC数据。
1007 *----------------------------------------------------------------------*
1008 FORM SUB_LOOP_P_DMSN USING P_WERKS LIKE MARC-WERKS.
1009 * DATA : my_seed LIKE qf00-ran_int,
1010 * my_value LIKE qf00-ran_int VALUE 0,
1011 * my_send TYPE p LENGTH 10 DECIMALS 2.
1012 *
1013 * FREE exc_ref.
1014 * CLEAR my_send.
1015 **** add random number beg.
1016 * CALL FUNCTION 'QF05_RANDOM_INTEGER'
1017 * EXPORTING
1018 * ran_int_max = 2
1019 * ran_int_min = 1
1020 * IMPORTING
1021 * ran_int = my_seed. "种子
1022 *
1023 * CALL FUNCTION 'QF05_RANDOM_INTEGER'
1024 * EXPORTING
1025 * ran_int_max = 2000
1026 * ran_int_min = 500
1027 * IMPORTING
1028 * ran_int = my_value.
1029 **** 得到随机数。
1030 * my_send = my_value / 1000.
1031 * WAIT UP TO my_send SECONDS.
1032 * TRY.
1033 * EXEC SQL.
1034 * UPDATE (SELECT A.ZDMS,A.ZDMS_N,A.ZDMS_P
1035 * ,B.ZDMS AS NEWZDMS,B.ZDMS_N AS NEWZDMS_N,B.ZDMS_P AS NEWZDMS_P
1036 * ,A.UDATE,to_char(sysdate,'yyyymmdd') AS NEWUDATE
1037 * FROM ZMARC A,ZMARCDMS B
1038 * WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
1039 * AND A.WERKS=B.WERKS AND A.MANDT = :SY-MANDT
1040 * AND B.WERKS = :P_WERKS
1041 * )
1042 * SET ZDMS = NEWZDMS
1043 * ,ZDMS_N=NEWZDMS_N
1044 * ,ZDMS_P=NEWZDMS_P
1045 * ,UDATE = NEWUDATE
1046 *
1047 * ENDEXEC.
1048 * CATCH cx_sy_native_sql_error INTO exc_ref.
1049 * error_text = exc_ref->get_text( ).
1050 * ENDTRY.
1051
1052 ENDFORM. "sub_loop_p_dmsn
1053 *&---------------------------------------------------------------------*
1054 *& Form SUB_UPDMMSTA
1055 *&---------------------------------------------------------------------*
1056 * text
1057 *----------------------------------------------------------------------*
1058 * --> p1 text
1059 * <-- p2 text
1060 *----------------------------------------------------------------------*
1061 FORM SUB_UPDMMSTA .
1062 DATA:P_WERKS LIKE MARC-WERKS.
1063 IF P_ZT = 'X'.
1064 LOOP AT S_WERKS.
1065 P_WERKS = S_WERKS-LOW.
1066 TRY .
1067 EXEC SQL.
1068
1069 UPDATE (SELECT A.PERSTATUS,A.STATUSDATE,B.MMSTA,
1070 to_char(sysdate,'yyyymmdd') AS NEWUDATE
1071 FROM ZMARC A,MARC B
1072 WHERE A.MANDT=B.MANDT AND A.MATNR=B.MATNR
1073 AND A.WERKS=B.WERKS AND nvl(A.PERSTATUS,0) <> B.MMSTA AND A.MANDT = :SY-MANDT
1074 AND A.WERKS = :P_WERKS
1075 )
1076 SET PERSTATUS = MMSTA,
1077 STATUSDATE = NEWUDATE
1078
1079 ENDEXEC.
1080 CATCH CX_SY_NATIVE_SQL_ERROR INTO EXC_REF." AND A.PERSTATUS <> B.MMSTA
1081 ERROR_TEXT = EXC_REF->GET_TEXT( ).
1082 ENDTRY.
1083 ENDLOOP.
1084 ENDIF.
1085 "
1086 IF EXC_REF IS INITIAL.
1087 CALL FUNCTION 'DB_COMMIT'.
1088 ELSE.
1089 CALL FUNCTION 'DB_ROLLBACK'.
1090 ENDIF.
1091 ENDFORM. " SUB_UPDMMSTA
浙公网安备 33010602011771号