SAP增強(qiáng)實(shí)現(xiàn)批次自動編號

1、批次編號處理批次編號范圍（將采用批次管理的物料分為兩種，1種是自制件（E）, 1種是采購件（F）,對于既有自制、又有采購的，根據(jù)實(shí)際狀況處理） 對于自制件，批次編號跟生產(chǎn)訂單編號一致（使用出口來實(shí)現(xiàn)） 對于外購件，批次編號采用6位日期+3位流水碼（使用出口來實(shí)現(xiàn)）內(nèi)部編號范圍分配目前邏輯如下，根據(jù)物料的生產(chǎn)方式 F->外購件-> 批次編號采用6位日期+3位流水號o 對于1個物料來說，如果批次號碼內(nèi)部給號而不是手工輸入，那么流水碼從 001直到999，每次貨物移動，流水碼自動加 1o 對于不同的物料來說，比如之前有個物料使用了流水碼180111000如果MCH1物料+流水碼查詢不到記

2、錄，那么此物料仍然可以使用流水碼 180111000 E->外購件-> 批次編號采用生產(chǎn)訂單編號 X->判斷當(dāng)前的生產(chǎn)訂單編號是否為空o 生產(chǎn)訂單編號為空 -> 6位日期+3位流水號0 生產(chǎn)訂單編號不為空-> 生產(chǎn)訂單編號（生產(chǎn)訂單編號采用10位，前兩位為工廠代碼）首先對于增強(qiáng)說一下我的理解： 用戶出口 SAPLV01Z是用戶自動分配批次號碼（內(nèi)部給號的），并且只有在配置了基于移動類型生成新批次， 并且設(shè)置成B,此出口才會被觸發(fā)，所有的配置 B的移動類型，在用MIGO進(jìn)行貨物移動時，都會觸發(fā)增強(qiáng)的邏輯，并且增強(qiáng)邏輯只對（沒有輸入批次號碼）這種情況下才生效。集團(tuán)配置

3、的自動創(chuàng)建批次移動類型為101、103、501Change Vlw "Definition ofinitiai data creation for batch per mvr.D2 riLor af .ni：dl 二比曰 ae-ati:nfor -p：油白 n-.it.M_ Mew Batch由101 E Autonatlc / laniLal uid ch. * * '1)2 加t加電tic /禺白島中工vLibc?u< ,二"103 B/ iswal wd chec'A MMivuR /加國fbti1 后修*8 Autorrhc / esiugI

4、btiiJ cieck in USER EXITC Autorrsbr / no rrsriiial creitWTi0 Marta wrtout chec(E Manus and ctierit 口娟舊冗 numb er rjng«P 窈fhin snd check « USER. GJCIT產(chǎn) I H n LfM'lwtGChange Vt&w nDefinition ofinitiai data crAtion for batch pr mvr.多嘮國限HDefriLor of aitdl mu 口士己non for btcti per rnvrr.M

5、tl . Mew Batch101 E Aut4nstlc / ianLLAl and ch. , 103 B Axil-onatic / wd chetT庇 ma靛J加d dMck n蹣Mt *戒&厘1力山彳面廣點(diǎn)修*0 Autorrati J nna-iual btkI dieck in U5ER EXITC Autcrrsbc / no mri闌 ctcwThtiD Marta wrtcur cher<E Mdnus and ctiscft 己卯舊文 entemaf nurrteF nngF 同mnui 3(Kf chp£it n USEf?. 0CIT產(chǎn) I H

6、 n LTGrhrtG對于批次，整個集團(tuán)的規(guī)則是，批次號碼均是自動生成，只有特殊情況才可以手工輸入（561初始化，以及盤盈 701、711 ）:只有收貨（101、103、501-僅限采購件），才能自動產(chǎn)生新批次（設(shè)置成B-Automatic/Manualand check in USER EXIT),其他的移動類型都要設(shè)成G-no creation對于消耗的移動類型（201、261、281、601、541、543 ）批次都是根據(jù)批次確定規(guī)則（FIFO&剩余貨架壽命），自動排出批次（在 migo里面也要配置增強(qiáng)，如果輸入的批次號不在 MCH1或者M(jìn)CHA中，會報錯），且不允許產(chǎn)生新批次-

7、> 全部設(shè)成G-nocreation ,且需要配置批次確定規(guī)則對于移庫類（241/242 、301/302、303/304 、305/306 、309/310 、311/312、313/314 、315/316 、344/343 、411/412 、413/414 、415/416 、551巧52 。）如果物料有用到批次管理，會檢查輸入的批次是否存在，如果不存在，會報錯，也是在 MIGO增強(qiáng)里面做檢查，因?yàn)橐茙炜赡軟]法使用FIFO規(guī)則。且不允許產(chǎn)生新批次-> 全部設(shè)成G-no creation ,且不需要配置批次確定規(guī)則對于561,并不設(shè)置內(nèi)部檢查規(guī)則（即采用默認(rèn)配置），對于 56

8、1初始化庫存時，批次可以手工輸入對于701 （盤盈），理論上，所有的盤盈并不會產(chǎn)生新批次，如果真的產(chǎn)生新批次的物料，批次可以手工輸入，即 701也采用默認(rèn)配置CMOD創(chuàng)建增強(qiáng)項(xiàng)目SAP Enhancements in Enhancement Project ZBA TCHNM號昆國rn&iFiance merit Cog0n穹。3'SAFLVQ12 CFCs皿 ntema- batch number asstgirifnent注：EXIT_SAPLV01Z_001 & EXIT_SAPLV01Z_002 適用于內(nèi)部給號的情況Disp/3yZBA ¥CHNM3

