#include vhLib.Macro

vhCARETAKER

InitRuntimeContext
	do ##class(vhLib.OldSchool).InitVars()
	do ##class(APPS.common.RuntimeInitialiser).Initialise("CARETAKER_"_$J)
	Quit

OrderStatistiek ; Dagelijkse creatie van de orderstatistiek ivm orderintake, levering en portefeuille 
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.BD.OrderStat.impl.Extract2Statistiek).Rebuild(+$H,+$H)
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
SynchroniseerVertalingen ; Dagelijkse synchronisatie van alle vertaalgroepen die aanwezig zijn in Perfion
	try { 
 		Do InitRuntimeContext
		Do ##class(Res.Perfion.Synchroniser.Vertalingen).%New().VerwerkVertalingsGroepen()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
WisShadowLog ; Wissen van de shadow logging
	try { 
 		Do InitRuntimeContext 
		do ##class(Tools.DatabaseControle).WisShadowLog()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit


ControleerShadowLog ; Controle van de shadow logging
	try { 
 		Do InitRuntimeContext
		do ##class(Tools.DatabaseControle).ControleerShadowLog()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
BouwShadowControleLog ; Opbouw Shadow logging
	try { 
 		Do InitRuntimeContext
		do ##class(Tools.DatabaseControle).CalculateGlobalHashes()
	}
	catch(Exceptie) {
		
		do OnError
	}
	quit	

ControleBoekhouding ; Controle Boekhouding
	try { 
 		Do InitRuntimeContext
		do ^cT99("K","")
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleTransacties ; Controle Transacties
	try { 
 		Do InitRuntimeContext
		do D1010^cANEM0
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleEWREC		; Controle of EWREC nog draait
	try { 
 		Do InitRuntimeContext
		do CTK^EWRECA
	}
	catch(Exceptie) {
		do OnError		
	}

	quit
	
VerstuurNietVerzondenSMSen ; Verstuur niet verzonden SMSen
	try { 
 		Do InitRuntimeContext
		do ##class(WS.TAPI.SMSMessage).SendAll()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
		
VerkoopfactuurVoldaan ; Bepaald datum wanneer verkoopfactuur is voldaan
	try { 
 		Do InitRuntimeContext
		do ##class(DOM.BKH.impl.VerkoopFactuurVoldaanGenerator).%New().Genereer()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
AankoopfactuurVoldaan ; Bepaald datum wanneer aankoopfactuur is voldaan
	try { 
 		Do InitRuntimeContext
		do ##class(DOM.BKH.impl.AankoopFactuurVoldaanGenerator).%New().Genereer()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit	

ControleInkomendeFaxen ; Controle inkomende faxen
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Derde.Fax.InkomendeFaxen).ReadFaxLog()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ConversieGeolocatie   ; Conversie Geolocatie naar Agenda
	try { 
 		Do InitRuntimeContext
		Quit:$P($H,",",2)<(3600*5)
		Quit:$P($H,",",2)>(3600*22)
		Do ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).%New().FetchAll()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleGeoMobile 	; Controle Geomobile
	try { 
 		Do InitRuntimeContext
		;do ##class(BL.Derde.Agenda.GeoMobile).IsServiceAlive()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
OfferteMailOverzicht  ; Mail naar vertegenw. met offerte info
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Flow.Offerte.MailOverzicht).StartJob()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
AutoCycleCount 	  ; CycleCount automatisch instellen na x bewegingen
	try { 
 		Do InitRuntimeContext
		do ##class(BL.MB.Auto.CycleCount).ZetAutoCC()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
AlgemeneOpkuis  ; Algemene opkuis 	
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Sys.Clean).Run()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ScanEDIUnishopOrder  	; Scannen voor nieuwe UnishopOrder EDI berichten 
	try { 
 		Do InitRuntimeContext
		Do ##class(EXT.Unishop.PurchaseOrder001.BestandScanner).Scan(##class(EXT.Unishop.PurchaseOrder001.BestandVerwerker).%New())
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ScanEDIOfferte 		; Scannen voor nieuwe offerte EDI berichten
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Flow.Offerte.ScanEDIMail).Scan()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ScanEDIKorting 		; Scannen voor nieuwe korting EDI berichten
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.VKP.Korting.impl.EDIVerwerker).%New().Verwerk()	
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleerKortingUpdates 		; Controleer korting updates die via EDI binnen komen.
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.VKP.Klantspecifiek.Haefele.KortingNietGeupdateMelder).%New().ControleerEnMeld()	
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleFaktuurDatums	; Controle faktuur datums voor de huidige dag
	try { 
 		Do InitRuntimeContext
		do ##class(CHUI.Flow.Factuur).CheckDatum()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleFaktuurDatumBoekJaar ; Controle faktuur datums voor het boekjaar
	try { 
 		Do InitRuntimeContext
		do ##class(CHUI.Flow.Factuur).CheckBoekJaar()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
GeneratieStockWaarden	 ; Generatie stockwaarden ( DataWarehouse)
	try { 
 		Do InitRuntimeContext
		do ##class(DW.StockWaarde).FetchAll(1)
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleTransporten 	; Controle transporten	
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Flow.Cons.TransportFlow).CheckClosed($$CALCDATE^vhLib.DataTypes(,"A",-3))
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
SoftwareLicentieControle	; Controle software licenties
	try { 
 		Do InitRuntimeContext
		do ##class(BL.BKH.Renewals.Build).WaarschuwingTeVervallenPerEmail()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControleSpecialeBlumFakt	; Controle speciale blum fakturen
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Blum.Facturatie).MailIfSpecialDoc()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ImportBlumFakturen	; Import Blum Fakturen
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Blum.Facturatie).AutoUpdate()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit

ImportBlumXMLFacturen	; Import Blum Fakturen
	try { 
 		Do InitRuntimeContext
 		do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie("AankoopControle")
 		do ##class(APPS.AKP.AankoopControle.BLUM.impl.FactuurBerichtOntvanger).%New().Ontvang()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
AanmakenTAPITelefoonOverzicht  ; Creatie TAPI telefoon overzicht
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Derde.TAPI.Logging).Scan()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit	
	
DynalogControle	; 	Controle of dynalog producten beschikbaar zijn
	try { 
 		Do InitRuntimeContext
		do ##class(DP.Controle).RunTest()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
ControlePickposten ; controle pickposten : afgesloten maar nog actief op pickpost	
	try { 
 		Do InitRuntimeContext
		do ##class(EWMS.Pick.PickPost).ControleOpBonMaarNogActief()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
PurgeUglyPickingReservations ; Purge UGLY picking reservaties
	try { 
 		Do InitRuntimeContext
		do ##class(EWMS.Inventory).FPurgeReservations()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
StatBedrijfsInfo	; Statistieken voor bedrijfsrondleiding
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Stat.Bedrijfsrondleiding).Run()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit	
	
P2LHeartbeat	  ; Heartbeat test voor Pick 2 Light
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.P2L.Core.Scheduler).Invoke()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
FreesOpkuis		; Opkuisen bestanden Frees
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.PM.Maatwerk.TBX.Frees.FreesMain).KuisFreesBestandenOp()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
AluFreesOpkuis		; Opkuisen bestanden ALU Frees
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.Halux.PPS.ALUFreesService).%New().KuisOpBestanden()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit	
	
AdminSessieParametersOpkuis		; Opkuisen AdminSessieParameters
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.VKP.Maatwerk.AdminSessieParametersOpkuiser).%New().KuisOp()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit	

OLConsistentieCheck	; Orgalux Consistentie Checker - Kenmerk Controle
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.PM.OL.ConsistentieChecker).CheckKenmerkenData()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
OpkuisLogging		; Verwijderen oude items vanuit logging
	try { 
 		Do InitRuntimeContext
		Do ##class(vhLib.LogOpkuiser).%New().KuisOpOudeLogs()
		Do ##class(vhLib.LoggingGetalIndex).VerwijderVoorOnbestaandeLogEntryIds()
		Do ##class(AXdata.AifMessage.MessageRepository).%New().VerwijderOudeMessageData()
		Do ##class(DOM.common.impl.LogItemRepository).%New().VerwijderOudeLogItems()
		Do ##class(TECH.Disk.Cleaner).%New().CleanupLogFiles()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
MaakKlantBestand	; Maak het xml-bestand met alle klantid's
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.CRM.KlantService).MaakKlantBestand()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
MaakLevBestand		; Maak het xml-bestand met alle leverancierid's
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand()
	}
	catch(Exceptie) {
		do OnError		
	}
	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
		do ##class(vhConsistency.ConsistencyCheck).VoerUit()
	}
	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
	try { 
 		Do InitRuntimeContext
		new oRef 	
		set oRef = ##class(APPS.StockBeheer.StockRapportService).%New()
		do oRef.MailDocuStockRapport()
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
UnitTests
	try { 
 		Job ClassMethod^vhLib.Thread("svn.Helper","GetLatestJob",3,1,"UnitTesten",1)
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
WachtendeEvents ; Verwerkt de wachtende events die veroorzaakt zijn op cache05 via ECP
	try { 
 		Do InitRuntimeContext
		Do ##class(TECH.PubSub.WachtendeEventVerwerker).%New().VerwerkAlle()
	}
	catch(Exceptie)
	{
		do OnError
	}
	Quit
	
ControleEWMSLog ; Controleert de EWMS log naar DDE_ERROR
	try { 
 		Do InitRuntimeContext
		Do ##class(Tools.EWMSDDEControle).CheckAndMail()
	}
	catch(Exceptie)
	{
		do OnError
	}
	Quit
	
	
ProductAfbeeldingControle ; Verstuurd bestand met producten waar afbeeldingen ontbreken
	try { 
 		Do InitRuntimeContext
		do ##class(BL.Prod.ImageLinkMissing).Mail()
	}
	catch(Exceptie) {
		do OnError
	}	
	Quit	
	
TryStartMonitoringIndienNodig
	try { 
 		Do InitRuntimeContext
		Do ##class(TECH.CodeGebruik.RoutineGebruikMonitor).TryStartMonitoringIndienNodig()
	}
	catch(Exceptie)
	{
		do OnError
	}
	Quit
	
TryStopMonitoringEnBewaarResultaten
	try { 
 		Do InitRuntimeContext
		Do ##class(TECH.CodeGebruik.RoutineGebruikMonitor).TryStopMonitoringEnBewaarResultaten()
	}
	catch(Exceptie)
	{
		do OnError
	}
	Quit

WisAlleCycleCountsBehalveManuele ; Wis alle cyclecounts behalve de manueel ingestelde.
	try { 
 		Do InitRuntimeContext
		Do ##class(BL.MB.Auto.CycleCount).%New().WisAutoCCFlag(1,8)
	}Catch(Exceptie){
		Do OnError	
	}
	Quit
	
ControleWelkomActief ; Controle of de welkom schermen actief zijn
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.CRM.VHCC.WelkomActief).%New().Controle()
	}Catch(Exceptie){
		Do OnError	
	}
	Quit
	
ControleStockMoeder ; Controle van de voorraad van de moeder versus kinderen
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.StockBeheer.impl.StockMoederVersusKinderen).%New().MailVerschillen()
	}Catch(Exceptie){
		Do OnError	
	}
	Quit
	
