Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r50894 -r50902
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 50894)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 50902)
@@ -1074,10 +1074,10 @@
 	}
 	quit
 
-VersturenGLSParcels
+VersturenGLSParcels 
 	try { 
  		Do InitRuntimeContext
- 		#dim Datum As %String = ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDateVoorQueries()
+ 		#dim Datum As %String = $ZD($H,3)
  		#dim ParcelQuery As %String = "select ID from APPS_TRANSP_GLS_GLSv1_data.VerzendData Where VerzendWijze = 'Parcel' and TijdstipLaatsteWijziging %StartsWith '{0}' and LaatsteRequestType = 'Registratie' order by ID DESC"
  		Set ParcelQuery = ##class(TECH.StringUtils).BuildText(ParcelQuery, Datum)
 		Do ##class(vhPowerTools.APPS.TRANSP.GLS.Bevestiger).ProcessQueryAsync(ParcelQuery)