Index: PV.mac.rou
===================================================================
diff -u -r73192 -r74827
--- PV.mac.rou	(.../PV.mac.rou)	(revision 73192)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 74827)
@@ -3,7 +3,30 @@
 #include BL.Derde.KlantSpecifiek
 #include BL.Derde.LevSpecifiek
 q
+MESStockage
+	;Resource stockagegrp
+	s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMC")="5`Objt MES component"
+	s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMS")="6`Objt MES samengesteld"
+	; Aanpassen stockagegroep in Admin
+	Set PRNr=5000000
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Set KT=$$$PRGet($$$KortTekst)
+	. Set LEVNr=$$$PRGet($$$LeveranciersNr)
+	. ;If (";VF2;"[(";"_$E(KT,1,3)_";")) && (LEVNr=7631) Do ;Europal fanfold
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
+	. ;If (";VPK;"[(";"_$E(KT,1,3)_";")) && (KT'["TAX") && (KT'["SYF") && (LEVNr=6317) Do ;Lefevere 
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
+	. ;If (";SLE.;SLME;SME.;SPE.;"[(";"_$E(KT,1,4)_";")) && (LEVNr=7802) Do ;spaanplaat egger
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
+	. If ("GEN.HAL"=$E(KT,1,7)) && (";TBX;LBX;MVX;"[(";"_$P($$GENTYP^HAD(PRNr,,1),"\")_";")) Do
+	. . Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$P($$GENTYP^HAD(PRNr,,1),"\")," OMS",$$$PRGet($$$ProductGroepWMS),!
+	. . D $$$PRSet($$$ProductGroepWMS,"OMS")
+	
 
+	q
 
 HFL
 	Read "Klant:",HflKlant