SVNToonOpenstaandeWijzigingen ; Mail openstaande SVN wijzigingen
	try { 
 		Do InitRuntimeContext
		do ##class(svn.Helper).%New().MailChanges()
	}Catch(Exceptie){
		Do OnError	
	}
	Quit
	
VerwijderVhintraSessies ; Verwijdert vhintra sessies ouder dan 24 uur
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.algemeen.VhintraShell.SessionService).WisOudeSessieData()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
ImporteerGLSShipmentBestanden ; Controleer op nieuwe GSL shipment bestanden en imporeert deze.
	try { 
 		Do InitRuntimeContext
 		new Verwerker,Feedback
 		set Verwerker = ##class(APPS.TRANSP.GLS.Shipment.Verwerker).%New()
		#dim Feedback As %String = Verwerker.ControleerOpNieuweShipmentBestanden()
		
		If Feedback '= "" {
			Do Verwerker.MailFeedback(Feedback)
			Do ##class(vhLib.Logger).%New("APPS.TRANSP").Info("GLSService",Feedback)
		}
	}
	Catch (Exceptie) {
		Do OnError
	}
	Quit
	
	
	
MonitoringImageSynchronisatieWWW ; Controleer image synchronisatie naar WWW.
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.Monitoring.ImageSynchronisatieWWW).%New().Run()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit

