Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r40970 -r40973
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40970)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40973)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="DefaultToegangIDVoorVhisie4">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
 <Method name="Test: geeft Vhisie3 ConfiguratorKlant terug met correcte Toegang en VanHoeckeKlant">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
@@ -22,7 +27,7 @@
 	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").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)
 	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
 	
 	Do $$$AssertEquals(ConfiguratorKlant.Type, ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3())
@@ -36,6 +41,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Email bestaat niet in Toegang en geeft Vhisie4 ConfiguratorKlant terug met default Toegang en VanHoeckeKlant">
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
+	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
+	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
+	
+	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID", "KlantID").DanReturn("K||KlantID")
+	
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||KlantID").DanReturn(VanHoeckeKlant)
+	
+	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").DanReturn(..GeefGebruikerIDLijst(0))
+	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", ..#DefaultToegangIDVoorVhisie4).DanReturn(Toegang)
+	
+	Set Vhisie4KlantInfoOphaler = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
+	Do Vhisie4KlantInfoOphaler.VerwachtMethodCall("GeefKlantIDViaEmail", "dummy@dum.my").DanReturn("KlantID")
+	
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock, Vhisie4KlantInfoOphaler)
+	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
+	
+	Do $$$AssertEquals(ConfiguratorKlant.Type, ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4())
+	Do $$$AssertEquals(ConfiguratorKlant.Toegang, Toegang)
+	Do $$$AssertEquals(ConfiguratorKlant.Klant, VanHoeckeKlant)
+	
+	Do Vhisie4KlantInfoOphaler.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
+	Do VerkoopAPIMock.Verifieer()
+	Do ToegangRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: geeft Exceptie wanneer er meerdere klanten gedefinieerd zijn">
 <Implementation><![CDATA[
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID1","KlantID1"))