Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64107 -r65634
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64107)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 65634)
@@ -180,7 +180,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) || ..IsVanRaemdonck(KlantId)) {
+	} ElseIf (..IsHafeleBE(KlantId) || ..IsDuPont(KlantId) || ..IsBiemarBois(KlantId) || ..IsOptima(KlantId) || ..IsVanRaemdonck(KlantId) || ..IsDewaHout(KlantId)) {
 		Set NacalculatieDto.ColliPrijs = ..#ColliPrijsDuPont
 		Set NacalculatieDto.Palletprijs = ..#PalletprijsDuPont
 		Set NacalculatieDto.LijnTotaal = ..BepaalLijnTotaal(NacalculatieDto, Levering)
@@ -329,6 +329,14 @@
 <Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).VanRaemdonck())
 ]]></Implementation>
 </Method>
+
+<Method name="IsDewaHout">
+<FormalSpec>KlantId:DOM.common.PartijID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (KlantId = ##class(DOM.VKP.enu.Klant).DSGroup())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r64388 -r65634
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 64388)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 65634)
@@ -1171,6 +1171,16 @@
 	}
 	quit
 	
+DoeNacalculatieDewahout ; Lijst met te betalen transportkosten voor Dewahout genereren
+	try { 
+ 		Do InitRuntimeContext
+		do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie(##class(DOM.VKP.enu.Klant).DSGroup(), ##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+	}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+	
 OphalenKenmerkenVoorAX ; Converteer van de kenmerken voor Qlik en Bereken Resource pitching
 	try { 
  		Do InitRuntimeContext