Index: APPS/Halux/AAP/DnaCodeGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/AAP/DnaCodeGenerator.cls.xml	(revision 0)
+++ APPS/Halux/AAP/DnaCodeGenerator.cls.xml	(revision 56448)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.AAP.DnaCodeGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GenereerDnaCode">
+<FormalSpec>Prefix:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IncrementeelGedeelte As %String = ""
+	#dim DnaCode As %String = ""
+	#dim DnaNummer As %Integer = 62193807
+	#dim AlfanumeriekDeel As %String = "AAAAAA"
+	
+	If $$$HasLength($Get(^APPS.Halux.AAP.DnaCodeGenerator(Prefix))) {
+		Set DnaNummer = $Piece(^APPS.Halux.AAP.DnaCodeGenerator(Prefix),"\",1) + 1
+		Set AlfanumeriekDeel = $$ALFAKEY^vhRtn1(DnaNummer,"AN")
+		While AlfanumeriekDeel [ "0" {
+			Set DnaNummer = DnaNummer + 1
+			Set AlfanumeriekDeel = $$ALFAKEY^vhRtn1(DnaNummer,"AN")
+		}
+	}
+	
+	#dim CheckDigit As %String = $$CHKDIGIT^HAD(Prefix_AlfanumeriekDeel)
+	Set DnaCode = Prefix_AlfanumeriekDeel_CheckDigit
+	Set ^APPS.Halux.AAP.DnaCodeGenerator(Prefix) = $lb(DnaNummer,DnaCode)
+	Quit DnaCode
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeGenerator/GenereerDnaCode/Test.cls.xml	(revision 56448)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeGenerator.GenereerDnaCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Genereer eerste code voor niet bestaand type -&gt; prefix+AAAA+check">
+<Implementation><![CDATA[
+	#dim Prefix As %String = "X"
+	
+	Kill ^APPS.Halux.AAP.DnaCodeGenerator(Prefix)
+	
+	Set DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
+	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	
+	Do $$$AssertEquals(Code,"XAAAAAA2")
+]]></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 DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
+	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	
+	Do $$$AssertEquals(Code,"XAAAAAB9")
+]]></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 DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
+	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	
+	Do $$$AssertEquals(Code,"XAAAAA19")
+]]></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 DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
+	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	
+	Do $$$AssertEquals(Code,"XAAAAA26")
+]]></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 DnaCodeGenerator = ##class(APPS.Halux.AAP.DnaCodeGenerator).%New()
+	#dim Code As %String = DnaCodeGenerator.GenereerDnaCode(Prefix)
+	
+	Do $$$AssertEquals(Code,"XAAAABA8")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>