Index: PV.mac.rou
===================================================================
diff -u -r74827 -r74842
--- PV.mac.rou	(.../PV.mac.rou)	(revision 74827)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 74842)
@@ -3,30 +3,7 @@
 #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