Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(revision 64105)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler.BepaalTransportData.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag met nacalculatie">
+<Implementation><![CDATA[
+	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
+	
+	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)
+	
+	Set Transporteurs = ##class(%ListOfObjects).%New()
+	Do Transporteurs.Insert(##class(DOM.TRANSP.enu.Transporteur).TTC())
+	#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 = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(VerkoopApiMock, ,RitIterator)
+	
+	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
+	
+	Do $$$AssertIsObject(TransportData)
+	Do $$$AssertEquals(TransportData.Count(), 1)
+	
+	Do RitMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor leveradres HFBelgie mag geen nacalculatie toegevoegd worden">
+<Implementation><![CDATA[
+	Set VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
+	#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 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)
+	
+	Set Transporteurs = ##class(%ListOfObjects).%New()
+	Do Transporteurs.Insert(##class(DOM.TRANSP.enu.Transporteur).TTC())
+	#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)
+	
+	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
+	
+	Do $$$AssertIsObject(TransportData)
+	Do $$$AssertEquals(TransportData.Count(), 0)
+	
+	Do RitMock.Verifieer()
+	Do Levering.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefTransportIterator">
+<FormalSpec>Transporteur...:DOM.TRANSP.enu.Transporteur</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ArrayOneDimIterator).%New(.Transporteur)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRitMock">
+<FormalSpec>KlantId:DOM.VKP.enu.Klant</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.TRANSP.Rit</ReturnType>
+<Implementation><![CDATA[
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Set LegacyPartijApi = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New()
+	#dim KlantNummer As %String = LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantId)
+	#dim LaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit")
+	
+	Do RitMock.IndienMethodCall("GeefID").DanReturn(LaatstVerwerkteRit + 1)
+	Do RitMock.IndienMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).TTC())
+	Do RitMock.IndienMethodCall("GeefOphaalTimeStamp").DanReturn($$$ElkeWaarde)
+	
+	Quit RitMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringMock">
+<FormalSpec>KlantId:DOM.VKP.enu.Klant</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.TRANSP.Levering</ReturnType>
+<Implementation><![CDATA[
+	Set LeveringMock = ##class(vhTest.Mock.DOM.TRANSP.Levering).%New()
+	Do LeveringMock.IndienMethodCall("GeefGeleverdAanKlantID").DanReturn(KlantId)
+	Do LeveringMock.IndienMethodCall("GeefAantalColli").DanReturn($$$ElkeWaarde)
+	Do LeveringMock.IndienMethodCall("GeefAantalEuroPalletten").DanReturn($$$ElkeWaarde)
+	Do LeveringMock.IndienMethodCall("GeefAantalHalveEuroPalletten").DanReturn($$$ElkeWaarde)
+	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("GeefBonIterator").DanReturn(BonIterator)
+	
+	Quit LeveringMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64099 -r64105
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64099)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64105)
@@ -53,15 +53,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RitIterator">
+<Type>DOM.TRANSP.impl.DataM.DataMRitIterator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI="",RitIterator:DOM.TRANSP.impl.DataM.DataMRitIterator=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
 	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
+	Set ..RitIterator = $$$Inject(RitIterator, ##class(DOM.TRANSP.impl.DataM.DataMRitIterator).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -78,10 +84,9 @@
 	#dim RitId As %String = LaatstVerwerkteRit
 	
 	Set Resultaat = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
-	Set RitIterator = ##class(DOM.TRANSP.impl.DataM.DataMRitIterator).%New()
 	
-	While (RitIterator.HasNext()) {
-		Set Rit = RitIterator.Next()
+	While (..RitIterator.HasNext()) {
+		Set Rit = ..RitIterator.Next()
 		
 		If (Rit.GeefID() > RitId && ..BevatTransporteurIteratorTransporteur(TransporteurIterator, Rit.GeefTransporteur())) {
 			#dim LeveringIterator = Rit.GeefLeveringIterator()
@@ -95,14 +100,16 @@
 					Set NacalculatieDto.AantalEuroPallet = Levering.GeefAantalEuroPalletten()
 					Set NacalculatieDto.AantalHalveEuroPallet = Levering.GeefAantalHalveEuroPalletten()
 					Set NacalculatieDto.AantalBuitenmaatsePallet = Levering.GeefAantalBuitenmaatsPalletten()
-					Set NacalculatieDto.LeveradresGemeente = Levering.GeefAdres().GeefGemeente()
-					Set NacalculatieDto.LeveradresNaam = Levering.GeefAdres().GeefNaam()
-					Set NacalculatieDto.LeveradresPostcode = Levering.GeefAdres().GeefPostcode()
-					Set NacalculatieDto.LeveradresStraat = Levering.GeefAdres().GeefStraat()
+					
+					#dim LeverAdres As DOM.VKP.LeverAdres = Levering.GeefAdres()
+					Set NacalculatieDto.LeveradresGemeente = LeverAdres.GeefGemeente()
+					Set NacalculatieDto.LeveradresNaam = LeverAdres.GeefNaam()
+					Set NacalculatieDto.LeveradresPostcode = LeverAdres.GeefPostcode()
+					Set NacalculatieDto.LeveradresStraat = LeverAdres.GeefStraat()
 					Set NacalculatieDto.OphaalTijdstip = Rit.GeefOphaalTimeStamp()
 					Set NacalculatieDto.RitNummer = Rit.GeefID()
 					Set NacalculatieDto.Bonnummers = ..MaakBonnummerLijstje(Levering)
-					Set NacalculatieDto.Land = Levering.GeefAdres().GeefLand().GeefNaam()
+					Set NacalculatieDto.Land = LeverAdres.GeefLand().GeefNaam()
 					Set NacalculatieDto.KlantOrdernummer = ..MaakKlantnummerLijst(Levering)
 					
 					Do ..VulAanKlantSpecifiek(KlantId, NacalculatieDto, Levering)
@@ -126,7 +133,7 @@
 <Implementation><![CDATA[
 	#dim IsLeverAdresHaefeleBelgie As %Boolean = $$$False
 	#dim KlantIdHFBelgie As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
-
+	
 	If (Levering.GeefGeleverdAanKlantID() = KlantIdHFBelgie) {
 		#dim HFBelgie As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantIdHFBelgie)
 		#dim LeverAdresHFBelgie As DOM.VKP.LeverAdres = HFBelgie.GeefAdres()
@@ -267,7 +274,6 @@
 			Set BevatTransporteurIteratorTransporteur = $$$True
 		}
 	}
-	
 	Quit BevatTransporteurIteratorTransporteur
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r62386 -r64105
--- vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 62386)
+++ vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64105)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI=""</FormalSpec>
+<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI="",LegacyPartijApi:DOM.PARTIJ.impl.LegacyPartijAPI="",RitIterator:DOM.TRANSP.impl.DataM.DataMRitIterator=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>