Index: EWRECR.mac.rou
===================================================================
diff -u -r47929 -r66310
--- EWRECR.mac.rou	(.../EWRECR.mac.rou)	(revision 47929)
+++ EWRECR.mac.rou	(.../EWRECR.mac.rou)	(revision 66310)
@@ -37,9 +37,11 @@
 	. If FastMode,FastMode<$P($H,",",2) Set FastMode="" ;FastMode is verstrekenen
 	. Do CHECK
 	. Do WMSALIVE
+	. Do ##class(OBJTimpl.BestandVerwerker).%New().UitlezenOntvangenBestanden()
 	. Do:$D(^ORDW("BON")) CHKBON^EWORDF2 ; Verder op bon zetten en afdrukken
 	. Do:$D(^RCP("URG")) CHKURG^EWRCPF ; Urgentie door mailen naar user
 	. Do:$G(^RCP("AUTO")) CHKAUTO^EWRCPF() ; Automatisch inboeken Halux
+	. Do:$D(^RCP("AUTO_OBJT")) ##class(OBJTimpl.WMSOrder.ZendOpslagOntvangst).VerzendNaVertraging() ;OBJT : Fase 1 Automatisch stockage voor producten in de Vertikale liften
 	. Lock +^cLOG(cs,"CTK0","JOB"):0 ; Controle of caretaker nog draait
 	. If $T Do  ; Indien gelocked dan caretaker gestopt
 	. . Lock -^cLOG(cs,"CTK0","JOB")
@@ -240,7 +242,6 @@
  Do ERROR^EWLOG($T(NOSTART))
  Set Tekst="De link met het EWMS is verbroken!!!~Routine ^EWRECR draait niet meer~Gelieve dit dringend op te lossen!!!"
  Set MailId=$$SYSTEM^vhMAIL("","",$ZN,"EWMS",Tekst,"EWMS\\R","U","A")
- Do ##class(vhLib.Logger).%New($$$EWRECRLoggerGroep).Error("CTK",Tekst)
  ; Om de 10 sec een beep geven indien START^EWRECR niet loopt
  For Count=1:1 Set Job=$G(^EWREC("P","CHKJOB")) Quit:'Job  Set Routine=$$ROUTINE^cS(Job) Quit:Routine=$ZN  Zu 1 Write *7 Hang 10
  Quit
@@ -317,7 +318,6 @@
  Do ERROR^EWLOG($T(NOTALIVE))
  Set Tekst="De link met het EWMS is verbroken!!!~Het WMS-Alive bericht wordt niet meer ontvangen~Gelieve dit dringend op te lossen!!!"
  Set MailId=$$SYSTEM^vhMAIL("","",$ZN,"EWMS",Tekst,"EWMS\\R","U","A")
- Do ##class(vhLib.Logger).%New($$$EWRECRLoggerGroep).Error("WMSALIVE",Tekst)
  Set $P(WMSAlive,",",2)=999999 ; Bericht kan maar een keer voorkomen na mekaar eenmaal per dag voorkomen  Quit
  Quit