Index: WS/AX/Transport/GLS/v01/RegistrationService.cls.xml
===================================================================
diff -u -r40683 -r49239
--- WS/AX/Transport/GLS/v01/RegistrationService.cls.xml	(.../RegistrationService.cls.xml)	(revision 40683)
+++ WS/AX/Transport/GLS/v01/RegistrationService.cls.xml	(.../RegistrationService.cls.xml)	(revision 49239)
@@ -11,44 +11,62 @@
 <Default>http://www.vanhoecke.be/AX/Transport/GLS/RegistrationService</Default>
 </Parameter>
 
+<Property name="ObjectApi">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..ObjectApi = ##class(TECH.Context).Instance().GeefObjectAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RegisterContainer">
 <FormalSpec>RegisterContainerRequest:WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	Set RegistreerContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationServiceDummy.RegisterContainer).%New()
-	Quit RegistreerContainer.RegisterContainer(RegisterContainerRequest)
+<Implementation><![CDATA[	Quit ..MaakKlasseInstance("RegisterContainer").RegisterContainer(RegisterContainerRequest)
 ]]></Implementation>
 </Method>
 
 <Method name="CancelContainer">
 <FormalSpec>CancelContainerRequest:WS.AX.Transport.GLS.v01.dto.CancelContainerRequest</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.CancelContainerResponse</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	Set CancelContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationServiceDummy.CancelContainer).%New()
-	Quit CancelContainer.CancelContainer(CancelContainerRequest)
+<Implementation><![CDATA[	Quit ..MaakKlasseInstance("CancelContainer").CancelContainer(CancelContainerRequest)
 ]]></Implementation>
 </Method>
 
 <Method name="ConfirmLoad">
 <FormalSpec>ConfirmLoadRequest:WS.AX.Transport.GLS.v01.dto.ConfirmLoadRequest</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.ConfirmLoadResponse</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	Set ConfirmLoad = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationServiceDummy.ConfirmLoad).%New()
-	Quit ConfirmLoad.ConfirmLoad(ConfirmLoadRequest)
+<Implementation><![CDATA[	Quit ..MaakKlasseInstance("ConfirmLoad").ConfirmLoad(ConfirmLoadRequest)
 ]]></Implementation>
 </Method>
 
 <Method name="ReprintContainer">
 <FormalSpec>ReprintContainerRequest:WS.AX.Transport.GLS.v01.dto.ReprintContainerRequest</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.ReprintContainerResponse</ReturnType>
 <WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ..MaakKlasseInstance("ReprintContainer").ReprintContainer(ReprintContainerRequest)
+]]></Implementation>
+</Method>
+
+<Method name="MaakKlasseInstance">
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
 <Implementation><![CDATA[
-	
-	Set ReprintContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationServiceDummy.ReprintContainer).%New()
-	Quit ReprintContainer.ReprintContainer(ReprintContainerRequest)
+	#dim VolledigeKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("WSimpl.AX.Transport.GLS.v01.RegistrationService." _KlasseNaam _"_Implementatie")
+	Quit ..ObjectApi.New(VolledigeKlasseNaam)
 ]]></Implementation>
 </Method>
 </Class>