ControleCacheBackup ; Controle Cache Backup
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.Monitoring.CacheBackup).%New().Run()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit	

VerstuurAanbrengersCommissieUitnodiging ; Verstuur aanbrengerscommissie uitnodiging
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.VKP.Commissie.impl.AanbrengerInformeerder).%New().InformeerAanbrengersOverCommissies()
		Do ##class(APPS.VKP.Commissie.impl.CommissieMailNaarVertegenwoordigers).%New().Verstuur()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
PingDevices ; Ping van devices en resultaat toevoegen aan log : TECH.PING
	try { 
 		Do InitRuntimeContext
		;do ##class(TECH.PingDeviceAndLog).RepeatPing($LB("192.168.1.142","192.168.1.43")) ; handscanners Halux
		do ##class(TECH.PingDeviceAndLog).PingDevice("192.168.221.254") ; Zaltbommel
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
HALUXLEDDisplay ; Batch info voor de HALUX productielijnen 
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).DisplayAlleLedDisplays()
	}
	Catch (Exceptie)
	{
		try {
			new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()
			do ##class(vhLib.Logger).%New("SYSTEM").Error("Caretaker",Exceptie.ToString())
		
			Do SendMiniMail^vhLib($$$SystemMail("HALUX LED Display"),$lb("ICT_SysAdmins@vanhoecke.be", "ICT_SysOp@vanhoecke.be"),"HALUX LED Display",Exceptie.ToString(),,,,,)	
		} catch {
			Do OnError
		}	
	}
	Quit
	
