Index: BL/Derde/Agenda/GeoDynamicsImport.cls.xml
===================================================================
diff -u -r38470 -r38931
--- BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 38470)
+++ BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 38931)
@@ -151,6 +151,7 @@
 	For I=1:1:Trips.Count()
 	{
 		Do ..OpslaanTrip(Trips.GetAt(I))
+		Do ..SkipVerwijderdeTrips(Trips.GetAt(I))
 	}
 ]]></Implementation>
 </Method>
@@ -172,9 +173,10 @@
 	Set GeoData.Straat=Trip.FromLocation.Address.Street_" "_Trip.FromLocation.Address.HouseNumber
 
 	Set GeoMobile=##class(Derde.Agenda.GeoMobile).OpenExisting(GeoData)
-	If $isObject(GeoMobile) && (GeoMobile.Afstand'=Trip.MileageDriven)
+	If $isObject(GeoMobile) ;&& (GeoMobile.Afstand'=Trip.MileageDriven)
 	{
 		Set Distance=Trip.MileageDriven-GeoMobile.Afstand
+		Set GeoMobile.ContactOn=Rijden ; Kan blijkbaar achteraf aangepast worden daarom wijzigen
 		Set GeoMobile.Afstand=Trip.MileageDriven
 		Set sc=GeoMobile.%Save()
 		
@@ -187,6 +189,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SkipVerwijderdeTrips">
+<FormalSpec>Trip:WS.GeoDynamics.tns.TripEntity</FormalSpec>
+<Implementation><![CDATA[
+	Set TijdstipVan=$zdth(Trip.FromDateUtc,3,7)
+	Set TijdstipTot=$zdth(Trip.ToDateUtc,3,7)
+
+ 	#dim TijdVan as %Time=$P(TijdstipVan,",",2)
+ 	#dim TijdTot as %Time=$P(TijdstipTot,",",2)
+ 	#dim Datum as %Date=$P(TijdstipVan,",",1)
+ 	#dim Gebruiker as %String=..User.%Id()
+ 	#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>: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)
+]]></Implementation>
+</Method>
+
 <Method name="UpdateAfstand">
 <Implementation><![CDATA[
 	Set LaatsteDatum=..LaatsteDatum
@@ -345,6 +375,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestLatLon">
+<Description>
+d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(17).TestLatLon()</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.Country="Belgium"
+	Set Adres.Street="Kerkstraat"
+	Set Adres.City="Temse"
+	Set Adres.PostalCode="9140"
+	Set Adres.HouseNumber="116"
+	
+	Set result=WebService.GeoCodingFindAddress(..GeefCallerID(),Adres)
+	d DumpObject^%apiOBJ(result)
+	d DumpObject^%apiOBJ(result.GetAt(1))
+	d DumpObject^%apiOBJ(result.GetAt(1).Address)
+	w !
+]]></Implementation>
+</Method>
+
 <Method name="GeefCallerID">
 <ClassMethod>1</ClassMethod>
 <Private>1</Private>