Index: APPS/OV/impl/GLSTrackAndTrace.cls.xml
===================================================================
diff -u -r40503 -r40512
--- APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 40503)
+++ APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 40512)
@@ -1,8 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.OV.impl.GLSTrackAndTrace">
-<IncludeCode>vhLib.Macro</IncludeCode>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Parameter name="ParcelLogin">
 <Type>%String</Type>
@@ -24,6 +23,29 @@
 <Default>fgc846</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</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -43,14 +65,11 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-
-	#dim CommunicatieService As APPS.TRANSP.GLS.GLSv1.CommunicatieServiceLocator = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefCommunicatieService(##class(DOM.TRANSP.enu.Transporteur).GLSBelgium())
-	#dim DienstBepaler As APPS.TRANSP.GLS.GLSv1.DienstBepaler = CommunicatieService.GeefDienstBepaler()
+	#dim DienstBepaler As APPS.TRANSP.GLS.GLSv1.DienstBepaler = ..CommunicatieServiceLocator.GeefDienstBepaler()
 	
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = DienstBepaler.GeefDienst(..GeefVerzendWijze(Levering))
 	
 	#dim URL As %String = ""
-	Set GLSTools = ##class(APPS.OV.impl.GLSTools).%New()
 	If Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight() {
 		set URL = ..GeefFreightTrackAndTraceURL(Levering,Taal)
 	} elseif  Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel() {
@@ -118,7 +137,7 @@
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataIDs())
 	While DistributeurDataIDIt.HasNext(){
 		#dim DistributeurDataID As %String = DistributeurDataIDIt.Next()
-		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)
+		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ..TransportApi.GeefDistributeurData(DistributeurDataID)
 		Do Referenties.Insert(DistributeurData.UnitID)
 	}
 	Quit Referenties
@@ -134,7 +153,7 @@
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataIDs())
 	While DistributeurDataIDIt.HasNext(){
 		#dim DistributeurDataID As %String = DistributeurDataIDIt.Next()
-		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)
+		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ..TransportApi.GeefDistributeurData(DistributeurDataID)
 		Do TrackAndTraceIDs.Insert(DistributeurData.TrackAndTraceID)
 	}
 	Quit TrackAndTraceIDs
@@ -150,7 +169,7 @@
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataIDs())
 	If DistributeurDataIDIt.HasNext() {
 		#dim DistributeurDataID As %String = DistributeurDataIDIt.Next()
-		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataID)
+		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ..TransportApi.GeefDistributeurData(DistributeurDataID)
 		set VerzendWijze = DistributeurData.VerzendWijze
 	}
 	Quit VerzendWijze