Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56438 -r56459
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56438)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56459)
@@ -116,12 +116,15 @@
 	Set DnaCode3.Toelevering = "222222"
 	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
 	
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, ProductTypeAPIStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
@@ -142,12 +145,15 @@
 	Set DnaCode3.Toelevering = "222222"
 	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
 	
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(2).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, ProductTypeAPIStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56385 -r56459
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56385)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56459)
@@ -22,7 +22,10 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub)
 	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	If $$$AssertEquals(DnaCodes.Count(),1) {
@@ -39,7 +42,10 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(2)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set ProductTypeAPIStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ProductTypeAPIStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub)
 	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	If $$$AssertEquals(DnaCodes.Count(),2) {
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r56438 -r56459
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56438)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 56459)
@@ -7,14 +7,24 @@
 <Type>DOM.Halux.AAP.DnaCodeRepository</Type>
 </Property>
 
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
+</Property>
+
+<Property name="DnaCodeGenerator">
+<Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
+	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
+	Set ..DnaCodeGenerator = $$$Inject(DnaCodeGenerator, ##class(APPS.Halux.AAP.DnaCodeGenerator).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -80,7 +90,7 @@
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode.ProductNummer = ToeleveringLijn.GeefProductID()
-	Set DnaCode.DnaCode = 0 //nog te genereren
+	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ToeleveringLijn.GeefProductID()))
 	Set DnaCode.Toelevering = ToeleveringLijn.GeefToelevering().GeefID()
 	Set DnaCode.KlantNummer = ToeleveringLijn.GeefToelevering().GeefKlantID()
 	Set DnaCode.ParentDnaCode = "" //genereren onder voorwaarde