Index: vhTest/Utils/DOM/AKP/Toelevering.cls.xml
===================================================================
diff -u -r51350 -r56385
--- vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 51350)
+++ vhTest/Utils/DOM/AKP/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 56385)
@@ -21,6 +21,7 @@
     Do ToeleveringMock.IndienMethodCall("GeefProductLijnIterator").DanReturn(##class(TECH.ListIterator).%New(ProductLijnen))
 	Do ToeleveringMock.IndienMethodCall("GeefOorsprongKetting").DanReturn("OorsprongKetting")
 	Do ToeleveringMock.IndienMethodCall("GeefEindPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
+	Do ToeleveringMock.IndienMethodCall("GeefKlantID").DanReturn("K||1234")
     Quit ToeleveringMock
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(revision 56385)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.MaakDnaCodesVoorToeleveringLijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ToeleveringLijn met aantal 0">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
+	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	Do $$$AssertEquals(DnaCodes.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal 1">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
+	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	If $$$AssertEquals(DnaCodes.Count(),1) {
+		Do $$$AssertEquals(DnaCodes.GetAt(1).Toelevering,"1")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).ProductNummer,"1000")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).KlantNummer,"K||1234")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal 2">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(2)
+	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
+	
+	If $$$AssertEquals(DnaCodes.Count(),2) {
+		Do $$$AssertEquals(DnaCodes.GetAt(1).Toelevering,"1")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).ProductNummer,"1000")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).KlantNummer,"K||1234")
+		Do $$$AssertEquals(DnaCodes.GetAt(2).Toelevering,"1")
+		Do $$$AssertEquals(DnaCodes.GetAt(2).ProductNummer,"1000")
+		Do $$$AssertEquals(DnaCodes.GetAt(2).KlantNummer,"K||1234")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(revision 0)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(revision 56385)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.AAP.DnaCodeService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DnaCodeRepository = ##class(DOM.Halux.AAP.DnaCodeRepository).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakDnaCodesVoorToeleveringLijn">
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCodes = ##class(%ListOfDataTypes).%New()
+	
+	#dim Teller As %Integer = 1
+	While Teller <= ToeleveringLijn.GeefAantal() {
+		Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+		Set DnaCode.ProductNummer = ToeleveringLijn.GeefProductID()
+		Set DnaCode.DnaCode = 0 //nog te genereren
+		Set DnaCode.Toelevering = ToeleveringLijn.GeefToelevering().GeefID()
+		Set DnaCode.KlantNummer = ToeleveringLijn.GeefToelevering().GeefKlantID()
+		Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde
+		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+		Do DnaCodes.Insert(DnaCode)
+		Set Teller = Teller + 1
+	}
+	
+	Quit DnaCodes
+]]></Implementation>
+</Method>
+
+<Method name="BewaarDnaCodes">
+<FormalSpec>DnaCodes:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCodeIterator = ##class(TECH.ListIterator).%New(DnaCodes)
+	While DnaCodeIterator.HasNext() {
+		Do ..DnaCodeRepository.Bewaar(DnaCodeIterator.Next())
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>