Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r41006 -r41996
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 41006)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 41996)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantenBepaler">
+<Type>WSdata.Vhisie4.Winkelkar.KlantenBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>UserCartValidator:APPS.Blum.impl.UserCartValidator,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,ToegangRepository:Derde.EC.ToegangRepository,Vhisie4KlantInfoOphaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler</FormalSpec>
+<FormalSpec>UserCartValidator:APPS.Blum.impl.UserCartValidator,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,ToegangRepository:Derde.EC.ToegangRepository,Vhisie4KlantInfoOphaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler,KlantenBepaler:WSdata.Vhisie4.Winkelkar.KlantenBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,7 +45,8 @@
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
 	Set ..ToegangRepository = $$$Inject(ToegangRepository, ##class(Derde.EC.ToegangRepository).%New())
 	Set ..Vhisie4KlantInfoOphaler = $$$Inject(Vhisie4KlantInfoOphaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New())
-	
+	Set ..KlantenBepaler = $$$Inject(KlantenBepaler, ##class(WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New())
+
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -49,11 +55,10 @@
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Klant</ReturnType>
 <Implementation><![CDATA[
-	Set Klant = ##class(APPS.Blum.OnlineProductConfigurator.dto.Klant).%New()
-
 	#dim KlantID As %String = ""	
+	Set Klant = ##class(APPS.Blum.OnlineProductConfigurator.dto.Klant).%New()
 	
-	if ..BestaatEmail(UserCart.userName) {
+	If ..BestaatEmail(UserCart.userName) {
 		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3()
 		Set Klant.Toegang = ..ToegangRepository.GeefViaID(..UserCartValidator.GeefGebruikerID(UserCart.userName))
 		Do ..ValideerAantalKlanten(Klant.Toegang.Klanten.Count())
@@ -67,9 +72,14 @@
 			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 		}
 	}
+
+	#dim KlantPartijID As DOM.common.PartijID = ..LegacyPartijAPI.GeefKlantPartijID(KlantID)
+	Set Klant.Klant = ..VerkoopAPI.GeefKlant(KlantPartijID)
+
+	If ..KlantenBepaler.IsVhisie4Klant(KlantPartijID) {
+		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
+	} 
 	
-	Set Klant.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(KlantID))
-	
 	Quit Klant
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r40923 -r41996
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40923)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 41996)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler">
 <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,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r41006 -r41996
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41006)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41996)
@@ -9,6 +9,9 @@
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
 	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
+	Set Vhisie4KlantBepalerMock = ##class(vhTest.Mock.WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New()
+	Do Vhisie4KlantBepalerMock.VerwachtMethodCall("IsVhisie4Klant", "K||KlantID").DanReturn($$$False)
+	
 	Set UserCartValidatorMock = ##class(vhTest.Mock.APPS.Blum.impl.UserCartValidator).%New()
 	Do UserCartValidatorMock.VerwachtMethodCall("GeefGebruikerID", Winkelkar.userName).DanReturn("GebruikerID")
 	
@@ -22,7 +25,7 @@
 	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(1))
 	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", "GebruikerID").DanReturn(Toegang)
 	
-	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock)
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock, ,Vhisie4KlantBepalerMock)
 	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
 	
 	Do $$$AssertEquals(ConfiguratorKlant.Type, ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3())
@@ -33,6 +36,7 @@
 	Do LegacyPartijAPIMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
 	Do ToegangRepositoryMock.Verifieer()
+	Do Vhisie4KlantBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>