Index: PV.mac.rou
===================================================================
diff -u -r75087 -r75088
--- PV.mac.rou	(.../PV.mac.rou)	(revision 75087)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 75088)
@@ -10,7 +10,7 @@
 	; Aanpassen stockagegroep in Admin
 	Set PRNr=80000
 	Write $H,!
-	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:(PRNr>2658415)  Do ;Geen relevante generische producten meer
 	. Set KT=$$$PRGet($$$KortTekst)
 	. Set LEVNr=$$$PRGet($$$LeveranciersNr)
 	. ;If (";VF2;"[(";"_$E(KT,1,3)_";")) && (LEVNr=7631) Do ;Europal fanfold
@@ -25,7 +25,6 @@
 	. 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