Index: AXif/Crm/GeolocationOut/MessageParts/Location.cls.xml
===================================================================
diff -u
--- AXif/Crm/GeolocationOut/MessageParts/Location.cls.xml	(revision 0)
+++ AXif/Crm/GeolocationOut/MessageParts/Location.cls.xml	(revision 42163)
@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXif.Crm.GeolocationOut.MessageParts.Location">
+<ClassType/>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="XMLNAME">
+<Default>GpsBeweging</Default>
+</Parameter>
+
+<Property name="AdminId">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="GeoDynamicsId">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="VoertuigNaam">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="VoertuigCode">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Straat">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="PostalCode">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Plaats">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Land">
+<Type>%Library.String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Longitude">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Latitude">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="TijdsbestedingStartDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="TijdsbestedingEindDatum">
+<Type>%String</Type>
+</Property>
+
+<Property name="TripType">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Afstand">
+<Type>%Decimal</Type>
+</Property>
+
+<Method name="Fill">
+<FormalSpec>Agenda:Derde.Agenda.Agenda</FormalSpec>
+<Implementation><![CDATA[
+	Set ..AdminId=Agenda.%Id()
+	Set ..GeoDynamicsId=Agenda.Gebruiker.GeoDevice
+	Set ..VoertuigNaam=Agenda.Gebruiker.Naam
+	Set ..VoertuigCode=..GeefVoertuigCode(Agenda)
+	Set ..Straat=Agenda.Straat
+	Set ..PostalCode=Agenda.PostCode
+	Set ..Plaats=Agenda.Gemeente
+	Set ..Land=..GeefLand(Agenda)
+	Set ..Longitude=Agenda.Longitude
+	Set ..Latitude=Agenda.Latitude
+	Set ..TijdsbestedingStartDatum=..FormatTijdstip(Agenda.Datum,Agenda.TijdVan)
+	Set ..TijdsbestedingEindDatum=..FormatTijdstip(Agenda.Datum,Agenda.TijdTot)
+	Set ..TripType=..GeefTripType(Agenda)
+	Set ..Afstand=Agenda.Afstand
+]]></Implementation>
+</Method>
+
+<Method name="GeefLand">
+<FormalSpec>Agenda:Derde.Agenda.Agenda</FormalSpec>
+<Implementation><![CDATA[
+	Quit:..IsRijden(Agenda) ""
+	Quit:Agenda.Land="" "BEL"
+	Quit Agenda.Land.Code3
+]]></Implementation>
+</Method>
+
+<Method name="FormatTijdstip">
+<FormalSpec>Datum:%Date,Tijd:%Time</FormalSpec>
+<Implementation><![CDATA[	Quit $ZDT(Datum_","_Tijd,3)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVoertuigCode">
+<FormalSpec>Agenda:Derde.Agenda.Agenda</FormalSpec>
+<Implementation><![CDATA[
+	Set IPNr=Agenda.Gebruiker.%Id()
+	Quit $P($G(^vhUSER("Vehicle",IPNr)),"\")
+]]></Implementation>
+</Method>
+
+<Method name="IsRijden">
+<FormalSpec>Agenda:Derde.Agenda.Agenda</FormalSpec>
+<Implementation><![CDATA[	Quit (Agenda.Type=##class(Derde.Agenda.enu.AgendaType).RijdenWerk())||(Agenda.Type=##class(Derde.Agenda.enu.AgendaType).RijdenPrive())
+]]></Implementation>
+</Method>
+
+<Method name="GeefTripType">
+<FormalSpec>Agenda:Derde.Agenda.Agenda</FormalSpec>
+<Implementation><![CDATA[
+	If ..IsRijden(Agenda)
+	{
+		Set TripType="969950000" ;Driving
+	}
+	Else
+	{ 
+		Set TripType="969950001" ;Standstill
+	}
+	Quit TripType
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXif/Crm/GeolocationOut/MessageParts.cls.xml
===================================================================
diff -u -r42162 -r42163
--- AXif/Crm/GeolocationOut/MessageParts.cls.xml	(.../MessageParts.cls.xml)	(revision 42162)
+++ AXif/Crm/GeolocationOut/MessageParts.cls.xml	(.../MessageParts.cls.xml)	(revision 42163)
@@ -10,7 +10,7 @@
 </Parameter>
 
 <Property name="Location">
-<Type>AXif.Crm.GeolocationOut.Location</Type>
+<Type>AXif.Crm.GeolocationOut.MessageParts.Location</Type>
 <Parameter name="REFELEMENTQUALIFIED" value="1"/>
 <Parameter name="XMLNAME" value="Location"/>
 <Parameter name="XMLREF" value="1"/>
Index: AXimpl/BizTalkMessage/Converter/GeolocationUpsertConverter.cls.xml
===================================================================
diff -u -r42162 -r42163
--- AXimpl/BizTalkMessage/Converter/GeolocationUpsertConverter.cls.xml	(.../GeolocationUpsertConverter.cls.xml)	(revision 42162)
+++ AXimpl/BizTalkMessage/Converter/GeolocationUpsertConverter.cls.xml	(.../GeolocationUpsertConverter.cls.xml)	(revision 42163)
@@ -13,7 +13,7 @@
 		Do ##class(TECH.Exceptions).Throw(##class(AX.common.impl.NoConversionNeededException).%New(##this.%ClassName(),Command.SubjectId))
 	}
 	
-	Set Location=##class(AXif.Crm.GeolocationOut.Location).%New()
+	Set Location=##class(AXif.Crm.GeolocationOut.MessageParts.Location).%New()
 	Do Location.Fill(Agenda)
 	
 	Set MessageParts = ##class(AXif.Crm.GeolocationOut.MessageParts).%New()
FishEye: Tag 42163 refers to a dead (removed) revision in file `AXif/Crm/GeolocationOut/Location.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?