Index: DOM/TRANSP/impl/DataM/DataMRit.cls.xml
===================================================================
diff -u -r29059 -r56294
--- DOM/TRANSP/impl/DataM/DataMRit.cls.xml	(.../DataMRit.cls.xml)	(revision 29059)
+++ DOM/TRANSP/impl/DataM/DataMRit.cls.xml	(.../DataMRit.cls.xml)	(revision 56294)
@@ -29,6 +29,8 @@
 </Method>
 
 <Method name="GeefLeveringIDs">
+<Description>
+OPGELET: Transporten worden minder snel opgekuist dan leveringen, dus onbetrouwbaar/gevaarlijk in gebruik bij iets oudere transporten</Description>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set LeveringIDs = ##class(%ListOfDataTypes).%New()
@@ -42,18 +44,24 @@
 </Method>
 
 <Method name="GeefLeveringIDIterator">
+<Description>
+OPGELET: Transporten worden minder snel opgekuist dan leveringen, dus onbetrouwbaar/gevaarlijk in gebruik bij iets oudere transporten</Description>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefLeveringIDs())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLeveringIterator">
+<Description>
+OPGELET: Transporten worden minder snel opgekuist dan leveringen, dus onbetrouwbaar/gevaarlijk in gebruik bij iets oudere transporten</Description>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefLeveringen())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLeveringen">
+<Description>
+OPGELET: Transporten worden minder snel opgekuist dan leveringen, dus onbetrouwbaar/gevaarlijk in gebruik bij iets oudere transporten</Description>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="DOM.TRANSP.Levering"</ReturnTypeParams>
 <Implementation><![CDATA[
@@ -62,6 +70,7 @@
 	#dim itLeveringIDs As TECH.ListIterator = ..GeefLeveringIDIterator()
 	while itLeveringIDs.HasNext() {
 		do Leveringen.Insert(##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(..RitID,itLeveringIDs.Next()))
+		// IDEE TER VERBETERING: CONTROLEREN DAT DE LINK VAN LEVERING NAAR TRANSPORT, OP HETZELFDE TRANSPORTNR UITKOMT. ZONIET ZITTEN WE MISSCHIEN MET EEN REEDS HERBRUIKTE LEVERINGID.
 	}
 	quit Leveringen
 ]]></Implementation>
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r56270 -r56294
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56270)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 56294)
@@ -3,6 +3,21 @@
 <Class name="APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="ColliPrijsHaefeleNederland">
+<Type>%Double</Type>
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="ColliPrijsDuPont">
+<Type>%Double</Type>
+<Default>5.5</Default>
+</Parameter>
+
+<Parameter name="PalletprijsDuPont">
+<Type>%Double</Type>
+<Default>28</Default>
+</Parameter>
+
 <Parameter name="PalletprijsNederland1Pallet">
 <Type>%Double</Type>
 <Default>40.16</Default>
@@ -97,11 +112,16 @@
 <FormalSpec>KlantId:DOM.common.PartijID,NacalculatieDto:APPS.TRANSP.dto.Nacalculatie,Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (KlantId = "K||2671") {
-		Set NacalculatieDto.ColliPrijs = 0
+	If (..IsHaefeleNederland(KlantId)) {
+		Set NacalculatieDto.ColliPrijs = ..#ColliPrijsHaefeleNederland
 		Set NacalculatieDto.Palletprijs = ..BepaalPalletPrijsVoorHaefele(Levering)
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
 		Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal/2
+	} ElseIf (..IsDuPont(KlantId)) {
+		Set NacalculatieDto.ColliPrijs = ..#ColliPrijsDuPont
+		Set NacalculatieDto.Palletprijs = ..#PalletprijsDuPont
+		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
+		Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal
 	}
 ]]></Implementation>
 </Method>
@@ -189,6 +209,7 @@
 <Implementation><![CDATA[
 	#dim BevatTransporteurIteratorTransporteur As %Boolean = $$$False
 	
+	Do TransporteurIterator.Reset()
 	While ((TransporteurIterator.HasNext()) && ($$$Not(BevatTransporteurIteratorTransporteur))) {
 		If (TransporteurIterator.Next() = Transporteur) {
 			Set BevatTransporteurIteratorTransporteur = $$$True
@@ -198,6 +219,22 @@
 	Quit BevatTransporteurIteratorTransporteur
 ]]></Implementation>
 </Method>
+
+<Method name="IsHaefeleNederland">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = "K||2671")
+]]></Implementation>
+</Method>
+
+<Method name="IsDuPont">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = "K||1736")
+]]></Implementation>
+</Method>
 </Class>