Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml
===================================================================
diff -u -r64107 -r64108
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64107)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64108)
@@ -7,15 +7,10 @@
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
-	Set Ritten = ##class(%ListOfObjects).%New()
-	Do Ritten.Insert(RitMock)
-	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).VRD(), 
-		##class(DOM.TRANSP.enu.Transporteur).DHL())
-	
 	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(, ,RitIterator)
-	
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
 	Do $$$AssertIsObject(TransportData)
@@ -26,19 +21,13 @@
 <Method name="Test: Standaardgedrag met nacalculatie">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(..GeefLeveringMock(KlantId))
 	
-	Set Leveringen = ##class(%ListOfObjects).%New()	
-	Do Leveringen.Insert(..GeefLeveringMock(KlantId))
-	Set LeveringIterator = ##class(TECH.ListIterator).%New(Leveringen)
-	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
-	Set Ritten = ##class(%ListOfObjects).%New()
-	Do Ritten.Insert(RitMock)
-	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
-	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), 
-		##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	
 	Set VerkoopApiMock =  ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Set TransportdataVoorKlantBepaler = 
@@ -59,47 +48,39 @@
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
 	#dim HFBelgie As DOM.VKP.VanHoeckeKlant = VerkoopApi.GeefKlant(KlantId)
 	
-	Set Leveringen = ##class(%ListOfObjects).%New()	
-	#dim Levering As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
-	Do Levering.VerwachtMethodCall("GeefAdres").DanReturn(HFBelgie.GeefAdres())
-	Do Leveringen.Insert(Levering)
-	Set LeveringIterator = ##class(TECH.ListIterator).%New(Leveringen)
+	#dim LeveringMock As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
+	Do LeveringMock.VerwachtMethodCall("GeefAdres").DanReturn(HFBelgie.GeefAdres())
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
-	Set Ritten = ##class(%ListOfObjects).%New()
-	Do Ritten.Insert(RitMock)
-	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
 	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	
-	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(, ,RitIterator)
+	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(,,RitIterator)
 	
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
 	Do $$$AssertIsObject(TransportData)
 	Do $$$AssertEquals(TransportData.Count(), 0)
 	
+	Do LeveringMock.Verifieer()
 	Do RitMock.Verifieer()
-	Do Levering.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Leeg leveradres van een rit geeft InvalidInputException">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
 	
-	Set Leveringen = ##class(%ListOfObjects).%New()	
-	#dim Levering As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
-	Do Levering.VerwachtMethodCall("GeefAdres").DanReturn("")
-	Do Leveringen.Insert(Levering)
-	Set LeveringIterator = ##class(TECH.ListIterator).%New(Leveringen)
+	#dim LeveringMock As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
+	Do LeveringMock.VerwachtMethodCall("GeefAdres").DanReturn("")
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(LeveringMock)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
-	Set Ritten = ##class(%ListOfObjects).%New()
-	Do Ritten.Insert(RitMock)
-	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
 	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	
@@ -110,31 +91,25 @@
 	
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
+	Do LeveringMock.Verifieer()
 	Do RitMock.Verifieer()
-	Do Levering.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Leeg leveradres van een klant geeft InvalidInputException">
 <Implementation><![CDATA[
 	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+	#dim LeveringIterator As TECH.ListIterator = ..GeefLeveringIterator(..GeefLeveringMock(KlantId))
 	
 	Set VanHoeckeKlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
 	Do VanHoeckeKlantMock.VerwachtMethodCall("GeefAdres").DanReturn("")
 	
 	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do VerkoopApiMock.VerwachtMethodCall("GeefKlant", KlantId).DanReturn(VanHoeckeKlantMock)
-		
-	Set Leveringen = ##class(%ListOfObjects).%New()	
-	#dim Levering As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
-	Do Leveringen.Insert(Levering)
-	Set LeveringIterator = ##class(TECH.ListIterator).%New(Leveringen)
 	
 	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
 	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
-	Set Ritten = ##class(%ListOfObjects).%New()
-	Do Ritten.Insert(RitMock)
-	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	#dim RitIterator As TECH.ListIterator = ..GeefRitIterator(RitMock)
 	
 	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	
@@ -145,10 +120,9 @@
 	
 	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 	
-	Do RitMock.Verifieer()
-	Do Levering.Verifieer()
-	Do VerkoopApiMock.Verifieer()
 	Do VanHoeckeKlantMock.Verifieer()
+	Do VerkoopApiMock.Verifieer()
+	Do RitMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -191,13 +165,35 @@
 	Do LeveringMock.IndienMethodCall("GeefAantalBuitenmaatsPalletten").DanReturn($$$ElkeWaarde)
 	
 	#dim LeverAdresMock As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Nederlands()
-	Do LeveringMock.IndienMethodCall("GeefAdres").DanReturn(LeverAdresMock)
 	Set BonIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	Do LeveringMock.IndienMethodCall("GeefAdres").DanReturn(LeverAdresMock)
 	Do LeveringMock.IndienMethodCall("GeefBonIterator").DanReturn(BonIterator)
 	
 	Quit LeveringMock
 ]]></Implementation>
 </Method>
+
+<Method name="GeefRitIterator">
+<FormalSpec>RitMock:vhTest.Mock.DOM.TRANSP.Rit</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set Ritten = ##class(%ListOfObjects).%New()
+	Do Ritten.Insert(RitMock)
+	Quit ##class(TECH.ListIterator).%New(Ritten)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringIterator">
+<FormalSpec>LeveringMock:vhTest.Mock.DOM.TRANSP.Levering</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	Set Leveringen = ##class(%ListOfObjects).%New()	
+	Do Leveringen.Insert(LeveringMock)
+	Quit ##class(TECH.ListIterator).%New(Leveringen)
+]]></Implementation>
+</Method>
 </Class>