Index: vhDeploy/Deploy20170502xVhisie4OpcKlantInfoOphaler.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20170502xVhisie4OpcKlantInfoOphaler.cls.xml	(revision 0)
+++ vhDeploy/Deploy20170502xVhisie4OpcKlantInfoOphaler.cls.xml	(revision 42171)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20170502xVhisie4OpcKlantInfoOphaler">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Config item voor switchen tussen productie en dummy klassen.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim Sleutel As %String = "APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler_Implementatie"
+	#dim ProductieWaarde As %String = "APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphalerHttps"
+	#dim DevelopmentWaarde As %String = "APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphalerHttp"
+	
+	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)
+		}
+	}
+	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("Vhisie4SSLConfiguration","Vhisie4")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml
===================================================================
diff -u -r41228 -r42171
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 41228)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 42171)
@@ -1,76 +1,37 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%SOAP.WebClient,TECH.Mockable</Super>
+<Super>TECH.Mockable</Super>
 
-<Parameter name="LOCATION">
-<Description>
-This is the URL used to access the web service.</Description>
-<Default>http://website.testing.vanhoecke.be/nl/api/user/info</Default>
-</Parameter>
+<Property name="ObjectApi">
+<Type>TECH.Object.ObjectAPI</Type>
+<Private>1</Private>
+</Property>
 
-<Parameter name="NAMESPACE">
-<Description>
-This is the namespace used by the Service</Description>
-<Default>http://new.vanhoecke.be/api/user/info</Default>
-</Parameter>
-
-<Parameter name="OUTPUTTYPEATTRIBUTE">
-<Description>
-Use xsi:type attribute for literal types.</Description>
-<Default>1</Default>
-</Parameter>
-
-<Parameter name="SERVICENAME">
-<Description>
-This is the name of the Service</Description>
-<Default>userServiceService</Default>
-</Parameter>
-
-<Parameter name="SOAPVERSION">
-<Description>
-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
+	Set ..ObjectApi = ##class(TECH.Context).Instance().GeefObjectAPI()
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKlantIDViaEmail">
 <FormalSpec>email:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim KlantID As %Integer 
-	Try {
-		Set KlantID = ..getCustomerFromEmail(email).customerId
-	} Catch {
-		Set Exceptie = ##class(TECH.Exceptions.CommunicationErrorException).%New("Blum OPC - Email '" _email _"' kan niet gecontroleerd worden !")
-		Do Exceptie.VoegToeInnerExceptie(##class(TECH.ExceptionHandler).Catch())
-		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)	
-	}
-	Quit KlantID
+<Implementation><![CDATA[	Quit ..MaakKlasseInstance().GeefKlantIDViaEmail(email)
 ]]></Implementation>
 </Method>
 
-<Method name="getCustomerFromEmail">
-<Final>1</Final>
-<FormalSpec>email:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.tns.Customer</ReturnType>
-<WebMethod>1</WebMethod>
-<SoapBindingStyle>rpc</SoapBindingStyle>
-<SoapBodyUse>encoded</SoapBodyUse>
-<Implementation><![CDATA[ Quit ..WebMethod("getCustomerFromEmail").Invoke($this,"http://new.vanhoecke.be/api/user/info#getCustomerFromEmail",.email)
+<Method name="MaakKlasseInstance">
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#dim VolledigeKlasseNaam As TECH.String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler_Implementatie")
+	Quit ..ObjectApi.New(VolledigeKlasseNaam)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml
===================================================================
diff -u -r40972 -r42171
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40972)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 42171)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphalerHttps.cls.xml
===================================================================
diff -u
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphalerHttps.cls.xml	(revision 0)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphalerHttps.cls.xml	(revision 42171)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphalerHttps">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebClient</Super>
+
+<Parameter name="LOCATION">
+<Description>
+This is the URL used to access the web service.</Description>
+<Default>http://website.testing.vanhoecke.be/nl/api/user/info</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>https://new.vanhoecke.be/api/user/info</Default>
+</Parameter>
+
+<Parameter name="OUTPUTTYPEATTRIBUTE">
+<Description>
+Use xsi:type attribute for literal types.</Description>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>userServiceService</Default>
+</Parameter>
+
+<Parameter name="SOAPVERSION">
+<Description>
+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")
+	Set ..SSLConfiguration = ##class(TECH.Config.ConfigMgr).Instance().GetString("Vhisie4SSLConfiguration")
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantIDViaEmail">
+<FormalSpec>email:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantID As %Integer 
+	Try {
+		Set KlantID = ..getCustomerFromEmail(email).customerId
+	} Catch {
+		Set Exceptie = ##class(TECH.Exceptions.CommunicationErrorException).%New("Blum OPC - Email '" _email _"' kan niet gecontroleerd worden !")
+		Do Exceptie.VoegToeInnerExceptie(##class(TECH.ExceptionHandler).Catch())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)	
+	}
+	Quit KlantID
+]]></Implementation>
+</Method>
+
+<Method name="getCustomerFromEmail">
+<Final>1</Final>
+<FormalSpec>email:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.tns.Customer</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>rpc</SoapBindingStyle>
+<SoapBodyUse>encoded</SoapBodyUse>
+<Implementation><![CDATA[ Quit ..WebMethod("getCustomerFromEmail").Invoke($this,"http://new.vanhoecke.be/api/user/info#getCustomerFromEmail",.email)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphalerHttp.cls.xml
===================================================================
diff -u
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphalerHttp.cls.xml	(revision 0)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphalerHttp.cls.xml	(revision 42171)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphalerHttp">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SOAP.WebClient</Super>
+
+<Parameter name="LOCATION">
+<Description>
+This is the URL used to access the web service.</Description>
+<Default>http://website.testing.vanhoecke.be/nl/api/user/info</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+This is the namespace used by the Service</Description>
+<Default>http://new.vanhoecke.be/api/user/info</Default>
+</Parameter>
+
+<Parameter name="OUTPUTTYPEATTRIBUTE">
+<Description>
+Use xsi:type attribute for literal types.</Description>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+This is the name of the Service</Description>
+<Default>userServiceService</Default>
+</Parameter>
+
+<Parameter name="SOAPVERSION">
+<Description>
+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="GeefKlantIDViaEmail">
+<FormalSpec>email:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantID As %Integer 
+	Try {
+		Set KlantID = ..getCustomerFromEmail(email).customerId
+	} Catch {
+		Set Exceptie = ##class(TECH.Exceptions.CommunicationErrorException).%New("Blum OPC - Email '" _email _"' kan niet gecontroleerd worden !")
+		Do Exceptie.VoegToeInnerExceptie(##class(TECH.ExceptionHandler).Catch())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)	
+	}
+	Quit KlantID
+]]></Implementation>
+</Method>
+
+<Method name="getCustomerFromEmail">
+<Final>1</Final>
+<FormalSpec>email:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.tns.Customer</ReturnType>
+<WebMethod>1</WebMethod>
+<SoapBindingStyle>rpc</SoapBindingStyle>
+<SoapBodyUse>encoded</SoapBodyUse>
+<Implementation><![CDATA[ Quit ..WebMethod("getCustomerFromEmail").Invoke($this,"http://new.vanhoecke.be/api/user/info#getCustomerFromEmail",.email)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>