Index: vhDeploy/Deploy20170411xVhisie4UserInfoWebserviceURL.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20170411xVhisie4UserInfoWebserviceURL.cls.xml	(revision 0)
+++ vhDeploy/Deploy20170411xVhisie4UserInfoWebserviceURL.cls.xml	(revision 40911)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20170411xVhisie4UserInfoWebserviceURL">
+<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[
+	#dim Sleutel As %String = "Vhisie4UserInfoWebserviceURL"
+	#dim ProductieWaarde As %String = "http://new.vanhoecke.be/nl/api/user/info"
+	#dim DevelopmentWaarde As %String = "http://website.testing.vanhoecke.be/nl/api/user/info"
+	
+	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: APPS/Blum/impl/OnlineProductConfigurator/UserInfo/userServicePort.cls.xml
===================================================================
diff -u -r40910 -r40911
--- APPS/Blum/impl/OnlineProductConfigurator/UserInfo/userServicePort.cls.xml	(.../userServicePort.cls.xml)	(revision 40910)
+++ APPS/Blum/impl/OnlineProductConfigurator/UserInfo/userServicePort.cls.xml	(.../userServicePort.cls.xml)	(revision 40911)
@@ -6,26 +6,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebClient</Super>
 
-<Method name="getCustomerFromEmail">
-<Final>1</Final>
-<FormalSpec>email:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.UserInfo.tns.Customer</ReturnType>
-<WebMethod>1</WebMethod>
-<SoapBindingStyle>rpc</SoapBindingStyle>
-<SoapBodyUse>encoded</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("getCustomerFromEmail").Invoke($this,"http://new.vanhoecke.be/nl/api/user/info#getCustomerFromEmail",.email)
-]]></Implementation>
-</Method>
-
-<Parameter name="LOCATION">
-<Description>
-This is the URL used to access the web service.</Description>
-<Default>http://new.vanhoecke.be/nl/api/user/info</Default>
-</Parameter>
-
 <Parameter name="NAMESPACE">
 <Description>
+This is the URL used to access the web service.
+Parameter LOCATION = "http://new.vanhoecke.be/nl/api/user/info";
 This is the namespace used by the Service</Description>
 <Default>http://new.vanhoecke.be/nl/api/user/info</Default>
 </Parameter>
@@ -47,5 +31,29 @@
 This is the SOAP version supported by the service.</Description>
 <Default>1.1</Default>
 </Parameter>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Location = ##class(TECH.Config.ConfigMgr).Instance().GetString("Vhisie4UserInfoWebserviceURL")
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="getCustomerFromEmail">
+<Final>1</Final>
+<FormalSpec>email:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.UserInfo.tns.Customer</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>rpc</SoapBindingStyle>
+<SoapBodyUse>encoded</SoapBodyUse>
+<Implementation><![CDATA[ Quit ..WebMethod("getCustomerFromEmail").Invoke($this,"http://new.vanhoecke.be/nl/api/user/info#getCustomerFromEmail",.email)
+]]></Implementation>
+</Method>
 </Class>
 </Export>