Index: vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml
===================================================================
diff -u -r56448 -r56490
--- vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 56448)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 56490)
@@ -12,59 +12,59 @@
 	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
 	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
 	
-	Do $$$AssertEquals(Code,"XAAAAAA2")
+	Do $$$AssertEquals(Code,"XAAAAA2")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Genereer volgende code: AAAAAA -&gt; AAAAAB">
 <Implementation><![CDATA[
 	#dim Prefix As %String = "X"
 	
-	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "62193781\XAAAAAA2"
+	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "1727605\XAAAAA2"
 	
 	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
 	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
 	
-	Do $$$AssertEquals(Code,"XAAAAAB9")
+	Do $$$AssertEquals(Code,"XAAAAB8")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Genereer volgende code: AAAAAZ -&gt; AAAAA1">
 <Implementation><![CDATA[
 	#dim Prefix As %String = "X"
 	
-	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "62193806\XAAAAAZ7"
+	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "1727630\XAAAAZ2"
 	
 	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
 	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
 	
-	Do $$$AssertEquals(Code,"XAAAAA19")
+	Do $$$AssertEquals(Code,"XAAAA18")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Genereer volgende code: AAAAA1 -&gt; AAAAA2">
 <Implementation><![CDATA[
 	#dim Prefix As %String = "X"
 	
-	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "62193807\XAAAAA19"
+	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "1727631\XAAAA18"
 	
 	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
 	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
 	
-	Do $$$AssertEquals(Code,"XAAAAA26")
+	Do $$$AssertEquals(Code,"XAAAA24")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Genereer volgende code: AAAAA9 -&gt; AAAABA (geen nullen in de code toegelaten)">
 <Implementation><![CDATA[
 	#dim Prefix As %String = "X"
 	
-	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "62193815\AAAAA9"
+	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "1727639\XAAAA96"
 	
 	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
 	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
 	
-	Do $$$AssertEquals(Code,"XAAAABA8")
+	Do $$$AssertEquals(Code,"XAAABA7")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/AAP/DnaCodeGenerator.cls.xml
===================================================================
diff -u -r56451 -r56490
--- APPS/Halux/AAP/DnaCodeGenerator.cls.xml	(.../DnaCodeGenerator.cls.xml)	(revision 56451)
+++ APPS/Halux/AAP/DnaCodeGenerator.cls.xml	(.../DnaCodeGenerator.cls.xml)	(revision 56490)
@@ -9,8 +9,8 @@
 <Implementation><![CDATA[
 	#dim IncrementeelGedeelte As %String = ""
 	#dim DnaCode As %String = ""
-	#dim DnaNummer As %Integer = 62193807
-	#dim AlfanumeriekDeel As %String = "AAAAAA"
+	#dim DnaNummer As %Integer = 1727631
+	#dim AlfanumeriekDeel As %String = "AAAAA"
 	
 	Lock +^APPS.Halux.AAP.DnaCodeGenerator(Prefix)