Index: BL/Derde/Agenda/GeoDynamicsImport.cls.xml
===================================================================
diff -u -r38931 -r39394
--- BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 38931)
+++ BL/Derde/Agenda/GeoDynamicsImport.cls.xml	(.../GeoDynamicsImport.cls.xml)	(revision 39394)
@@ -24,7 +24,7 @@
 </Parameter>
 
 <Parameter name="DefaultDagenInVerleden">
-<Default>5</Default>
+<Default>0</Default>
 </Parameter>
 
 <Property name="User">
@@ -54,6 +54,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestOphalenLocaties">
+<Description>
+d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).TestOphalenLocaties()</Description>
+<Implementation><![CDATA[
+	Set WebService=##class(WS.GeoDynamics.IntegratorWebserviceSoap).%New()
+	Set WebService.SSLConfiguration="GeoDynamicsAPI"
+
+	Set VanafTijdstip="" ;$G(^Derde.Agenda.GeoMobileCfg("LASTUPDATE",..User.GeoDevice))
+	Set:VanafTijdstip="" VanafTijdstip=$zdt(($P($H,",",1)-..#DefaultDagenInVerleden)_",1",3)
+	Set TotTijdstip=$zdt($H,3)
+	Set Locaties=WebService.LocationGetByVehicleIdDateRange(..GeefCallerID(),"6726f44a-b65b-4775-8cf6-c3d410f1d5fd",VanafTijdstip,TotTijdstip)
+	Do ObjToXMLFile^vhLib(Locaties,"\\notes01\shared\P V\GEODYNAMICS Locaties"_".xml")
+]]></Implementation>
+</Method>
+
 <Method name="OphalenLocaties">
 <Description>
 d ##class(BL.Derde.Agenda.GeoDynamicsImport).%New(1017).OphalenLocaties()</Description>