APPS.TRANSP.impl.CommunicatieService DOM.common.impl.ProjectSettingsAPI 1 APPS.TRANSP.VRD.UitgesteldeZendingLijst 1 TECH.Config.ConfigMgr 1 APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery 1 ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI,UitgesteldeZendingLijst:APPS.TRANSP.VRD.UitgesteldeZendingLijst="",HistoryByQuery:APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery="",ConfigMgr:TECH.Config.ConfigMgr="" 1 1 %Status 1 RitID:%String,LeveringID:%String RitID:%String,LeveringID:%String %String RitID:%String Transporteur:%String,CostCenter:%String,PickupDatumVan:%Date,PickupDatumTot:%Date,TransportNr:%String="" 2 ){ #dim CarrierTimeStampTo as %TimeStamp = ##class(TECH.DateTime).TimeStampBereken(CarrierLastTimeStamp,2,"hh") ;Do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"Opvragen Transportstatus historiek voor "_ Carrier _ " van " _ CarrierLastTimeStamp _ " tot " _ CarrierTimeStampTo) Set ..HistoryByQuery = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery).%New() Do ..HistoryByQuery.QueryStatusHistory(Carrier, CarrierLastTimeStamp, CarrierTimeStampTo) Set CarrierLastTimeStamp = CarrierTimeStampTo Do ..ZetCarrierLastTimeStamp(Carrier,CarrierLastTimeStamp) hang 1 } } } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(vhLib.Logger).%New().ErrorMail(..%ClassName(1)_"::"_$$$CurrentMethod,"Opvragen Transportstatus historiek mislukt."_$C(13,10)_$C(13,10)_Exception.ToString()) } ]]> Carrier:%String %TimeStamp Carrier:%String,LastTimeStamp:%TimeStamp