Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r40972 -r41006
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40972)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 41006)
@@ -3,11 +3,6 @@
 <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>
@@ -65,7 +60,7 @@
 		Set KlantID = Klant.Toegang.GetKlant()	
 	} else {
 		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
-		Set Klant.Toegang = ..ToegangRepository.GeefViaID(..#DefaultToegangIDVoorVhisie4)
+		Set Klant.Toegang = ""
 		Set KlantID = ..Vhisie4KlantInfoOphaler.GeefKlantIDViaEmail(UserCart.userName)
 		If (KlantID = "") {
 			Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName)
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r40977 -r41006
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40977)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41006)
@@ -3,11 +3,6 @@
 <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()
@@ -41,7 +36,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Email bestaat niet in Toegang en geeft Vhisie4 ConfiguratorKlant terug met default Toegang en VanHoeckeKlant">
+<Method name="Test: Email bestaat niet in Toegang en geeft Vhisie4 ConfiguratorKlant terug met VanHoeckeKlant">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
@@ -55,7 +50,6 @@
 	
 	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
 	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(0))
-	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", ..#DefaultToegangIDVoorVhisie4).DanReturn(Toegang)
 	
 	Set Vhisie4KlantInfoOphalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
 	Do Vhisie4KlantInfoOphalerMock.VerwachtMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("KlantID")
@@ -64,7 +58,7 @@
 	#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.Toegang, "")
 	Do $$$AssertEquals(ConfiguratorKlant.Klant, VanHoeckeKlant)
 	
 	Do Vhisie4KlantInfoOphalerMock.Verifieer()
@@ -82,7 +76,6 @@
 	
 	Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
 	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(0))
-	Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", ..#DefaultToegangIDVoorVhisie4).DanReturn(Toegang)
 	
 	Set Vhisie4KlantInfoOphalerStub = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
 	Do Vhisie4KlantInfoOphalerStub.IndienMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("")