Index: APPS/OV/impl/TranssmartTrackAndTrace.cls.xml
===================================================================
diff -u
--- APPS/OV/impl/TranssmartTrackAndTrace.cls.xml	(revision 0)
+++ APPS/OV/impl/TranssmartTrackAndTrace.cls.xml	(revision 59731)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.impl.TranssmartTrackAndTrace">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="ParcelLoginUn">
+<Type>%String</Type>
+<Default>0560005353</Default>
+</Parameter>
+
+<Parameter name="ParcelLoginNo">
+<Type>%String</Type>
+<Default>0560010910</Default>
+</Parameter>
+
+<Parameter name="ParcelURLPaswoord">
+<Type>%String</Type>
+<Default>NogInTeVullen</Default>
+</Parameter>
+
+<Parameter name="FreightUserID">
+<Type>%String</Type>
+<Default>hoecke</Default>
+</Parameter>
+
+<Parameter name="FreightPaswoord">
+<Type>%String</Type>
+<Default>NogInTeVullen</Default>
+</Parameter>
+
+<Property name="CommunicatieServiceLocator">
+<Type>APPS.TRANSP.GLS.GLSv1.CommunicatieServiceLocator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportApi">
+<Type>DOM.TRANSP.TransportAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CommunicatieServiceLocator:APPS.TRANSP.GLS.GLSv1.CommunicatieServiceLocator</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..CommunicatieServiceLocator = $$$Inject(CommunicatieServiceLocator,##class(APPS.TRANSP.GLS.GLSv1.impl.CommunicatieServiceLocator).%New())
+	set ..TransportApi = ##class(DOM.DomeinContext).Instance().GeefTransportAPI() 
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrivateTrackAndTraceURL">
+<FormalSpec>Levering:DOM.TRANSP.Levering,Taal:DOM.enu.Taal,Transporteur:DOM.TRANSP.enu.Transporteur</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefTrackAndTraceURL(Levering,Taal,Transporteur)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPubliekeTrackAndTraceURL">
+<FormalSpec>Levering:DOM.TRANSP.Levering,Taal:%String,Transporteur:DOM.TRANSP.enu.Transporteur</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefTrackAndTraceURL(Levering,Taal,Transporteur)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTrackAndTraceURL">
+<FormalSpec>Levering:DOM.TRANSP.Levering,Taal:DOM.enu.Taal,Transporteur:DOM.TRANSP.enu.Transporteur</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim URL As %String = ""
+
+	If Transporteur = ##class(DOM.TRANSP.enu.Transporteur).VRD() {
+		set URL = ..GeefFreightTrackAndTraceURL(Levering,Taal)
+	} elseif  Transporteur = ##class(DOM.TRANSP.enu.Transporteur).DHL() {
+		set URL = ..GeefParcelTrackAndTraceURL(Levering,Taal)
+	} else {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Voor transporteur '"_Transporteur_"' is Track And Trace niet mogelijk. Levering: "_Levering.GeefID())
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	Quit URL
+]]></Implementation>
+</Method>
+
+<Method name="GeefFreightTrackAndTraceURL">
+<FormalSpec>Levering:DOM.TRANSP.Levering,Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WebPagina As %String = "https://vrd-live-webportal.go4tms.net/User/Verzending/ToBeConfirmed"
+	#dim DistributeurData As APPS.TRANSP.Transsmart.data.VerzendData = ..GeefLeveringVerzendData(Levering)
+	#dim URL As %String = WebPagina_"/"_DistributeurData.TrackAndTraceID
+	
+	quit URL
+]]></Implementation>
+</Method>
+
+<Method name="GeefParcelTrackAndTraceURL">
+<FormalSpec>Levering:DOM.TRANSP.Levering,Taal:DOM.enu.Taal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DistributeurData As APPS.TRANSP.Transsmart.data.VerzendData = ..GeefLeveringVerzendData(Levering)
+	#dim URL As %String = DistributeurData.TrackAndTraceUrl
+	
+	quit URL
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringVerzendData">
+<FormalSpec>Levering:DOM.TRANSP.Levering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Transsmart.data.VerzendData</ReturnType>
+<Implementation><![CDATA[
+	#dim DistributeurData As APPS.TRANSP.Transsmart.data.VerzendData
+	#dim DistributeurDataIDs As %ListOfDataTypes = Levering.GeefDistributeurDataIDs()
+	set itDistributeurDataIDs = ##class(TECH.ListIterator).%New(DistributeurDataIDs) 
+
+	while itDistributeurDataIDs.HasNext() {
+		#dim DistributeurDataID	As %String = itDistributeurDataIDs.Next()	
+		Set DistributeurData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)					 
+		Quit
+	}
+	
+	Quit DistributeurData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>