%RegisteredObject Van Hoecke webservices Vah25@adm 60 60 5 Res.InternePersoon %Date %Time User:Res.InternePersoon %Status d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).OphalenLocaties() Locaties:%ListOfObjects 1 Locatie:WS.GeoDynamics.tns.LocationEntity 1 Type:WS.GeoDynamics.tns.LocationTypeEntity,InputAcc:%Boolean 1 %String d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).OphalenTrips() Trips:%ListOfObjects 1 Trip:WS.GeoDynamics.tns.TripEntity 1 ..LaatsteDatum)||((GeoData.Datum=..LaatsteDatum)&&((..LaatsteTijd="")||(GeoData.Tijd>..LaatsteTijd))) { Set sc=GeoData.%Save() } ]]> =:LaatsteDatum Group by Datum, AgendaSubID) &sql(OPEN UPDAFST) For &sql(FETCH UPDAFST) Quit:SQLCODE Do . If AgendaSubID Do . . Set Agenda=##class(Derde.Agenda.Agenda).%OpenId(UserID_"||"_Datum_"||"_AgendaSubID) . . If $isObject(Agenda)&&(Agenda.Afstand'=Afstand) Do . . . Set Agenda.Afstand=Afstand . . . Set sc=Agenda.%Save() . . . Do ##class(AX.Uitgaand.common.impl.AifGenerator).%New().Generate(##class(AXimpl.AifMessage.Request).%New("Crm/GeolocationUpsert",Agenda.%Id())) &sql(CLOSE UPDAFST) ]]> Trip:WS.GeoDynamics.tns.TripEntity 1 %String Trip:WS.GeoDynamics.tns.TripEntity d ##class(BL.Derde.Agenda.GeoDynamicsImport).IsServiceBeschikbaar() 1 d ##class(BL.Derde.Agenda.GeoDynamics.OphalenGegevens).%New().TestVehicle() d ##class(BL.Derde.Agenda.GeoDynamics.OphalenGegevens).%New(17).TestTrip() 1 1 WS.GeoDynamics.tns.CallerEntity