Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r63767 -r74988
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 63767)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 74988)
@@ -7,10 +7,11 @@
 	do ##class(APPS.common.RuntimeInitialiser).Initialise("CARETAKER_"_$J)
 	Quit
 
-OrderStatistiek ; Dagelijkse creatie van de orderstatistiek ivm orderintake, levering en portefeuille 
+OrderStatistiek ; DEPRECATED !!! Dagelijkse creatie van de orderstatistiek ivm orderintake, levering en portefeuille  --> Deze data komt nu uit AX. 
 	try { 
  		Do InitRuntimeContext
-		do ##class(APPS.BD.OrderStat.impl.Extract2Statistiek).Rebuild(+$H,+$H)
+		Do ##class(TECH.Exceptions.NotSupportedException).Throw("OrderStatistiek^vhCARETAKER","Herbouw OrderStatistiek Data")
+		//do ##class(APPS.BD.OrderStat.impl.Extract2Statistiek).Rebuild(+$H,+$H)
 	}
 	catch(Exceptie) {
 		do OnError		
@@ -437,17 +438,6 @@
 	}
 	quit
 	
-KlantKostBerekening	; Kost berekening van de vorige maand voor iedere klant
-	try { 
- 		Do InitRuntimeContext
-		new implKlantKostBerekening set implKlantKostBerekening = ##class(APPS.common.KlantKost.impl.KlantKostService).%New()
-		do implKlantKostBerekening.BerekenKlantKostenVorigeMaand()
-		}
-	catch(Exceptie) {
-		do OnError		
-	}
-	quit
-	
 ConsistentieControle ; ConsistencyCheck voor integriteit van data te controleren
 	try { 
  		Do InitRuntimeContext
@@ -456,18 +446,6 @@
 	catch(Exceptie) {
 		do OnError		
 	}
-	quit	
-	
-ProTimeSync	; Synchronisatie van ProTime gegevens naar cache	
-	try { 
- 		Do InitRuntimeContext
-		new oRef 
-		set oRef = ##class(APPS.HR.ProTime.Facade).%New()
-		do oRef.SynchroniseerNaarKlant()
-	}
-	catch(Exceptie) {
-		do OnError		
-	}
 	quit
 	
 StockNiveauDocuProducten	; Opmaken van een rapport met de stockniveaus van documentatieproducten
@@ -513,7 +491,6 @@
 	}
 	Quit
 	
