Index: vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml
===================================================================
diff -u -r56490 -r57554
--- vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 56490)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 57554)
@@ -67,6 +67,23 @@
 	Do $$$AssertEquals(Code,"XAAABA7")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Genereer volgende code: AAAAA9 -&gt; AAAABA -&gt; AAAABB ">
+<Implementation><![CDATA[
+	#dim Prefix As %String = "X"
+	#dim Code As %String = ""
+	
+	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = "1727639\XAAAA96"
+	
+	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
+	
+	Set Code = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	Do $$$AssertEquals(Code,"XAAABA7")
+	
+	Set Code = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	Do $$$AssertEquals(Code,"XAAABB3")
+]]></Implementation>
+</Method>
 </Class>