%RegisteredObject Van Hoecke webservices Vah25@adm AX.Uitgaand.VKP.Trip.impl.BepaalActiviteit 1 WS.GeoDynamics.tns.VehicleCodeEntity %Date %Date User:Res.InternePersoon %Status w ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).IsServiceBeschikbaar() 1 d ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).%New().FetchAll() 15 order by id asc) &sql(OPEN GeoUsers) For &sql(FETCH GeoUsers) Quit:SQLCODE Do . q:IPNr=11 . Do ..FetchOne(IPNr) &sql(CLOSE GeoUsers) Lock -GeoDynamics ]]> d ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).%New().FetchAll() 15 order by id asc) &sql(OPEN GeoUsersSamen) #dim Devices as %ListOfDataTypes="" For &sql(FETCH GeoUsersSamen) Quit:SQLCODE Do . Quit:IPNr=11 ; LDS heeft tijdelijk problemen 24/07/2018 (land Litouwen) . Set Devices=..GeefWagenVanGebruiker(IPNr,Devices) &sql(CLOSE GeoUsersSamen) Do ..OphalenTripsOverPeriode(Devices,"ALL") Lock -GeoDynamics ]]> d ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).%New().FetchOne(1103) User:Res.InternePersoon 1 %ListOfDataTypes User:Res.InternePersoon,Devices:%ListOfDataTypes="" 1 %ListOfDataTypes Wagens:%ListOfDataTypes,User:%String 1 Devices:%ListOfDataTypes,Datum:%Date 1 Trips:%ListOfObjects 1 GeoTrip:WS.GeoDynamics.tns.TripEntity 1 s land=##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).GeefLandVolgensNaam("Netherlands") d DumpObject^%apiOBJ(land) LandNaam:%String Res.Land GeoTijdstip:%String 1 GeoTijdstip:%String 1 %Date 1 %Date +$H { Set LaatsteDatum=+$H-1 } If LaatsteDatum<(+$H-5) { Set LaatsteDatum=+$H-5 } Quit LaatsteDatum ]]> 1 1 WS.GeoDynamics.tns.CallerEntity d ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).Ping() 1 WS.GeoDynamics.tns.CallerEntity