Index: APPS/TRANSP/Transsmart/impl/FeedbackVerzamelaar.cls.xml =================================================================== diff -u -r72356 -r72373 --- APPS/TRANSP/Transsmart/impl/FeedbackVerzamelaar.cls.xml (.../FeedbackVerzamelaar.cls.xml) (revision 72356) +++ APPS/TRANSP/Transsmart/impl/FeedbackVerzamelaar.cls.xml (.../FeedbackVerzamelaar.cls.xml) (revision 72373) @@ -27,7 +27,6 @@ Set InfoIterator=##class(TECH.ListIterator).%New(Response.shipmentInfos) While(InfoIterator.HasNext()){ #dim ShipmentInfo as WS.Transsmart.tns.GetStatusHistoryResponseShipmentInfo = InfoIterator.Next() - Do ##class(Tools.Wlip).%New(207).String(ShipmentInfo.carrier _ " " _ ShipmentInfo.reference) If ..VerzenddataRepository.BestaatViaReference(ShipmentInfo.reference) { #dim Verzenddata as APPS.TRANSP.Transsmart.data.VerzendData = ..VerzenddataRepository.GeefViaReference(ShipmentInfo.reference) Set StatusIterator = ##class(TECH.ListIterator).%New(ShipmentInfo.shipmentStatuses) @@ -38,8 +37,7 @@ #dim EventDate as %Date = $ZDATEH(ShipmentStatus.eventDate,8) #dim EventTime as %Time = $ZTIMEH($Extract(ShipmentStatus.eventTime,1,2)_":"_$Extract(ShipmentStatus.eventTime,3,4)_":" _ $Extract(ShipmentStatus.eventTime,5,6),1) #dim EventTimestamp = ##class(TECH.DateTime).DateTimeToTimeStamp(EventDate,EventTime) - Do ##class(vhLib.Logger).%New().Info("Updating Transportstatus","Zending met ref '"_ ShipmentInfo.reference _"' kreeg status '"_ShipmentStatus.shipmentStatusCode_ "' op " _EventTimestamp) - + If ($$$Not(Verzenddata.TranssmartLastStatus = ShipmentStatus.shipmentStatusCode)){ If ((Verzenddata.TranssmartLastStatusTimestamp = "") || (##class(TECH.DateTime).TimeStampVerschil("ss", Verzenddata.TranssmartLastStatusTimestamp,EventTimestamp) > 0 )){ Set Verzenddata.TranssmartLastStatusTimestamp = EventTimestamp