Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml
===================================================================
diff -u -r56248 -r56270
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 56248)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/DoeNalculatie/Test.cls.xml	(.../Test.cls.xml)	(revision 56270)
@@ -10,7 +10,7 @@
 	
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(2)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
-	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData", KlantId).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
+	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData", KlantId, $$$ElkeWaarde).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
 	
 	Set BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
 	Set RapportDataFactoryMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New()
@@ -28,7 +28,7 @@
 	Do FileUtilsMock.VerwachtMethodCall("Delete", Bestandsnaam)
 	
 	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock, RapportGeneratorMock, RapportDataFactoryMock, MailApi, FileUtilsMock)
-	Do Nacalculator.DoeNacalculatie(KlantId)
+	Do Nacalculator.DoeNacalculatie(KlantId, ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight())
 	
 	Do TransportdataVoorKlantBepalerMock.Verifieer()
 	Do RapportGeneratorMock.Verifieer()
@@ -45,7 +45,7 @@
 	
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(0)
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
-	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData", KlantId).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
+	Do TransportdataVoorKlantBepalerMock.VerwachtMethodCall("BepaalTransportData", KlantId, $$$ElkeWaarde).ExactAantalKeer(1).DanReturn(GegenereerdAntwoord)
 	
 	Set BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
 	Set RapportDataFactoryMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New()
@@ -63,7 +63,7 @@
 	Do FileUtilsMock.VerwachtMethodCall("Delete", Bestandsnaam)
 	
 	Set Nacalculator = ##class(APPS.TRANSP.impl.TransportService.Nacalculator).%New(TransportdataVoorKlantBepalerMock, RapportGeneratorMock, RapportDataFactoryMock, MailApi, FileUtilsMock)
-	Do Nacalculator.DoeNacalculatie(KlantId)
+	Do Nacalculator.DoeNacalculatie(KlantId, ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight())
 	
 	Do TransportdataVoorKlantBepalerMock.Verifieer()
 	Do RapportGeneratorMock.Verifieer()
@@ -81,7 +81,7 @@
 	#dim GegenereerdAntwoord As APPS.TRANSP.dto.NacalculatieLijst = ..GenereerAntwoordData(2)
 	Set GeenDataException = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen data voor '"_KlantId_"'")
 	Set TransportdataVoorKlantBepalerMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New()
-	Do TransportdataVoorKlantBepalerMock.IndienMethodCall("BepaalTransportData", KlantId).DanException(GeenDataException)
+	Do TransportdataVoorKlantBepalerMock.IndienMethodCall("BepaalTransportData", KlantId, $$$ElkeWaarde).DanException(GeenDataException)
 	
 	Set BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
 	Set RapportDataFactoryMock = ##class(vhTest.Mock.APPS.TRANSP.impl.TransportService.Nacalculator.RapportDataFactory).%New()
Index: vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r56252 -r56270
--- vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56252)
+++ vhTest/Mock/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56270)
@@ -16,9 +16,9 @@
 </Method>
 
 <Method name="BepaalTransportData">
-<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<FormalSpec>KlantId:DOM.common.PartijID,TransporteurIterator:TECH.Iterator</FormalSpec>
 <ReturnType>APPS.TRANSP.dto.NacalculatieLijst</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalTransportData",KlantId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalTransportData",KlantId,TransporteurIterator)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r54054 -r56270
--- vhTest/Fake/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 54054)
+++ vhTest/Fake/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56270)
@@ -7,16 +7,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler</Super>
 
-<Method name="BepaalTransportData">
-<FormalSpec>KlantId:DOM.common.PartijID,BeginDatum:%Date,EindDatum:%Date</FormalSpec>
-<ReturnType>APPS.TRANSP.dto.NacalculatieLijst</ReturnType>
+<Method name="MaakBonnummerLijstje">
+<FormalSpec>Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
-<Method name="MaakBonnummerLijstje">
-<FormalSpec>Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
-<ReturnType>%String</ReturnType>
+<Method name="BepaalTransportData">
+<FormalSpec>KlantId:DOM.common.PartijID,TransporteurIterator:TECH.Iterator</FormalSpec>
+<ReturnType>APPS.TRANSP.dto.NacalculatieLijst</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml
===================================================================
diff -u -r56252 -r56270
--- APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 56252)
+++ APPS/TRANSP/impl/TransportService/Nacalculator.cls.xml	(.../Nacalculator.cls.xml)	(revision 56270)
@@ -52,8 +52,9 @@
 </Method>
 
 <Method name="DoeNacalculatie">
