Index: Derde/Agenda/GeoMobile.cls.xml
===================================================================
diff -u -r37296 -r37531
--- Derde/Agenda/GeoMobile.cls.xml	(.../GeoMobile.cls.xml)	(revision 37296)
+++ Derde/Agenda/GeoMobile.cls.xml	(.../GeoMobile.cls.xml)	(revision 37531)
@@ -150,6 +150,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OpenExisting">
+<FormalSpec>GeoData:Derde.Agenda.GeoMobile</FormalSpec>
+<ReturnType>Derde.Agenda.GeoMobile</ReturnType>
+<Implementation><![CDATA[
+ 	#dim Tijd as %Time=GeoData.Tijd
+ 	#dim Datum as %Date=GeoData.Datum
+ 	#dim Gebruiker as %String=GeoData.Gebruiker
+ 	#dim GeoID as %String=""
+ 	#dim GeoMobile as Derde.Agenda.GeoMobile=""
+ 	
+	&sql(DECLARE OE CURSOR FOR
+	SELECT ID
+    INTO :GeoID
+	FROM Derde_Agenda.GeoMobile
+	WHERE Gebruiker=:Gebruiker  AND Datum=:Datum AND Tijd=:Tijd)
+
+   	&sql(OPEN OE)
+ 	For  &sql(FETCH OE) Quit:SQLCODE
+ 	&sql(CLOSE OE)
+	If GeoID
+	{
+		Set GeoMobile=..%OpenId(GeoID)
+	}
+	Quit GeoMobile
+]]></Implementation>
+</Method>
+
 <Method name="LockUser">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>User:Res.InternePersoon</FormalSpec>
Index: BL/Derde/Agenda/GeoDynamicsImport.cls.xml
===================================================================
diff -u -r37296 -r37531
--- BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 37296)
+++ BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 37531)
@@ -39,6 +39,10 @@
 <Type>%Time</Type>
 </Property>
 
+<Property name="LaatsteGeoMobile">
+<Type>Derde.Agenda.GeoMobile</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>User:Res.InternePersoon</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -56,7 +60,7 @@
 
 <Method name="OphalenLocaties">
 <Description>
-d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(17).OphalenLocaties()</Description>
+d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).OphalenLocaties()</Description>
 <Implementation><![CDATA[
 	Set WebService=##class(WS.GeoDynamics.IntegratorWebserviceSoap).%New()
 	Set WebService.SSLConfiguration="GeoDynamicsAPI"
@@ -119,7 +123,7 @@
 
 <Method name="OphalenTrips">
 <Description>
-d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(17).OphalenTrips()</Description>
+d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).OphalenTrips()</Description>
 <Implementation><![CDATA[
 	Set WebService=##class(WS.GeoDynamics.IntegratorWebserviceSoap).%New()
 	Set WebService.SSLConfiguration="GeoDynamicsAPI"
@@ -165,8 +169,15 @@
 	Set GeoData.Land=Trip.FromLocation.Address.Country
 	Set GeoData.Straat=Trip.FromLocation.Address.Street_" "_Trip.FromLocation.Address.HouseNumber
 
-	If (GeoData.Datum>..LaatsteDatum)||((GeoData.Datum=..LaatsteDatum)&&((..LaatsteTijd="")||(GeoData.Tijd>..LaatsteTijd)))
+	Set GeoMobile=##class(Derde.Agenda.GeoMobile).OpenExisting(GeoData)
+	If $isObject(GeoMobile)
 	{
+		Set GeoMobile.Afstand=-Trip.MileageDriven
+		Set sc=GeoMobile.%Save()
+		
+	}
+	ElseIf (GeoData.Datum>..LaatsteDatum)||((GeoData.Datum=..LaatsteDatum)&&((..LaatsteTijd="")||(GeoData.Tijd>..LaatsteTijd)))
+	{
 		Set sc=GeoData.%Save()
 	}
 ]]></Implementation>
@@ -201,6 +212,7 @@
  	For  &sql(FETCH BLT) Quit:SQLCODE
  	&sql(CLOSE BLT)
 	Set ..LaatsteTijd=LaatsteTijd
+	Set ..LaatsteGeoMobile=""
 ]]></Implementation>
 </Method>
 
@@ -303,6 +315,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestLatLon">
+<Description>
+d ##class(BL.Derde.Agenda.GeoDynamics.OphalenGegevens).%New(17).TestTrip()</Description>
+<Implementation><![CDATA[
+	Set WebService=##class(WS.GeoDynamics.IntegratorWebserviceSoap).%New()
+	
+		;Set WebService.Https=1
+	Set WebService.SSLConfiguration="GeoDynamicsAPI"
+	Set Adres=##class(WS.GeoDynamics.tns.AddressEntity).%New()
+	Set Adres.Street="Kerkstraat"
+	Set Adres.HouseNumber=116
+	Set Adres.City="Temse"
+	Set Adres.Country="Belgium"
+	
+	Set result=WebService.GeoCodingFindAddress(..GeefCallerID(), Adres)
+	d DumpObject^%apiOBJ(result)
+	w !
+	w "Aantal trips:",result.Count(),!
+	d DumpObject^%apiOBJ(result.GetAt(1))
+	w !
+	d DumpObject^%apiOBJ(result.GetAt(1).TripItemEntities)
+	w !
+	d DumpObject^%apiOBJ(result.GetAt(1).TripItemEntities.GetAt(1))
+	w !
+	w !,"Aantal items ",result.GetAt(1).TripItemEntities.Count(),!
+]]></Implementation>
+</Method>
+
 <Method name="GeefCallerID">
 <ClassMethod>1</ClassMethod>
 <Private>1</Private>