Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r57591 -r60843
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 57591)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 60843)
@@ -937,7 +937,7 @@
 		Do OnError
 	}
 	Quit
-	
+		
 SwitchSoapLogFile ; Switch van de logfilename voor soap requests
 	Try {
 		set ^ISCSOAP("LogFile")="F:\LogFiles\ISCSOAP\"_##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),"JJJJMMDD hh")_".log"
@@ -961,7 +961,6 @@
 	
 TAORboxWinstoreVoorraad ; Aanpassen van de voorraad bepaald door Winstore platenmagazijn
 	Try {
-		Do InitRuntimeContext
 		Do ##class(APPS.StockBeheer.impl.TAORPlatenMagazijn).%New().AanpassenVoorraadVanAllePlaten()	
 	}
 	Catch (Exceptie)
@@ -972,7 +971,6 @@
 	
 ExportToPerfion ; Export van alle producten om in gelezen te worden in Perfion
 	Try {
-		Do InitRuntimeContext
 		Do ##class(AX.Uitgaand.EC.Perfion.impl.ExportProducten).%New("\\notes01\Shared\PM\Perfion\Transfer").ExportAssortiment("ALL")
 	}
 	Catch (Exceptie)
@@ -1002,7 +1000,7 @@
 		Do OnError
 	}
 	Quit
-	
+
 ImportProductieStap ; Productiestappen uit SQL databank van Ardis, ZijkantFrees en Afkanter
 	Try {
  		Do InitRuntimeContext
@@ -1115,32 +1113,55 @@
 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())
-		}
+		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())
+	}
 	catch(Exceptie) {
 		do OnError		
 	}
-	quit	
+	quit
 
 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())
+		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())
 		}
 	catch(Exceptie) {
 		do OnError		
 	}
-	quit	
+	quit
+
+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())
+		}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
 	
-OphalenKenmerkenVoorAX ; TIJDELIJK Ophalen van de kenmerken en opslaan in een flattabel (zoals in AX)
+OphalenKenmerkenVoorAX ; Ophalen van de kenmerken en opslaan in een flattabel (zoals in AX)
 	try { 
  		Do InitRuntimeContext
-		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().Verwerk()		}
+		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().Verwerk()
+		D ##class(APPS.Halux.Planning.ResourcePitchingService).%New().VerwerkAll()
+		//Do ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).%New().Verwerk()
+	}
 	catch(Exceptie) {
 		do OnError		
 	}
 	quit
-
+	
+OphalenTransportVoorAX ; Ophalen van de transport details en opslaan in een flattabel voor AX en Qlik
+	try { 
+ 		Do InitRuntimeContext
+		Do ##class(AXimpl.Admin.TRANSPORT.Levbon.Processor).%New().Process()
+	}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+	
 CheckSelectieKenmerken ; Er wordt geprobeerd om de StandaardLaden uit de vhTest.Utils-package te herberekenen
 	try { 
  		Do InitRuntimeContext
@@ -1161,7 +1182,34 @@
 	}
 	quit
 
+VRD18hLijst ; stuur mail bericht met xml van verwachte leveringen na 18h
+	Try {
+		Do InitRuntimeContext
+		Do ##class(APPS.TRANSP.VRD.TransportInschatting).%New().VerzendVRDLijst()
+	} Catch {
+		Do OnError
+	}
+	Quit
 
+NietLeverenOorzaak ;Registratie waarom goederen niet vertrokken zijn 
+	Try {
+		
+		Do InitRuntimeContext
+		d ##class(AXimpl.Admin.MAG.NietLeverenOorzaak.Processor).%New().Process()
+	}
+	Catch (Exceptie)
+	{
+		Do OnError
+	}
+	Quit
+	
+LeverbonnenStuurAxBerichtPakbonMagGeboektWorden ; Loop over alle leverbonnen en indien bericht PakbonMagGeboektWorden nog niet verzonden dan dit gaan versturen
+	Try {
+		Do InitRuntimeContext
+		Do ##class(AXimpl.Dynamics.InventoryOut.BatchJobPakbonMagGeboektWorden).%New().VerwerkLeverbonnenStuurAxBerichtPakbonMagGeboektWorden()
+	} Catch {
+		Do OnError
+	}
 OnError 
 	set $ztrap="EndErrorTrapping"
 	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()
@@ -1170,3 +1218,4 @@
 	
 EndErrorTrapping
 	quit
+