Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml
===================================================================
diff -u -r40971 -r40972
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40971)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40972)
@@ -9,10 +9,10 @@
 <Super>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="getCustomerFromEmail">
+<Method name="GeefKlantIDViaEmail">
 <FormalSpec>email:%String</FormalSpec>
-<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.tns.Customer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("getCustomerFromEmail",email)
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantIDViaEmail",email)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r40970 -r40972
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40970)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40972)
@@ -44,7 +44,7 @@
 	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..ToegangRepository = $$$Inject(ToegangRepository, ##class(Derde.EC.ToegangRepository).%New())
-	Set ..Vhisie4KlantInfoOphaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
+	Set ..Vhisie4KlantInfoOphaler = $$$Inject(Vhisie4KlantInfoOphaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New())
 	
 	quit $$$OK
 ]]></Implementation>
@@ -66,7 +66,7 @@
 	} else {
 		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
 		Set Klant.Toegang = ..ToegangRepository.GeefViaID(..#DefaultToegangIDVoorVhisie4)
-		Set KlantID = ..Vhisie4KlantInfoOphaler.getCustomerFromEmail(UserCart.userName).customerId
+		Set KlantID = ..Vhisie4KlantInfoOphaler.GeefKlantIDViaEmail(UserCart.userName)
 		If (KlantID = "") {
 			Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName)
 			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml
===================================================================
diff -u -r40971 -r40972
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40971)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40972)
@@ -42,7 +42,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantIDViaEmail">
+<FormalSpec>email:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantID As %Integer = ..getCustomerFromEmail(email).customerId
+	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>
Index: vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml
===================================================================
diff -u -r40971 -r40972
--- vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40971)
+++ vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Vhisie4KlantInfoOphaler.cls.xml	(.../Vhisie4KlantInfoOphaler.cls.xml)	(revision 40972)
@@ -7,9 +7,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler</Super>
 
-<Method name="getCustomerFromEmail">
+<Method name="GeefKlantIDViaEmail">
 <FormalSpec>email:%String</FormalSpec>
-<ReturnType>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.tns.Customer</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>