9、昌 Cnhnctmert asignmenft El Enhfl*K5mcntQPryjC' 1Enhincenent:恥11UFunction exit.BZBATCHIff Eriluiccincnt for batch mabcr assigimcntExp SAPLV01Z CFCs fr internal batch nuntber assignment口：I一 :-F7' ： 1 -IEXIT S1PL.VO1Z 002對出口 EXIT_SAPLV01Z_002 加代碼源代碼*&* & Include ZXVBZU02* &內(nèi)部編號范圍分配目

10、前邏輯如下* &根據(jù)物料的生產(chǎn)方式* & F->外購件-> 批次編號采用6位日期+3位流水號* &流水號含義-> 對于1個物料來說，如果批次號碼內(nèi)部給號而不是手工輸入,那么流水碼從001直到999,* &每次貨物移動，流水碼自動加1* &->對于不同的物料來說，比如之前有個物料使用了流水碼180111001 如果MCH1物料+流水碼*&查詢不到記錄，那么此物料仍然可以使用流水碼180111001* & E-> 外購件 -> 批次編號采用生產(chǎn)訂單編號* & X-> 判斷當(dāng)前的生產(chǎn)訂單編號是否

11、為空* & 生產(chǎn)訂單編號為空-> 6 位日期 +3 位流水號* & 生產(chǎn)訂單編號不為空-> 生產(chǎn)訂單編號* &*TABLES:zbatch,mch1,marc.DATA tab01 LIKE TABLE OF zbatch WITH HEADER LINE.DATA batch_number TYPE mch1-charg.DATA pre_flow_number(3) TYPE n. " 前一個流水號DATA cur_flow_number(3) TYPE n. " 當(dāng)前流水號DATA zbeskz TYPE marc-beskz. &

12、quot; 采購方式CLEAR batch_number. " 批次號碼CLEAR pre_flow_number.CLEAR cur_flow_number.CLEAR tab01." 首先獲取物料的采購方式SELECT SINGLE marcbeskz INTO zbeskz FROM marcWHERE marcwerks = x_bncom-werksAND marcmatnr = x_bncom-matnr." 首先獲取當(dāng)前日期，當(dāng)前物料下，該物料的最大批次號CASE zbeskz.WHEN 'F'. " 外購件，使用流水碼的批

13、次號SELECT MAX( charg ) INTO batch_number FROM MCH1 WHERE matnr = x_bncom-matnr AND ERSDA = sy-datum.IF batch_number IS INITIAL." 如果當(dāng)天的批次號不存在， 那么當(dāng)前流水號為 001cur_flow_number = '001'.ELSE.pre_flow_number = batch_number+6(3). " 如果當(dāng)天的批次存在，那么前一個流水號 = 取到的流水號cur_flow_number = pre_flow_number

14、+ 1. " 當(dāng)前流水號= 前一個流水號+1ENDIF." 將此次的批次信息插入到表ZBATCH 中CONCATENATE sy-datum+2(6) cur_flow_number INTO batch_number. " 當(dāng)前日期后 6 位+ 當(dāng)前流水號作為當(dāng)前的批次號碼WHEN 'E'.IF x_bncom-bwart <> '101' or x_bncom-bwart <> '103'.MESSAGE e001(00) WITH 'Please input batch numb

15、er!'.ELSE.batch_number = x_bncom-aufnr.ENDIF.WHEN 'X'.IF x_bncom-aufnr IS INITIAL.SELECT MAX( charg ) INTO batch_number FROM zbatch WHERE matnr = x _bncom-matnr AND cdate = sy-datum.IF batch_number IS INITIAL." 如果當(dāng)天的批次號不存在， 那么當(dāng)前流水號為 001cur_flow_number = '001'.ELSE.pre_flow_n

16、umber = batch_number+6(3). " 如果當(dāng)天的批次存在，那么前一個流水號 = 取到的流水號cur_flow_number = pre_flow_number + 1. " 當(dāng)前流水號= 前一個流水號+1ENDIF." 將此次的批次信息插入到表ZBATCH 中CONCATENATE sy-datum+2(6) cur_flow_number INTO batch_number. " 當(dāng)前 日期后 6 位+ 當(dāng)前流水號作為當(dāng)前的批次號碼ELSE.IF x_bncom-bwart <> '101' or x_b

17、ncom-bwart <> '103'.MESSAGE e001(00) WITH 'Please input batch number! Finished Goods autobatch numer only allowed for mvt 101'.ELSE.batch_number = x_bncom-aufnr.ENDIF.ENDIF.ENDCASE.* tab01-charg = batch_number.* tab01-matnr = x_bncom-matnr.* tab01-cdate = sy-datum.* tab01-werks = x_bncom-werks.* APPEND tab01.* IF sy-ucomm = 'OK_POST1'. " 只有 post 才會將數(shù)據(jù)寫入到表ZBATCH 中* INSERT zbatch FROM tab01.* COMMIT WORK.* ENDIF.new_charg = batch_number.測試驗(yàn)證： 采購件g |- 1 Jr»dividul 5lpUneStaMat. Stwrt Text