Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r40960 -r40969
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40960)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40969)
@@ -19,6 +19,7 @@
 	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())
 	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", "GebruikerID").DanReturn(Toegang)
 	
 	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock,ToegangRepositoryMock)
@@ -43,6 +44,7 @@
 	Do UserCartValidatorStub.IndienMethodCall("GeefGebruikerID", $$$ElkeWaarde).DanReturn("")
 	
 	Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", "dummy@dum.my").DanReturn(..GeefGebruikerIDLijst())
 	Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(Toegang)
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen ondersteuning voor meerdere klanten")
@@ -58,6 +60,7 @@
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
+	Set Winkelkar.userName = "dummy@dum.my"
 	Quit Winkelkar
 ]]></Implementation>
 </Method>
@@ -84,6 +87,16 @@
 	Quit Klant
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGebruikerIDLijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set GebruikerIDLijst = ##class(%ListOfDataTypes).%New()
+	Do GebruikerIDLijst.Insert("DummyID1")
+	Quit GebruikerIDLijst
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r40960 -r40969
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40960)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40969)
@@ -3,6 +3,11 @@
 <Class name="APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="DefaultToegangIDVoorVhisie4">
+<Type>%String</Type>
+<Default>0</Default>
+</Parameter>
+
 <Property name="UserCartValidator">
 <Type>APPS.Blum.impl.UserCartValidator</Type>
 <Private>1</Private>
@@ -50,22 +55,38 @@
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Klant</ReturnType>
 <Implementation><![CDATA[
 	Set Klant = ##class(APPS.Blum.OnlineProductConfigurator.dto.Klant).%New()
+
+	#dim KlantID As %String = ""	
 	
-	// hier try catchen of gaan we checken op userid, toegangid, ...
+	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())
+		Set KlantID = Klant.Toegang.GetKlant()	
+	} else {
+		;Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
+		;Set Klant.Toegang = ..ToegangRepository.GeefViaID(..#DefaultToegangIDVoorVhisie4)
+		;Set KlantID = ..Vhisie4KlantInfoOphaler.getCustomerFromEmail(UserCart.userName).customerId
+		;If (KlantID = "") {
+		;	Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName)
+		;	Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		;}
+	}
 	
-	Set Klant.Toegang = ..ToegangRepository.GeefViaID(..UserCartValidator.GeefGebruikerID(UserCart.userName))
-	Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3()
-	Do ..ValideerAantalKlanten(Klant.Toegang.Klanten.Count())
-	Set Klant.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(Klant.Toegang.GetKlant()))
-
-	;#dim KlantID As %String = ..Vhisie4KlantInfoOphaler.getCustomerFromEmail(UserCart.userName)
-	/// Wat doen we hiermee ? klant aanmaken en wegschrijven of enkel gebruiken om cart te maken ?
-	/// Wat met toegang ?
+	Set Klant.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(KlantID))
 	
 	Quit Klant
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatEmail">
+<FormalSpec>Email:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ToegangRepository.ZoekGebruikerIDViaEmail(Email) > 0)
+]]></Implementation>
+</Method>
+
 <Method name="ValideerAantalKlanten">
 <FormalSpec>AantalKlanten:%Integer</FormalSpec>
 <Private>1</Private>