Index: PRODUKT.mac.rou
===================================================================
diff -u -r4782 -r17618
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 4782)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 17618)
@@ -183,7 +183,13 @@
 NEXTID(NoLDISP) 
  New R,PRNr,MailId
  For  Lock +^KPR(0,1):2  Quit:$T  Else  Do:'$G(NoLDISP) LDISP^vhLock("^KPR(0,1)","Uniek produktnr")
- Set PRNr=$G(^KPR(0,1)),^KPR(0,1)=PRNr+1
+ Set PRNr=$G(^KPR(0,1)) 
+ If PRNr = 999998
+ {
+	Set ^KPR(0,1) = PRNr+3
+ }Else{
+	Set ^KPR(0,1)=PRNr+1	
+ }
  If PRNr=100000 Do
  .Set R="�KAandacht !!!�k~~Het huidig nummer is "_PRNr_" of hoger.~Gelieve na te zien."
  .Set MailId=$$SYSTEM^vhMAIL("","Produkten","Intern nummer","SYS",R,"",1,1)