%RegisteredObject Van Hoecke webservices Vah25@adm 60 60 0 Res.InternePersoon %Date %Time User:Res.InternePersoon %Status d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).TestOphalenLocaties() 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() } ]]> Trip:WS.GeoDynamics.tns.TripEntity :TijdVan AND Tijd<:TijdTot) &sql(OPEN OE) For &sql(FETCH OE) Quit:SQLCODE Do . Set GeoMobile=##class(Derde.Agenda.GeoMobile).%OpenId(GeoID) . Set GeoMobile.Type="SKIP" . Do GeoMobile.%Save() &sql(CLOSE OE) ]]> =: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(BL.Derde.Agenda.event.EventRaiser).%New().RaiseAgendaAdresGewijzigdEvent(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() d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(17).TestLatLon() 1 1 WS.GeoDynamics.tns.CallerEntity