Index: vhDeploy/D20210322xNacalculatieVanRaemdonck.cls.xml
===================================================================
diff -u
--- vhDeploy/D20210322xNacalculatieVanRaemdonck.cls.xml	(revision 0)
+++ vhDeploy/D20210322xNacalculatieVanRaemdonck.cls.xml	(revision 64068)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20210322xNacalculatieVanRaemdonck">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Nacalculate voor VanRaemdonck instellen</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim SleutelLaatstVerwerkteRit As %String = "APPS.TRANSP.TransportService.Nacalculatie1523.LaatstVerwerkteRit"
+	If $$$Not(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(SleutelLaatstVerwerkteRit)) {
+		Do ##class(TECH.Config.ConfigMgr).Instance().SetString(SleutelLaatstVerwerkteRit,27000)
+	}
+	
+	#dim SleutelMailOntvangers As %String = "APPS.TRANSP.TransportService.Nacalculatie1523.MailOntvangers"
+	If $$$Not(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(SleutelMailOntvangers)) {
+		Do ##class(TECH.Config.ConfigMgr).Instance().SetString(SleutelMailOntvangers,$lb("bidisupport@vanhoecke.be"))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r63953 -r64068
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 63953)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 64068)
@@ -1123,7 +1123,7 @@
 DoeNacalculatieHaefeleNederland ; Lijst met te betalen transportkosten voor H�feleNL genereren
 	try { 
  		Do InitRuntimeContext
-		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie("K||2671", ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie(##class(DOM.VKP.enu.Klant).HaefeleNederland(), ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	}
 	catch(Exceptie) {
 		do OnError		
@@ -1133,7 +1133,7 @@
 DoeNacalculatieDuPont ; Lijst met te betalen transportkosten voor Du Pont genereren
 	try { 
  		Do InitRuntimeContext
-		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie("K||1736", ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie(##class(DOM.VKP.enu.Klant).DuPont(), ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 		}
 	catch(Exceptie) {
 		do OnError		
@@ -1143,17 +1143,27 @@
 DoeNacalculatieBiemarBois ; Lijst met te betalen transportkosten voor Biemar-Bois genereren
 	try { 
  		Do InitRuntimeContext
-		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie("K||4943", ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie(##class(DOM.VKP.enu.Klant).BiemarBois(), ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 		}
 	catch(Exceptie) {
 		do OnError		
 	}
 	quit
 	
+DoeNacalculatieVanRaemdonck ; Lijst met te betalen transportkosten voor Van Raemdonck genereren
+	try { 
+ 		Do InitRuntimeContext
+		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie(##class(DOM.VKP.enu.Klant).VanRaemdonck(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+	}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+	
 DoeNacalculatieHaefeleBelgie ; Lijst met te betalen transportkosten voor H�feleBE genereren
 	try { 
  		Do InitRuntimeContext
-		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie("K||4875", ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie(##class(DOM.VKP.enu.Klant).HaefeleBelgie(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
 	}
 	catch(Exceptie) {
 		do OnError		
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64057 -r64068
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64057)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64068)
@@ -170,7 +170,7 @@
 		Set NacalculatieDto.Palletprijs = ..BepaalPalletPrijsVoorHaefele(Levering)
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
 		Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal/2
-	} ElseIf (..IsHafeleBE(KlantId) || ..IsDuPont(KlantId) || ..IsBiemarBois(KlantId) || ..IsOptima(KlantId)) {
+	} ElseIf (..IsHafeleBE(KlantId) || ..IsDuPont(KlantId) || ..IsBiemarBois(KlantId) || ..IsOptima(KlantId) || ..IsVanRaemdonck(KlantId)) {
 		Set NacalculatieDto.ColliPrijs = ..#ColliPrijsDuPont
 		Set NacalculatieDto.Palletprijs = ..#PalletprijsDuPont
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
@@ -312,6 +312,14 @@
 <Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).OptimaPack())
 ]]></Implementation>
 </Method>
+
+<Method name="IsVanRaemdonck">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).VanRaemdonck())
+]]></Implementation>
+</Method>
 </Class>