Index: DOM/PM/Maatwerk/ProductUtils.cls.xml
===================================================================
diff -u -r29059 -r67817
--- DOM/PM/Maatwerk/ProductUtils.cls.xml	(.../ProductUtils.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/ProductUtils.cls.xml	(.../ProductUtils.cls.xml)	(revision 67817)
@@ -18,10 +18,10 @@
 	Lock +^KPR(0,Node)
 	Set DosNr=$G(^KPR(0,Node))+1
 	Set DossierCode = ""
-	Set Grens = 475254 // 26+26^2+26^3+26^4
-	If (DosNr > Grens)
+	Set Grens = 475254 // 26+26^2+26^3+26^4										// Vanaf DosNr 2154870 (36+36^2+36^3+36^4 + Grens) krijg je dus 5 karakterige dossiercode die letters en cijfers kan bevatten, 
+	If (DosNr > Grens)															// hierbij moet DossierCode?5A niet bijgeschreven worden in de while omdat we toch boven de grenswaarde van 475254 blijven
 	{
-		Set DosNr = DosNr - Grens + 47989
+		Set DosNr = DosNr - Grens + 47989										// 47989 is terug "AAAA" -> eerste dossiercode met 4, maar exact 4 letters mag niet staat hieronder -> eerste code wordt dus AAA1
 		Set DossierCode = ##class(VHSys.Library).AlfaKey(DosNr,"AN")
 		While ((DossierCode?4A) || (DossierCode[0))
 		{
@@ -32,7 +32,7 @@
 	}
 	Else
 	{
-		Set DossierCode = ##class(VHSys.Library).AlfaKey(DosNr,"A")
+		Set DossierCode = ##class(VHSys.Library).AlfaKey(DosNr,"A")				// Tussen"A" en "ZZZZ", zonder getallen
 	}
 	Set $P(^KPR(0,Node),"\")=DosNr
 	Lock -^KPR(0,Node)