-	
 ProductAfbeeldingControle ; Verstuurd bestand met producten waar afbeeldingen ontbreken
 	try { 
  		Do InitRuntimeContext
@@ -660,8 +637,9 @@
 	
 HALUXLEDDisplay ; Batch info voor de HALUX productielijnen 
 	try { 
- 		Do InitRuntimeContext
-		Do ##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).DisplayAlleLedDisplays()
+ 		//uitgeschakeld omdat displays niet meer bestaan
+ 		//Do InitRuntimeContext
+		//Do ##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).DisplayAlleLedDisplays()
 	}
 	Catch (Exceptie)
 	{
@@ -692,6 +670,16 @@
 	}
 	Quit
 
+StartCacheBackupCopy ; Cach� backup copy naar externe drive
+	try { 
+ 		Do InitRuntimeContext
+		do $zf(-2,"c:\backup_copy_external.bat")
+	}
+	Catch (Exceptie) {
+		Do OnError
+	}
+	Quit
+	
 StartCache05 ; Cach�5 starten na backup voor een 2de maal
 	try { 
  		Do InitRuntimeContext
@@ -861,20 +849,6 @@
 		Do OnError
 	}
 	Quit
-
-StartOptiboxResponseCollector ; File scan voor verwerkte optiboxbig output bestanden
-	try {
- 		new BackgroundJobAPI
- 		set BackgroundJobAPI = ##class(TECH.Context).Instance().GeefBackgroundJobAPI()
- 		if 'BackgroundJobAPI.IsBackgroundJobActief(##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseCollector).%ClassName(1)) {
-	 		do BackgroundJobAPI.StartBackgroundJob(##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseCollector).%ClassName(1))
- 		}
-	}
-	Catch (Exceptie)
-	{
-		Do OnError
-	}
-	Quit
 	
 BevestigEDIOrdersBruynzeel ; Bevestig EDI-orders voor Bruynzeel
 	try {
@@ -958,17 +932,6 @@
 	}
 	Quit
 	
-TAORboxStatistiekMail ; Mail ivm het aantal verkochte TA'ORboxen
-	Try {
-		Do InitRuntimeContext
-		Do ##class(APPS.Stat.TAXAttentie.impl.TAXAttentieService).%New().InformeerOverVerkochteTAORBoxen()
-	}
-	Catch (Exceptie)
-	{
-		Do OnError
-	}
-	Quit
-	
 TAORboxWinstoreVoorraad ; Aanpassen van de voorraad bepaald door Winstore platenmagazijn
 	Try {
 		Do ##class(APPS.StockBeheer.impl.TAORPlatenMagazijn).%New().AanpassenVoorraadVanAllePlaten()	
@@ -1003,7 +966,8 @@
 	Try {
  		Do InitRuntimeContext
 		;Do ##class(AX.Uitgaand.EC.Service).%New().ExportVeranderdeVoorraad()
-		Do ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportVeranderde()
+		;Do ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportVeranderde()
+		Set x=##class(AX.Uitgaand.EC.Productie.impl.GenerateLevertermijn).%New()
 		}
 	Catch (Exceptie)
 	{
@@ -1120,39 +1084,9 @@
 	}
 	quit
 	
-DoeNacalculatieHaefeleNederland ; Lijst met te betalen transportkosten voor H�feleNL genereren
+OphalenKenmerkenVoorAX ; Converteer van de kenmerken voor Qlik en Bereken Resource pitching
 	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())
-	}
-	catch(Exceptie) {
-		do OnError		
-	}
-	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(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
-		}
-	catch(Exceptie) {
-		do OnError		
-	}
-	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 ; Ophalen van de kenmerken en opslaan in een flattabel (zoals in AX)
-	try { 
- 		Do InitRuntimeContext
 		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()
@@ -1193,6 +1127,7 @@
 	quit
 
 VRD18hLijst ; stuur mail bericht met xml van verwachte leveringen na 18h
+	Quit ;Bericht niet meer nuttig voor VRD (JWI, per mail gevraagd aan Liesbeth van VRD.)
 	Try {
 		Do InitRuntimeContext
 		Do ##class(APPS.TRANSP.VRD.TransportInschatting).%New().VerzendVRDLijst()
@@ -1276,7 +1211,144 @@
 		Do OnError
 	}
 	Quit
+	
+CalculateGlobalSize ; Bereken en bewaar grootte van geheugen per global
+	Try {
+		Do InitRuntimeContext
+		Do ##class(Tools.GlobalSizeMonitor.Analyser).BerekenEnBewaarHuidigeGroottes()
+	} Catch {
+		Do OnError
+	}
+	Quit
+	
+ShaduwKostprijzenVanNaarAX ;Ophalen van de kostprijs uit AX en bereken schaduwprijs voor sets en maatwerk
+	Try {
+		Do InitRuntimeContext
+		Do ##class(AX.Inkomend.PM.Schaduwprijzen.impl.Verwerken).%New().Verwerk()	
+		Do ##class(AXimpl.PM.SchaduwPrijs.CalculateAll).%New().Verwerk()	
+	} Catch {
+		Do OnError
+	}
+	Quit
+	
+SyncAlleDotNetData ;Sync alle data naar .NET die nodig is voor de maatwerkcalculator in .NET
+	Try {
+		Do InitRuntimeContext
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.ProductInfo).%New().SyncProductenGewichtEnPrijs()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostenplaatsWaardeInfo).%New().SyncKostenPlaatsen()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostSpecInfo).%New().SyncKostSpec()
+		;Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.HalffabSpec).%New().SyncHalffabSpec()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.Selectiekenmerken).%New().SyncAlleSelectiekenmerken()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.PPSKenmerken).%New().SyncAllePPSKenmerken()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.BewerkingsInfo).%New().SyncAlleBewerkingsInfo()
 		
