Index: PV.mac.rou
===================================================================
diff -u -r74848 -r75087
--- PV.mac.rou	(.../PV.mac.rou)	(revision 74848)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 75087)
@@ -8,7 +8,8 @@
 	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
+	Set PRNr=80000
+	Write $H,!
 	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 	. Set KT=$$$PRGet($$$KortTekst)
 	. Set LEVNr=$$$PRGet($$$LeveranciersNr)
@@ -21,11 +22,11 @@
 	. ;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
+	. If ("GEN.HAL"=$E(KT,1,7)) && (";TBX;LBX;MVX;SST;"[(";"_$P($$GENTYP^HAD(PRNr,,1),"\")_";")) Do
 	. . Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$P($$GENTYP^HAD(PRNr,,1),"\")," OMS",$$$PRGet($$$ProductGroepWMS),!
 	. . D $$$PRSet($$$ProductGroepWMS,"OMS")
-	
-
+	. Quit:(PRNr > 2658415) ;Geen relevante generische producten meer
+	Write $H,!,PRNr
 	q
 
 HFL