Index: vhDeploy/Deploy20170329xWSGLSKlassenamen.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20170329xWSGLSKlassenamen.cls.xml	(revision 0)
+++ vhDeploy/Deploy20170329xWSGLSKlassenamen.cls.xml	(revision 40741)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20170329xWSGLSKlassenamen">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Config items voor switchen tussen prod en dummy classes</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..ZetConfigItem("RegisterContainer")
+	Do ..ZetConfigItem("ConfirmLoad")
+	Do ..ZetConfigItem("CancelContainer")
+	Do ..ZetConfigItem("ReprintContainer")
+]]></Implementation>
+</Method>
+
+<Method name="ZetConfigItem">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "WSimpl.AX.Transport.GLS.v01.RegistrationService." _KlasseNaam _"_Implementatie"
+	#dim ProductieWaarde As %String = "WSimpl.AX.Transport.GLS.v01.RegistrationService." _KlasseNaam
+	#dim DevelopmentWaarde As %String = "WSimpl.AX.Transport.GLS.v01.RegistrationServiceDummy." _KlasseNaam
+	
+	If ('(##class(TECH.Config.ConfigMgr).Instance().BestaatSleutel(Sleutel)))
+	{
+		If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "PROD"){
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,ProductieWaarde)
+		}Else{
+			Do ##class(TECH.Config.ConfigMgr).Instance().SetString(Sleutel,DevelopmentWaarde)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/AX/Transport/GLS/v01/RegistrationService.cls.xml
===================================================================
diff -u -r40683 -r40741
--- 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 40741)
@@ -11,44 +11,61 @@
 <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[
+	Set ..ObjectApi = ##class(TECH.Context).Instance().GeefObjectAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakKlasseInstance">
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#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>
+
 <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[
-	
-	Set ReprintContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationServiceDummy.ReprintContainer).%New()
-	Quit ReprintContainer.ReprintContainer(ReprintContainerRequest)
+<Implementation><![CDATA[	Quit ..MaakKlasseInstance("ReprintContainer").ReprintContainer(ReprintContainerRequest)
 ]]></Implementation>
 </Method>
 </Class>