Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r63952 -r64043
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 63952)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64043)
@@ -71,17 +71,19 @@
 <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 Rit As DOM.TRANSP.Rit
 	#dim NacalculatieDto As APPS.TRANSP.dto.Nacalculatie
 	#dim KlantNummer As %String = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantId)
 	#dim LaatstVerwerkteRit As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit")
 	#dim RitId As %String = LaatstVerwerkteRit
 	
 	Set Resultaat = ##class(APPS.TRANSP.dto.NacalculatieLijst).%New()
+	Set RitIterator = ##class(DOM.TRANSP.impl.DataM.DataMRitIterator).%New()
 	
-	For  { Set RitId = $Order(^TRANSP("D",RitId)) Quit:(RitId="")
-		Set Rit = ##class(DOM.TRANSP.impl.DataM.DataMRit).%New(RitId)
-		If (..BevatTransporteurIteratorTransporteur(TransporteurIterator, Rit.GeefTransporteur())) {
+	While (RitIterator.HasNext()) {
+		Set Rit = RitIterator.Next()
+		
+		If (Rit.GeefID() > RitId && ..BevatTransporteurIteratorTransporteur(TransporteurIterator, Rit.GeefTransporteur())) {
 			#dim LeveringIterator = Rit.GeefLeveringIterator()
 			#dim Levering As DOM.TRANSP.impl.DataM.DataMLevering
 			While LeveringIterator.HasNext() {
@@ -97,7 +99,7 @@
 					Set NacalculatieDto.LeveradresPostcode = Levering.GeefAdres().GeefPostcode()
 					Set NacalculatieDto.LeveradresStraat = Levering.GeefAdres().GeefStraat()
 					Set NacalculatieDto.OphaalTijdstip = Rit.GeefOphaalTimeStamp()
-					Set NacalculatieDto.RitNummer = RitId
+					Set NacalculatieDto.RitNummer = Rit.GeefID()
 					Set NacalculatieDto.Bonnummers = ..MaakBonnummerLijstje(Levering)
 					Set NacalculatieDto.Land = Levering.GeefAdres().GeefLand().GeefNaam()
 					Set NacalculatieDto.KlantOrdernummer = ..MaakKlantnummerLijst(Levering)
@@ -107,9 +109,10 @@
 					Do Resultaat.Insert(NacalculatieDto)
 				}
 			}
-		Set LaatstVerwerkteRit = RitId
+		Set LaatstVerwerkteRit = Rit.GeefID()
 		}
 	}
+	
 	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.TRANSP.TransportService.Nacalculatie"_KlantNummer_".LaatstVerwerkteRit",LaatstVerwerkteRit)
 	Quit Resultaat
 ]]></Implementation>