StartCacheBackup ; Caché backup ( !! niet manueel starten Caché wordt gestopt !! )
	try { 
 		Do InitRuntimeContext
		#dim CurrentTimeStamp As %TimeStamp = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
		set ^svn.Deploy("StartCacheBackup")= CurrentTimeStamp
		set ^svn.Deploy("StartCacheBackup","G0")= CurrentTimeStamp
		set ^svn.Deploy("StartCacheBackup","G1")= CurrentTimeStamp
		set ^svn.Deploy("StartCacheBackup","G2")= CurrentTimeStamp
		set ^svn.Deploy("StartCacheBackup","H0")= CurrentTimeStamp
		do $zf(-2,"c:\backup_cache.bat")
	}
	Catch (Exceptie) {
		Do OnError
	}
	Quit

StartCache05 ; Caché5 starten na backup voor een 2de maal
	try { 
 		Do InitRuntimeContext
		set ^svn.Deploy("StartCache05NaBackup")=##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
		do $zf(-2,"c:\backup_start_cache05.bat")
	}
	Catch (Exceptie) {
		Do OnError
	}
	Quit

StartCacheRestore ; Caché Restore ( !! server wordt gestopt en data wordt teruggezet vanaf backup )
	try { 
 		Do InitRuntimeContext
		do $zf(-2,"c:\restore_cache.bat")
	}
	Catch (Exceptie) {
		Do OnError
	}
	Quit

