1 FUNCTION ZRFC_FICO_MR21_V1.
2 *"----------------------------------------------------------------------
3 *"*"本地接口：
4 *" IMPORTING
5 *" VALUE(BUDAT) TYPE BUDAT OPTIONAL
6 *" TABLES
7 *" IM_TAB STRUCTURE ZSTRU_MEBW_MR21 OPTIONAL
8 *" EX_MESSAGE STRUCTURE CMFMSG OPTIONAL
9 *"----------------------------------------------------------------------
10 *" 创建成本价
11 * 传入金额，币种----转换为工厂本位币
12 * 没有使用ROLLBACK
13 *"----------------------------------------------------------------------
14
15 DATA: BEGIN OF WERK_TAB OCCURS 0,
16 BUKRS TYPE BUKRS,
17 WERKS TYPE WERKS_D,
18 WAERS TYPE WAERS,
19 FACTOR TYPE ISOC_FACTOR,
20 END OF WERK_TAB.
21
22 DATA: LV_TAB LIKE ZSTRU_MEBW_MR21.
23 DATA: LT_TAB TYPE TABLE OF ZSTRU_MEBW_MR21.
24 DATA: LT_RESULT TYPE TABLE OF ZSTRU_MEBW_MR21.
25 DATA: I TYPE I,
26 J TYPE I.
27
28 *----------------------------------------------------------------------
29 *初始化全局变量
30 *----------------------------------------------------------------------
31 " 过账日期
32 F_MR21HEAD-BUDAT = BUDAT.
33 IF F_MR21HEAD-BUDAT IS INITIAL.
34 F_MR21HEAD-BUDAT = SY-DATUM.
35 ENDIF.
36
37 * 初始化输出参数
38 REFRESH EX_MESSAGE.
39
40 *----------------------------------------------------------------------
41 *初始化本地参数
42 *----------------------------------------------------------------------
43
44 * 汇集公司 工厂
45 SORT IM_TAB BY BUKRS WERKS MATNR.
46 LOOP AT IM_TAB.
47 WERK_TAB-BUKRS = IM_TAB-BUKRS.
48 WERK_TAB-WERKS = IM_TAB-WERKS.
49 WERK_TAB-WAERS = IM_TAB-WAERS.
50 COLLECT WERK_TAB.
51 ENDLOOP.
52 " 循环公司工厂
53 LOOP AT WERK_TAB.
54
55 IF WERK_TAB-WAERS IS INITIAL.
56 SELECT SINGLE WAERS INTO WERK_TAB-WAERS FROM T001 WHERE BUKRS = WERK_TAB-BUKRS.
57 ENDIF.
58
59 WERK_TAB-FACTOR = 1.
60 CALL FUNCTION 'ZGET_CURRENCY_FACTOR'
61 EXPORTING
62 CURRENCY = WERK_TAB-WAERS
63 IMPORTING
64 FACTOR = WERK_TAB-FACTOR.
65
66
67
68 F_MR21HEAD-BUKRS = WERK_TAB-BUKRS.
69 CLEAR LT_TAB[].
70
71 LOOP AT IM_TAB INTO LV_TAB WHERE BUKRS = WERK_TAB-BUKRS
72 AND WERKS = WERK_TAB-WERKS .
73 APPEND LV_TAB TO LT_TAB.
74 ENDLOOP.
75
76
77 CLEAR I.
78 LOOP AT LT_TAB INTO LV_TAB .
79 I = I + 1.
80 J = I MOD 500.
81 LV_TAB-KBETR = LV_TAB-KBETR / WERK_TAB-FACTOR.
82 APPEND LV_TAB TO LT_RESULT.
83
84 IF J = 0 . " 是倍数，则执行
85 "创建成本价
86 PERFORM CREATE_MR21 TABLES LT_RESULT.
87 IF G_RT = 1.
88 WRITE : '有错误---生成成本价. 公司工厂',
89 WERK_TAB-BUKRS, WERK_TAB-WERKS,/ .
90 ENDIF.
91
92 " 返回消息
93 APPEND LINES OF GT_MSG TO EX_MESSAGE.
94
95 "初始化
96 CLEAR LT_RESULT[].
97 ENDIF.
98
99 AT LAST. "最后一条不是倍数，则执行
100 IF J <> 0.
101 "创建成本价
102 PERFORM CREATE_MR21 TABLES LT_RESULT.
103 IF G_RT = 1.
104 WRITE : '有错误---生成成本价. 公司工厂',
105 WERK_TAB-BUKRS, WERK_TAB-WERKS,/ .
106 ENDIF.
107
108 " 返回消息
109 APPEND LINES OF GT_MSG TO EX_MESSAGE.
110
111 "初始化
112 CLEAR LT_RESULT[].
113
114 ENDIF.
115 ENDAT.
116
117 ENDLOOP.
118
119
120 ENDLOOP.
121
122
123 ENDFUNCTION.
124
125
126 FORM CREATE_MR21 TABLES IM_MBEW STRUCTURE ZSTRU_MEBW_MR21.
127 DATA: LT_MSG TYPE STANDARD TABLE OF CMFMSG,
128 LV_MSG TYPE CMFMSG.
129
130 DATA: H_INDEX LIKE SY-TABIX.
131 DATA: H_POPER LIKE CKMLPP-POPER,
132 H_BDATJ LIKE CKMLPP-BDATJ.
133
134 DATA: LV_TAB LIKE ZSTRU_MEBW_MR21.
135 DATA: L_RX LIKE TCURR-UKURS, "汇率
136 L_KBETR LIKE MBEW-STPRS, "成本价
137 L_VPRSV LIKE MBEW-VPRSV. "价格控制指示符 V OR S
138
139 *----------------------------------------------------------------------
140 *初始化
141 *----------------------------------------------------------------------
142 CLEAR G_RT. "执行标志初始化
143 CLEAR GT_MSG[].
144
145 REFRESH: T_MATPR.
146 CLEAR : T_MATPR, F_MATPR, F_MATCR.
147
148 CLEAR LT_MSG[].
149 CLEAR LV_MSG.
150 *----------------------------------------------------------------------
151 *查看账期，并检查物料账期是否开启
152 *----------------------------------------------------------------------
153 *获取过账日期
154 CALL FUNCTION 'FI_PERIOD_DETERMINE'
155 EXPORTING
156 I_BUKRS = F_MR21HEAD-BUKRS
157 I_BUDAT = F_MR21HEAD-BUDAT
158 IMPORTING
159 E_MONAT = POPER
160 E_GJAHR = BDATJ.
161
162 H_BDATJ = BDATJ.
163 H_POPER = POPER.
164
165 CALL FUNCTION 'FI_PERIOD_CHECK'
166 EXPORTING
167 I_BUKRS = F_MR21HEAD-BUKRS
168 I_GJAHR = H_BDATJ
169 I_KOART = '+'
170 I_KONTO = '+'
171 I_MONAT = H_POPER "TH
172 EXCEPTIONS
173 ERROR_PERIOD = 1
174 ERROR_PERIOD_ACC = 2.
175
176 CALL FUNCTION 'MARV_SINGLE_READ'
177 EXPORTING
178 KZRFB = ' '
179 MAXTZ = '100'
180 BUKRS = F_MR21HEAD-BUKRS
181 IMPORTING
182 WMARV = MARV
183 EXCEPTIONS
184 NOT_FOUND = 1
185 WRONG_CALL = 2
186 OTHERS = 3.
187
188 DATA: XRUEM,
189 XRUEJ.
190 DATA: L_RET TYPE STRING.
191 CLEAR L_RET.
192 PERFORM MARV_CHECK USING XRUEM XRUEJ L_RET .
193 IF L_RET IS NOT INITIAL.
194 CLEAR LV_MSG.
195 LV_MSG-ARBGB = 'CKPRCH'.
196 LV_MSG-MSGTY = 'E'.
197 LV_MSG-MSGNR = '009'.
198 LV_MSG-MSGV1 = L_RET.
199 APPEND LV_MSG TO GT_MSG.
200 RETURN.
201 ENDIF.
202 *----------------------------------------------------------------------
203 *需求的物料清单
204 *----------------------------------------------------------------------
205 LOOP AT IM_MBEW INTO LV_TAB.
206 CLEAR F_ONECURR.
207 F_ONECURR-MATNR = LV_TAB-MATNR. "物料号
208 F_ONECURR-BWKEY = LV_TAB-WERKS. "工厂
209
210 CLEAR F_MATPR.
211 READ TABLE T_MATPR INTO F_MATPR
212 WITH KEY PP-MATNR = F_ONECURR-MATNR
213 PP-BWKEY = F_ONECURR-BWKEY
214 PP-BWTAR = F_ONECURR-BWTAR
215 PP-VBELN = F_ONECURR-VBELN
216 PP-POSNR = F_ONECURR-POSNR
217 PP-PSPNR = F_ONECURR-PSPNR.
218 IF SY-SUBRC <> 0.
219 MOVE-CORRESPONDING F_ONECURR TO F_MATPR-PP.
220 F_MATPR-PP-POPER = H_POPER.
221 F_MATPR-PP-BDATJ = H_BDATJ.
222
223 REFRESH F_MATPR-CR.
224
225 APPEND F_MATPR TO T_MATPR.
226 ENDIF.
227 ENDLOOP.
228
229 *----------------------------------------------------------------------
230 *获取产品成本核算号以及对用币种
231 *----------------------------------------------------------------------
232 CALL FUNCTION 'CM_F_INITIALIZE'
233 EXPORTING
234 APLID = 'CKML'.
235 "读取物料
236 CALL FUNCTION 'PRICES_PROPOSE'
237 EXPORTING
238 ACTUAL_BDATJ = H_BDATJ
239 ACTUAL_POPER = H_POPER
240 BUKRS = F_MR21HEAD-BUKRS
241 TABLES
242 T_MATPR = T_MATPR
243 EXCEPTIONS
244 DATA_ERROR = 1
245 OTHERS = 2.
246
247 IF SY-SUBRC <> 0.
248
249 G_RT = 1.
250 * MESSAGE e017(ckprch) WITH t_onecurr-matnr.
251 CLEAR LV_MSG.
252 LV_MSG-ARBGB = 'CKPRCH'.
253 LV_MSG-MSGTY = 'E'.
254 LV_MSG-MSGNR = '017'.
255 APPEND LV_MSG TO GT_MSG.
256 ENDIF.
257
258 CALL FUNCTION 'CM_F_MESSAGES_GET'
259 EXPORTING
260 APLID = 'CKML'
261 TABLES
262 E_MSGPROT = LT_MSG.
263 APPEND LINES OF LT_MSG TO GT_MSG.
264 LOOP AT LT_MSG INTO LV_MSG WHERE MSGTY = 'A' OR MSGTY = 'E'.
265 G_RT = 1.
266 EXIT.
267 ENDLOOP.
268
269 * IF g_rt = 1.
270 * RETURN.
271 * ENDIF.
272 *----------------------------------------------------------------------
273 * 获得新的物料价格--根据币种
274 *----------------------------------------------------------------------
275
276 DATA: V_FACTOR TYPE ISOC_FACTOR.
277
278 LOOP AT IM_MBEW INTO LV_TAB.
279 CLEAR F_ONECURR.
280 F_ONECURR-MATNR = LV_TAB-MATNR. "物料号
281 F_ONECURR-BWKEY = LV_TAB-WERKS. "工厂
282
283
284
285
286 V_FACTOR = 1.
287 CALL FUNCTION 'ZGET_CURRENCY_FACTOR'
288 EXPORTING
289 CURRENCY = LV_TAB-WAERS
290 IMPORTING
291 FACTOR = V_FACTOR.
292
293
294
295 READ TABLE T_MATPR INTO F_MATPR
296 WITH KEY
297 PP-MATNR = F_ONECURR-MATNR
298 PP-BWKEY = F_ONECURR-BWKEY
299 PP-BWTAR = F_ONECURR-BWTAR
300 PP-VBELN = F_ONECURR-VBELN
301 PP-POSNR = F_ONECURR-POSNR
302 PP-PSPNR = F_ONECURR-PSPNR.
303 IF SY-SUBRC = 0.
304 CLEAR H_INDEX.
305 H_INDEX = SY-TABIX.
306
307 "物料标准价类型
308 CLEAR L_VPRSV.
309 SELECT SINGLE VPRSV INTO L_VPRSV
310 FROM MBEW
311 WHERE MATNR = F_ONECURR-MATNR AND BWKEY = F_ONECURR-BWKEY.
312
313 "设定新价格
314 LOOP AT F_MATPR-CR INTO F_MATCR.
315 F_MATCR-NEWPEINH = LV_TAB-KPEIN. "新价格单位
316 "检查币种，获取汇率
317 CLEAR L_RX.
318 CLEAR L_KBETR.
319 IF F_MATCR-WAERS = LV_TAB-WAERS.
320 L_KBETR = LV_TAB-KBETR.
321
322
323
324
325
326 ELSE.
327
328 CLEAR L_RX.
329 data: L_rate TYPE p LENGTH 15 DECIMALS 7.
330 data: L_TMP type TZNTSTMPL.
331 clear: L_TMP , L_RATE.
332 CALL FUNCTION 'ZRFC_EXCHANGERATE_GETDETAIL'
333 EXPORTING
334 FROM_CURR = LV_TAB-WAERS
335 TO_CURRNCY = F_MATCR-WAERS
336 IMPORTING
337 NEW_RATE = L_TMP.
338 * EXCH_RATE = L_RX. "注释by kasen 20200318
339 Move L_TMP to L_RATE.
340 L_KBETR = LV_TAB-KBETR * L_RATE * V_FACTOR.
341
342 ENDIF.
343
344 "更新价格类型
345 IF L_VPRSV = 'V'.
346 F_MATCR-NEWPVPRS = L_KBETR. "移动平均价
347 IF F_MATCR-NEWPVPRS <> F_MATCR-PVPRS
348 OR F_MATCR-NEWPEINH <> F_MATCR-PEINH.
349
350 F_MATCR-MANPAE_V = 'X'. "价格变更标志
351 ENDIF.
352 ELSE.
353 F_MATCR-NEWSTPRS = L_KBETR. "标准价格
354 IF F_MATCR-NEWSTPRS <> F_MATCR-STPRS
355 OR F_MATCR-NEWPEINH <> F_MATCR-PEINH.
356
357 F_MATCR-MANPAE_S = 'X'. "价格变更标志
358 ENDIF.
359 ENDIF.
360
361
362 MODIFY F_MATPR-CR FROM F_MATCR.
363
364 ENDLOOP.
365
366 MODIFY T_MATPR FROM F_MATPR INDEX H_INDEX.
367 ENDIF.
368
369 ENDLOOP.
370
371 IF T_MATPR[] IS INITIAL. "没有记录
372 G_RT = 1.
373 RETURN.
374 ENDIF.
375
376 *----------------------------------------------------------------------
377 * 检查变更的物料 并保存更新
378 *----------------------------------------------------------------------
379 PERFORM KALK_ENRICH CHANGING
380 T_MATPR.
381
382 CALL FUNCTION 'CM_F_INITIALIZE'
383 EXPORTING
384 APLID = 'CKPF'.
385
386 "检查数据
387 CALL FUNCTION 'PRICES_CHANGE'
388 EXPORTING
389 ACTUAL_BDATJ = H_BDATJ
390 ACTUAL_POPER = H_POPER
391 BUKRS = F_MR21HEAD-BUKRS
392 BUDAT = F_MR21HEAD-BUDAT
393 XBLNR = F_MR21HEAD-XBLNR
394 * account_modification = h_komok
395 * subs_dbt = 'X'
396 TABLES
397 T_MATPR = T_MATPR
398 EXCEPTIONS
399 ERROR_MESSAGE = 1
400 INVALID_PERIOD = 2
401 OTHERS = 3.
402
403
404 "没有物料的价格变更
405 READ TABLE T_MATPR WITH KEY PP-XERROR = ' '
406 TRANSPORTING NO FIELDS.
407 IF SY-SUBRC <> 0.
408 G_RT = 1.
409 * MESSAGE i046(ckprch).
410 CLEAR LV_MSG.
411 LV_MSG-ARBGB = 'CKPRCH'.
412 LV_MSG-MSGTY = 'I'.
413 LV_MSG-MSGNR = '046'.
414 APPEND LV_MSG TO GT_MSG.
415 * Es wurden keine Preisänderungen durchgeführt
416 ELSE.
417
418 * Falls Customizing für variable KOMOKs gepflegt, wird hier der
419 * eingetragene KOMOK an Prices_Post mit dem Belegkopftext übergeben.
420 "更新数据
421 CALL FUNCTION 'PRICES_POST'
422 EXPORTING
423 I_BKTXT = F_MR21HEAD-BKTXT
424 BUKRS = F_MR21HEAD-BUKRS
425 LIS_UPDATE = 'X'
426 TABLES
427 T_MATPR = T_MATPR.
428
429
430 CALL FUNCTION 'CM_F_MESSAGES_GET'
431 EXPORTING
432 APLID = 'CKPF'
433 TABLES
434 E_MSGPROT = LT_MSG.
435
436 APPEND LINES OF LT_MSG TO GT_MSG.
437 * LOOP AT lt_msg INTO lv_msg WHERE MSGTY = 'A' OR MSGTY = 'E'.
438 * g_rt = 1.
439 * EXIT.
440 * ENDLOOP.
441 * IF g_rt = 1.
442 * ROLLBACK WORK.
443 * RETURN.
444 * ELSE.
445 * COMMIT WORK.
446 * ENDIF.
447
448 COMMIT WORK.
449
450 ENDIF.
451
452
453 ENDFORM.
454
455
456 *&---------------------------------------------------------------------*
457 *& Form kalk_enrich
458 *&---------------------------------------------------------------------*
459 * Die Untertabelle CKMLPR aus dem globalen Kontrollblock
460 * GD_MATCB_TBL sowie die Untertabelle KEKO aus dem globalen
461 * Kontrollbrlock GD_KEKOCB_TBL
462 * wird in die Struktur R_MATPR übertragen, falls es
463 * zu dem Material eine Plankalkulation existiert.
464 *----------------------------------------------------------------------*
465 * <--> R_MATPR Liste der Materialien
466 *----------------------------------------------------------------------*
467 FORM KALK_ENRICH CHANGING
468 R_MATPR TYPE CKMPR_MAT_PRICE.
469
470 FIELD-SYMBOLS:
471 <R_MATPR> LIKE LINE OF R_MATPR,
472 <MATCR> TYPE LINE OF CKMPR_CURTP_PRICES.
473
474 DATA:
475 LD_COSTING_TO_RELEASE TYPE BOOLE_D,
476 LD_WA_MATCB LIKE LINE OF GD_MATCB_TBL,
477 LD_WA_KEKOCB LIKE LINE OF GD_KEKOCB_TBL.
478
479 LOOP AT R_MATPR ASSIGNING <R_MATPR>.
480
481 * Existiert zu irgendeiner Währung eine Plankalkulation?
482 CLEAR LD_COSTING_TO_RELEASE.
483 LOOP AT <R_MATPR>-CR ASSIGNING <MATCR>.
484 IF <MATCR>-ERZKALK = Y_X.
485 LD_COSTING_TO_RELEASE = Y_X.
486 ENDIF.
487 ENDLOOP.
488 UNASSIGN <MATCR>.
489 CHECK NOT LD_COSTING_TO_RELEASE IS INITIAL.
490
491 * Übertragen der Tabelle für die zukünftigen Preise
492 * aus dem globalen Kontrollblock in die T_MATPR
493 READ TABLE GD_MATCB_TBL INTO LD_WA_MATCB
494 WITH TABLE KEY KALNR = <R_MATPR>-PP-KALN1.
495 IF SY-SUBRC EQ 0.
496 <R_MATPR>-CKMLPR[] = LD_WA_MATCB-CKMLPR[].
497 ENDIF.
498 * Übertragen der Tabelle für die Kalkulationsdaten
499 * aus dem globalen Kontrollblock in die T_MATPR
500 READ TABLE GD_KEKOCB_TBL INTO LD_WA_KEKOCB
501 WITH TABLE KEY KALNR = <R_MATPR>-PP-KALN1.
502 IF SY-SUBRC EQ 0.
503 <R_MATPR>-KEKO[] = LD_WA_KEKOCB-KEKO[].
504 ENDIF.
505 ENDLOOP.
506 UNASSIGN <R_MATPR>.
507
508 ENDFORM. " kalk_enrich
509
510 *&---------------------------------------------------------------------*
511 *& Form MARV_CHECK
512 *&---------------------------------------------------------------------*
513 * text
514 *----------------------------------------------------------------------*
515 * -->P_XRUEM text *
516 * -->P_XRUEJ text *
517 *----------------------------------------------------------------------*
518 FORM MARV_CHECK USING P_XRUEM TYPE XFELD
519 P_XRUEJ TYPE XFELD
520 P_RET TYPE STRING.
521 DATA: MESSAGE_TEXT(60).
522
523 TABLES: CKMLMVADMIN.
524 STATICS: ADMIN_READ TYPE C,
525 ALLOW_BACKPOSTING TYPE C.
526
527 IF ADMIN_READ IS INITIAL.
528 ADMIN_READ = Y_X.
529 SELECT SINGLE * FROM CKMLMVADMIN
530 WHERE KKEY = 'MR21_XRUEM'.
531 IF SY-SUBRC = 0 AND CKMLMVADMIN-KDATA+0(1) = Y_X.
532 ALLOW_BACKPOSTING = Y_X.
533 ENDIF.
534 ENDIF.
535
536 CLEAR: P_XRUEM,
537 P_XRUEJ.
538
539 IF BDATJ NE MARV-LFGJA
540 OR POPER NE MARV-LFMON.
541 IF BDATJ = MARV-VJGJA
542 AND POPER = MARV-VJMON.
543
544 *------- Rueckbuchen Vorjahr -----------------------------------------*
545 P_XRUEJ = 'X'.
546 IF BDATJ = MARV-VMGJA
547 AND POPER = MARV-VMMON.
548
549 *------- Rueckbuchen Vorjahr gleich Vormonat -------------------------*
550 P_XRUEM = 'X'.
551 ELSE.
552 *------- Rueckbuchen Vorjahr ungleich Vormonat------------------------*
553 IF MARV-XRUEM = SPACE AND ALLOW_BACKPOSTING IS INITIAL.
554 CALL FUNCTION 'MB_EDIT_MESSAGE'
555 EXPORTING
556 T1 = MARV-LFMON
557 T2 = MARV-LFGJA
558 IMPORTING
559 MESSAGE = MESSAGE_TEXT.
560 ELSE.
561 CALL FUNCTION 'MB_EDIT_MESSAGE'
562 EXPORTING
563 T1 = MARV-LFMON
564 T2 = MARV-LFGJA
565 T3 = '/'
566 T4 = MARV-VMMON
567 T5 = MARV-VMGJA
568 IMPORTING
569 MESSAGE = MESSAGE_TEXT.
570 ENDIF.
571 "ADD BY LH 20180906
572 * MESSAGE ID 'CKPRCH' TYPE 'E' NUMBER '009' WITH message_text.
573 P_RET = MESSAGE_TEXT.
574 RETURN.
575
576 ENDIF.
577 ELSE.
578 IF BDATJ = MARV-VMGJA
579 AND POPER = MARV-VMMON
580 AND ( MARV-XRUEM NE SPACE OR ALLOW_BACKPOSTING = Y_X ).
581
582 *------- Rueckbuchen Monat -------------------------------------------*
583 P_XRUEM = 'X'.
584 ELSE.
585
586 *------- Periode ungueltig -------------------------------------------*
587 IF MARV-XRUEM = SPACE AND ALLOW_BACKPOSTING IS INITIAL.
588 CALL FUNCTION 'MB_EDIT_MESSAGE'
589 EXPORTING
590 T1 = MARV-LFMON
591 T2 = MARV-LFGJA
592 IMPORTING
593 MESSAGE = MESSAGE_TEXT.
594 ELSE.
595 CALL FUNCTION 'MB_EDIT_MESSAGE'
596 EXPORTING
597 T1 = MARV-LFMON
598 T2 = MARV-LFGJA
599 T3 = '/'
600 T4 = MARV-VMMON
601 T5 = MARV-VMGJA
602 IMPORTING
603 MESSAGE = MESSAGE_TEXT.
604 ENDIF.
605 "ADD BY LH 20180906
606 * MESSAGE ID 'CKPRCH' TYPE 'E' NUMBER '009' WITH message_text.
607 P_RET = MESSAGE_TEXT.
608 RETURN.
609
610 ENDIF.
611 ENDIF.
612 ENDIF.
613
614 ENDFORM. " MARV_CHECK
