TECH.RegisteredObject APPS.TRANSP.Transsmart.data.VerzendDataRepository 1 VerzenddataRepository:APPS.TRANSP.Transsmart.data.VerzendDataRepository="" 1 1 %Status 1 Response:WS.Transsmart.tns.getStatusHistoryByQueryResponse 20230821 ;114311 0 )){ Set Verzenddata.TranssmartLastStatusTimestamp = EventTimestamp Set Verzenddata.TranssmartLastStatus = ShipmentStatus.shipmentStatusCode Set Verzenddata.TranssmartLastModification = ##class(TECH.DateTime).CurrentTimeStamp() Do ..VerzenddataRepository.Bewaar(Verzenddata) Do ##class(vhLib.Logger).%New().Info("Updating Transportstatus","Zending met ref '"_ ShipmentInfo.reference _"' kreeg status '"_ShipmentStatus.shipmentStatusCode_ "' op " _EventTimestamp) } } } } } ]]> DateString:%String,TimeString:%String %String