Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56472 -r56539
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56472)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56539)
@@ -3,24 +3,39 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="aTest: ToeleveringLijn met aantal 0 -&gt; alles verwijderen">
+<Property name="DnaCodeIteratorDrieStuks">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
-	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
+	Do ##super()
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode1.Toelevering = "222222"
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode2.Toelevering = "222222"
 	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode3.Toelevering = "222222"
-	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+	Set ..DnaCodeIteratorDrieStuks = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
+]]></Implementation>
+</Method>
+
+<Method name="Test: ToeleveringLijn met aantal 0 -&gt; alles verwijderen">
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(..DnaCodeIteratorDrieStuks)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(3).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, , DnaCodeGeneratorStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
@@ -32,20 +47,15 @@
 	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(3)
 	
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.Toelevering = "222222"
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.Toelevering = "222222"
-	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode3.Toelevering = "222222"
-	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
-	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(..DnaCodeIteratorDrieStuks)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(0)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, , DnaCodeGeneratorStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
@@ -57,20 +67,15 @@
 	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
 	
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.Toelevering = "222222"
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.Toelevering = "222222"
-	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode3.Toelevering = "222222"
-	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
-	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(..DnaCodeIteratorDrieStuks)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(2).DanDoeNiks()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, , DnaCodeGeneratorStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
@@ -82,20 +87,15 @@
 	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(1)
 	
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.Toelevering = "222222"
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.Toelevering = "222222"
-	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode3.Toelevering = "222222"
-	#dim DnaCodeIteratorDrieStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3)
-	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(DnaCodeIteratorDrieStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringLijn.GeefID()).DanReturn(..DnaCodeIteratorDrieStuks)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("VerwijderDnaCodeVoorToeleveringId",ToeleveringLijn.GeefID(),$$$ElkeWaarde).ExactAantalKeer(2).DanDoeNiks()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, , DnaCodeGeneratorStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
@@ -108,23 +108,18 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(4)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.Toelevering = "222222"
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.Toelevering = "222222"
-	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	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("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, ProductTypeAPIStub)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, ProductTypeAPIStub, DnaCodeGeneratorStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
@@ -137,23 +132,18 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(5)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.Toelevering = "222222"
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.Toelevering = "222222"
-	Set DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	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("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, ProductTypeAPIStub)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock, ProductTypeAPIStub, DnaCodeGeneratorStub)
 	Do DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56459 -r56539
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56459)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/MaakDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56539)
@@ -9,7 +9,10 @@
 	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
 	Do ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(1000)
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, , DnaCodeGeneratorStub)
 	#dim DnaCodes as %ListOfDataTypes = DnaCodeService.MaakDnaCodesVoorToeleveringLijn(ToeleveringLijn)
 	
 	Do $$$AssertEquals(DnaCodes.Count(),0)
@@ -25,13 +28,17 @@
 	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)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub, DnaCodeGeneratorStub)
 	#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")
+		Do $$$AssertEquals(DnaCodes.GetAt(1).DnaCode,"OAAAAA3")
 	}
 ]]></Implementation>
 </Method>
@@ -45,16 +52,21 @@
 	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)
+	Set DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
+	Do DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("OAAAAA3")
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(, ProductTypeAPIStub, DnaCodeGeneratorStub)
 	#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(1).DnaCode,"OAAAAA3")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).Toelevering,"1")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).ProductNummer,"1000")
 		Do $$$AssertEquals(DnaCodes.GetAt(2).KlantNummer,"K||1234")
+		Do $$$AssertEquals(DnaCodes.GetAt(2).DnaCode,"OAAAAA3")
 	}
 ]]></Implementation>
 </Method>