Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56460 -r56472
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56460)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56472)
@@ -3,33 +3,21 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.WijzigAantalDnaCodesVoorToeleveringLijn.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="DnaCodeIteratorDrieStuks">
-<Type>TECH.Iterator</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="aTest: ToeleveringLijn met aantal 0 -&gt; alles verwijderen">
 <Implementation><![CDATA[
-	Do ##super()
+	#dim ToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+	Do ToeleveringLijn.IndienMethodCall("GeefAantal").DanReturn(0)
 	
 	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"
-	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)
+	#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(3).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
@@ -44,8 +32,16 @@
 	#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()
 	
@@ -61,8 +57,16 @@
 	#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()
 	
@@ -78,8 +82,16 @@
 	#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()
 	
@@ -96,11 +108,19 @@
 	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()
 	
@@ -117,11 +137,19 @@
 	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()