%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) &sql(OPEN GeoUsers) For &sql(FETCH GeoUsers) Quit:SQLCODE Do . Do ..FetchOne(IPNr) &sql(CLOSE GeoUsers) ]]> d ##class(AX.Uitgaand.VKP.Trip.impl.GeoDynamicsImport).%New().FetchOne(1034) User:Res.InternePersoon 1 %ListOfDataTypes User:Res.InternePersoon 1 %ListOfDataTypes Wagens:%ListOfDataTypes 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(BL.Derde.Agenda.GeoDynamicsImport).Ping() 1 1 WS.GeoDynamics.tns.CallerEntity