Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r56459 -r56460
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56459)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/WijzigAantalDnaCodesVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 56460)
@@ -3,21 +3,33 @@
 <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)
@@ -32,16 +44,8 @@
 	#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()
 	
@@ -57,16 +61,8 @@
 	#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()
 	
@@ -82,16 +78,8 @@
 	#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()
 	
@@ -108,19 +96,11 @@
 	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()
 	
@@ -137,19 +117,11 @@
 	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()