-<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<FormalSpec>KlantId:DOM.common.PartijID,Transporteur...:DOM.TRANSP.enu.Transporteur</FormalSpec>
 <Implementation><![CDATA[
+	#dim TransporteurIterator As TECH.Iterator = ##class(TECH.ArrayOneDimIterator).%New(.Transporteur)
 	#dim KlantNaam As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(..VerkoopApi.GeefKlant(KlantId).GeefNaam())
 	#dim Foldernaam As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"), "Nacalculatie")
 	#dim Bestandsnaam As %String = ##class(TECH.Files).AppendFile(Foldernaam, "Nacalculatie"_KlantNaam_".csv")
@@ -70,7 +71,7 @@
 	Try {
 		//Data ophalen
 		#dim VorigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit")
-		#dim RitDataLijst As APPS.TRANSP.dto.NacalculatieLijst = ..TransportdataVoorKlantBepaler.BepaalTransportData(KlantId)
+		#dim RitDataLijst As APPS.TRANSP.dto.NacalculatieLijst = ..TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
 		#dim HuidigeLaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit")
 		//csv maken
 		Do ..RapportGenerator.MaakBestand(..RapportDataFactory.MaakRapportData(RitDataLijst, Bestandsnaam))
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r56258 -r56270
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56258)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56270)
@@ -47,21 +47,20 @@
 </Method>
 
 <Method name="BepaalTransportData">
-<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<FormalSpec>KlantId:DOM.common.PartijID,TransporteurIterator:TECH.Iterator</FormalSpec>
 <ReturnType>APPS.TRANSP.dto.NacalculatieLijst</ReturnType>
 <Implementation><![CDATA[
 	#dim Rit As DOM.TRANSP.impl.DataM.DataMRit
 	#dim NacalculatieDto As APPS.TRANSP.dto.Nacalculatie
 	#dim KlantNaam As %String = ##class(TECH.StringUtils).StringStrippenVanLeestekensSpatiesTabs(..VerkoopApi.GeefKlant(KlantId).GeefNaam())
-	
 	#dim LaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNaam_".LaatstVerwerkteRit")
 	#dim RitId As %String = LaatstVerwerkteRit
 	
 	Set Resultaat = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
 	
 	For  { Set RitId = $Order(^TRANSP("D",RitId)) Quit:(RitId="")
 		Set Rit = ##class(DOM.TRANSP.impl.DataM.DataMRit).%New(RitId)
-		If (Rit.GeefTransporteur()=##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight()) {
+		If (..BevatTransporteurIteratorTransporteur(TransporteurIterator, Rit.GeefTransporteur())) {
 			#dim LeveringIterator = Rit.GeefLeveringIterator()
 			#dim Levering As DOM.TRANSP.impl.DataM.DataMLevering
 			While LeveringIterator.HasNext() {
@@ -134,6 +133,7 @@
 <Method name="BepaalLijnTotaal">
 <FormalSpec>NacalculatieDto:APPS.TRANSP.dto.Nacalculatie,Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
 <Private>1</Private>
+<ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
 	#dim LijnTotaalPaletten As %Double = NacalculatieDto.Palletprijs * (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten())
 	#dim LijnTotaalColli As %Double = NacalculatieDto.ColliPrijs * Levering.GeefAantalColli()
@@ -181,6 +181,23 @@
 	Quit ##class(TECH.StringUtils).RightTrimMultiple(KlantnummerLijst,"-")
 ]]></Implementation>
 </Method>
+
+<Method name="BevatTransporteurIteratorTransporteur">
+<FormalSpec>TransporteurIterator:TECH.Iterator,Transporteur:DOM.TRANSP.enu.Transporteur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatTransporteurIteratorTransporteur As %Boolean = $$$False
+	
+	While ((TransporteurIterator.HasNext()) && ($$$Not(BevatTransporteurIteratorTransporteur))) {
+		If (TransporteurIterator.Next() = Transporteur) {
+			Set BevatTransporteurIteratorTransporteur = $$$True
+		}
+	}
+	
+	Quit BevatTransporteurIteratorTransporteur
+]]></Implementation>
+</Method>
 </Class>