VerstuurSFSFacturen   ; Verstuur SFS facturen (alle niet verzonden fact.) 
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.OV.impl.FactuurSFS).VerstuurAlleNietVerzondenFacturen()
	}	
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
ResetLicenseAlert	; Reset % voor License-Alert 
	New ServerName
	try { 
 		Do InitRuntimeContext
		Set ServerName=$ZCVT($ZU(110),"U")
		If ($D(^cLOG(ServerName,"LICENSE","ALERT"))) && ($G(^cLOG(ServerName,"LICENSE","ALERT_ResetAtServerStartup"))>0) {
			Set ^cLOG(ServerName,"LICENSE","ALERT") = ^cLOG(ServerName,"LICENSE","ALERT_ResetAtServerStartup")
		}
	}	
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
ExporteerFlexVertalingen ; Exporteer properties files voor flex vertalingen
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.common.impl.VertalingFlex.ExportGroep).ExporteerAlleGewijzigdeGroepen()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
VerwijderTerminalNavigatieTaken ; Verwijder terminal navigatie taken
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak).%KillExtent()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
ProductieAfmeldenServiceStuurDoor ; Productie afmelden service : stuur bevestigde groepen door na x-aantal minuten
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.Halux.Afmelden.ProductieAfmeldenService).%New().StuurDoorBevestigdeProductGroepen()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
vhConsistencyZbCheck ; Consistency uitvoeren van zbcheck
	try { 
 		Do InitRuntimeContext
		Do ##class(vhConsistency.ZBCheck).%New().CheckEnMail()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
		
OLCleanUpCorrupteVertaling ; ORGALUX Clean Up Corrupte VertalingLink data
	try {
 		Do InitRuntimeContext
		Do ##class(zTryout.WV.PM.OL.OpkuisVertalingen).%New().CleanUpCorrupteVertalingLink()
	} catch (Exceptie) {
		do OnError
	}
	quit
	
OrgaluxGenereerSorteerSleutels ; ORGALUX genereer sorteer sleutels
	try {
 		Do InitRuntimeContext
 		Do ##class(vhLib.OldSchool).InitVars()
 		Do ##class(APPS.PM.OL.ProductSortKeyBuilder).Generate()
 		Do ##class(APPS.PM.OL.FotoSortKeyBuilder).Generate()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit

HaluxAfmeldenMonitoring ; Halux afmelden monitoring
	try {
 		Do InitRuntimeContext
 		Do ##class(APPS.Halux.Afmelden.AfmeldenMonitor).%New().Controleer()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit

VulOrgaluxWebserverCacheOp ; ORGALUX webserver cache opvullen
	try {
 		Do ##class(APPS.Web.OLParticulier.impl.WebserverCacheOpvuller).%New().VulWebserverCacheOp()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
WisSessieDataZonderSessie ; Kuis SessieData op dat geen sessie meer heeft
	try {
 		Do ##class(APPS.algemeen.VhintraShell.SessionService).%New().WisOverbodigeSessieData()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit

OrgaluxBerekenPrijzenVoorWebsite ; Bereken prijzen van orgalux producten voor website.
	try {
		Do InitRuntimeContext
 		Kill ^APPS.PM.OL.PrijsCache
 		Do ##class(APPS.PM.OL.PrijsBerekenaarVoorCache).%New().BerekenPrijzen()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
StartEventVerwerkerMonitor ; Start wachtende events verwerking monitor
	try {
 		new BackgroundJobAPI
 		set BackgroundJobAPI = ##class(TECH.Context).Instance().GeefBackgroundJobAPI()
 		if 'BackgroundJobAPI.IsBackgroundJobActief(##class(TECH.PubSub.WachtendeEventVerwerkerMonitor).%ClassName(1)) {
	 		do BackgroundJobAPI.StartBackgroundJob(##class(TECH.PubSub.WachtendeEventVerwerkerMonitor).%ClassName(1))
 		}
	}
	Catch (Exceptie)
	{
		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 {
		#dim Afhandelaar As APPS.OV.OrderBevestiging.WachtrijAfhandelaar = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestigingWachtrijAfhandelaar.Bruynzeel).%New()
		do Afhandelaar.VerstuurBevestigingen()
	} catch (Exceptie) {
		do OnError
	}
	quit
	
BevestigEDIOrdersDKG ; Bevestig EDI-orders voor DKG. Als deze crasht door een onbeschikbaarheid (bvb lock), dan mag je die gerust opnieuw lanceren.
	try {
		#dim Afhandelaar As APPS.OV.OrderBevestiging.WachtrijAfhandelaar = ##class(APPS.OV.OrderBevestiging.impl.WachtrijAfhandelaar.DKG).%New()
		do Afhandelaar.VerstuurBevestigingen()
	} catch (Exceptie) {
		do OnError
	}
	quit
	
VerwerkEDIOrdersBruynzeel ; ATK verwerking EDI (Electronic Data Interchange) voor klant 11708 Bruynzeel
	Try {

		// Code deleted! 
		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerwerkEDIOrdersBruynzeel is DEPRECATED"))

	} Catch (Exceptie) {
		Do OnError	
	}
	
 	Quit
 	
VerwerkEDIOrdersDKGDeKeukenFabriek ; ATK verwerking EDI (Electronic Data Interchange) voor klant 23112 DKGDeKeukenFabriek
	Try {
		Do ##class(BL.Legacy.ATKEDI.DKGDeKeukenfabriek).Factuur()
	} Catch (Exceptie) {
		Do OnError	
	}
	
 	Quit	

NotebornCommissieMaker ; Tijdelijke manier om commissie noteborn te weten.
	Try {
		Set NotebornVerkoop = ##class(APPS.VKP.Commissie.impl.NotebornCommissieMaker).%New()
		Do NotebornVerkoop.BepaalCommissiePerMaand()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit

TraagsteWebserviceCallsRapporteren ; De traagste webservice calls rapporteren
	Try {
		Do ##class(vhLib.WebServiceLogger.Rapporteur).%New().GenereerRapport()
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
BlumProAct ; Blum EDI - inventarisrapport en verkoopvoorspelling
	Try {
		
		Do InitRuntimeContext
		do ##class(APPS.StockBeheer.EDI.Blum.impl.PROACT).%New().VoerUit()
	}
	Catch (Exceptie)
	{
		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"
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	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()	
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
ExportToPerfion ; Export van alle producten om in gelezen te worden in Perfion
	Try {
		Do ##class(AX.Uitgaand.EC.Perfion.impl.ExportProducten).%New("\\notes01\Shared\PM\Perfion\Transfer").ExportAssortiment("ALL")
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
ExportToEC ; Import van klanten en assortiment en daarna export van Historiek en klantproductreferenties (duurt +/-30 min)
	Try {
 		Do InitRuntimeContext
		Do ##class(AX.Uitgaand.EC.ServiceAX).%New().VerwerkAlles()		
	}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
ExportProductieDag ; Export van de productie DAG+X voor TBX, LBX en TAX
	Try {
 		Do InitRuntimeContext
		;Do ##class(AX.Uitgaand.EC.Service).%New().ExportVeranderdeVoorraad()
		Do ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijnJSON).%New().ExportVeranderde()
		}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit

ImportProductieStap ; Productiestappen uit SQL databank van Ardis, ZijkantFrees en Afkanter
	Try {
 		Do InitRuntimeContext
 		Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisOptimalisatie).%New().VerwerkRecente()
		Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieZijkantFrees).%New().VerwerkRecente()
		Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter).%New().VerwerkRecente()
		}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit	

ExportIntrastatKlant ; e-mailen van de intrastat gevens van een klant
	Try {
 		Do InitRuntimeContext
 		Do ##class(APPS.VKP.Intrastat.impl.ZendNaarKlant).%New().ZendAll()
		}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
	
InventoryOutSyncAll ; InventoryOutSyncAll
	Try {
 		Do ##class(AXimpl.Dynamics.InventoryOut.SyncAll).%New(,,50).GenerateAll()
		}
	Catch (Exceptie)
	{
		Do OnError
	}
	Quit
	
InventSyncAllMaatwerk ; Voor maatwerk wordt de voorraad gesynct van Cache naar AX
	try { 
 		Do InitRuntimeContext
		Do ##class(AXimpl.Dynamics.InventoryOut.SyncAll).%New().GenerateMaatwerk()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
InventSyncVerzendPool ; pool van InventSyncObjecten versturen naar Ax
	try { 
 		Do InitRuntimeContext
		Do ##class(AXimpl.Dynamics.InventoryOut.SyncAll).%New(,200).GenerateDelayedInventSyncs()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
StatistiekVanuitAX ; Statistiek ophalen vanuit Ax
	try { 
 		Do InitRuntimeContext
		Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New($$CALCDATE^vhLib.DataTypes($H,"M",-1)).Process()
		Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New(+$H).Process()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit

OpkuisLeveringsbonnen ; Leveringsbonnen die ouder zijn dan zoveel dagen worden gewist
	try { 
 		Do InitRuntimeContext
		Do ##class(APPS.VKP.impl.LeveringsbonOpkuisService).%New().KuisOpLeveringsbonnenOuderDan(90)
		}
	catch(Exceptie) {
		do OnError		
	}
	quit

VersturenGLSParcels ; Overgebleven parcels van transport te sluiten
	try { 
 		Do InitRuntimeContext
		#dim Datum As %String = $ZD($H,3)
		#dim ParcelQuery As %String = "select ID from APPS_TRANSP_GLS_GLSv1_data.VerzendData Where VerzendWijze in ('Parcel', 'ParcelCOD') and TijdstipLaatsteWijziging %StartsWith '{0}' and LaatsteRequestType = 'Registratie' order by ID DESC"
 		Set ParcelQuery = ##class(TECH.StringUtils).BuildText(ParcelQuery, Datum)
		Do ##class(APPS.TRANSP.GLS.impl.Bevestiger).ProcessQueryAsync(ParcelQuery)
		}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
VerwijderHangendeTijdelijkeOrders ; 
	try { 
 		Do InitRuntimeContext
		do ##class(APPS.VKP.OrderIngave.TijdelijkOrderVerwijderaar).%New().VerwijderTeVerwijderenTijdelijkeOrders()
		}
	catch(Exceptie) {
		do OnError		
	}
	quit

ConsistentieControleAccept2010 ; ConsistencyCheck voor integriteit van data te controleren
	try { 
 		Do InitRuntimeContext
		Do ##class(vhConsistency.ConsistencyCheck).VoerUit(,,"vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice")
	}
	catch(Exceptie) {
		do OnError		
	}
	quit
	
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())
	}
	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()
	}
	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
		Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.DOM.PM.SelectieKenmerken")
		}
	catch(Exceptie) {
		do OnError		
	}
	quit

VerwerkHangendeBuffers ; Hangende buffers met leeftijd meer dan 5 minuten proberen automatisch te verwerken
	try { 
 		Do InitRuntimeContext
		Do ##class(BL.MB.UGLYPicking.ReceptieProductie).VerwerkHangendeBuffers(5)
		}
	catch(Exceptie) {
		do OnError		
	}
	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
	}
	Quit

	
DiffAXVersusCacheOrders	; Verschillen tussen orders in AX en Cache opsporen
	Try {
		Do InitRuntimeContext
		Do ##class(AXimpl.Controle.OrdDiff.MaakDiff).%New(0).Maak()
	} Catch {
		Do OnError
	}
	Quit

TAXArdisSelcoParser	; Ardis XML voor Selco inlezen en de prioriteit aanpassen in Ardis voor de andere werkstukken van diezelfde batch
	Try {
		Do InitRuntimeContext
		Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisSelcoParser).%New().VerwerkAlle()
	} Catch {
		Do OnError
	}
	Quit

SyncProductInfo ; Sync gewichten en prijzen per product naar DotNet databank
	Try {
		Do InitRuntimeContext
		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.ProductInfo).%New().SyncProductenGewichtEnPrijs()
	} Catch {
		Do OnError
	}
	Quit
	
SyncKostenplaatsWaardeInfo ; Sync kostenplaatsen naar DotNet databank
	Try {
		Do InitRuntimeContext
		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostenplaatsWaardeInfo).%New().SyncKostenPlaatsen()
	} Catch {
		Do OnError
	}
	Quit
	
SyncKostSpec ; Sync KostSpec naar DotNet databank
	Try {
		Do InitRuntimeContext
		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostSpecInfo).%New().SyncKostSpec()
	} Catch {
		Do OnError
	}
	Quit
	
SyncHalffabSpec ; Sync HalffabSpec naar DotNet databank
	Try {
		Do InitRuntimeContext
		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.HalffabSpec).%New().SyncHalffabSpec()
	} Catch {
		Do OnError
	}
	Quit
		
OnError 
	set $ztrap="EndErrorTrapping"
	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()
	do ##class(vhLib.Logger).%New("SYSTEM").ErrorMail("Caretaker",Exceptie.ToString())
	goto EndErrorTrapping
	
EndErrorTrapping
	quit