+	} Catch {
+		Do OnError
+	}
+	Quit
+	
+VernieuwOBJTIdentNRMappingCache ; caching tabel Identnr naar ADUOBJItemId verversen uit AX
+	Try {
+		Do InitRuntimeContext
+		Do ##class(OBJTimpl.PM.OBJTIdentLookupService).%New().RefreshCache()
+	} Catch {
+		Do OnError
+	}
+	Quit	
+
+VrijgevenOrdersNaarWMS ; Orders die klaargezet zijn in ORDW doorgeven aan OBJT
+	Try {
+		Do InitRuntimeContext
+		Do ProcessAll^EWORDSW(+$H,0)
+	} Catch {
+		Do OnError
+	}
+	Quit
+		
+HerbevoorradingKardex ; OBJT herbevoorrading voor Kardex
+	Try {
+		Do InitRuntimeContext
+		If ($P($H,",",2)>(7*3600))&&($P($H,",",2)<(20*3600))
+		{
+			D ##class(OBJTimpl.Herbevoorrading.ZendHerbevoorrading).%New().VerwerkTekorten()
+		}
+	} Catch {
+		Do OnError
+	}
+	Quit
+
+ManifesteerDachserTransportenVoorOPO ; maken dat EDI vroeger van Transsmart naar Dachser gestuurd wordt. (normaal dag voor pickup. wij/dachser willen 2 werkdagen voor)
+	Try {
+		Do InitRuntimeContext
+		Set Transporteurs = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
+		do ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%New().ManifesteerTransporteur(Transporteurs.Dachser,"30467",$h,##class(TECH.DateTime).BerekenWerkdag($h,2))
+	} Catch {
+		Do OnError
+	}
+	Quit
+	
+TranssmartTransportStatusOphaler ; Ophalen Transsmart Transport statussen
+	Try {
+		Do InitRuntimeContext
+		Do ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService).%New().QueryCarrierHistory()
+
+	} Catch {
+		Do OnError
+	}
+	Quit
+	
+NachtelijkeControleEWMS ; Ophalen voorraad EWMS via SQL
+	try { 
+ 		Do InitRuntimeContext
+		Do ##class(BL.Legacy.EWPAL).NachtelijkeStockSyncEWMS()
+	}
+	catch(Exceptie)
+	{
+		do OnError
+	}
+	Quit
+	
+BatchPitching ; Ophalen gepitchte batches en verzenden naar OBJT
+	try { 
+ 		Do InitRuntimeContext
+		D ##class(APPS.Halux.Planning.ResourcePitchingService).%New().VerwerkBatchPitching()
+	}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+	
+OpkuisDataAfdrukkenVoorraadIdentificatie ; Verwijderen verkeerdelijk nog openstaande toeleveringen voor AfdrukkenVoorraadIdentificatie
+	try { 
+ 		Do InitRuntimeContext
+ 		Do ##class(vhLib.Logger).%New("VoorraadIdentificatie").Debug("Start toeleveringen verwijderden", "Job OpkuisDataAfdrukkenVoorraadIdentificatie werd gestart.")
+		#dim ToeleveringsNr As %Integer
+		
+		SET ToeleveringsNr=$ORDER(^AfdrukkenVoorraadIdentificatieToelevering(""))
+		WHILE (ToeleveringsNr'="") {
+			Do DELOBJ^FLOWTOE3(ToeleveringsNr)
+ 			Kill ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringsNr)
+ 			Do ##class(vhLib.Logger).%New("VoorraadIdentificatie").Debug("Toelevering verwijderd", "Toelevering '"_ ToeleveringsNr _"' werd verwijderd in de context van voorraadidentificatie door de backgroundjob 'OpkuisDataAfdrukkenVoorraadIdentificatie'.")
+		    SET ToeleveringsNr = $ORDER(^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringsNr))
+		}
+		
+	}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+	
+OpkuisDataSalesLineStatusUpdateGeproduceerdLog; Verwijderen van tijdelijke data die bijhoudt of al een bericht 'geproduceerd' naar AX is gestuurd voor een bepaalde orderlijn.
+	try { 
+ 		Do InitRuntimeContext
+ 		Kill ^SalesLineStatusUpdateGeproduceerdLog		
+	}
+	catch(Exceptie) {
+		do OnError		
+	}
+	quit
+
+		
 OnError 
 	set $ztrap="EndErrorTrapping"
 	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()