Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r40974 -r40975
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40974)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40975)
@@ -8,10 +8,6 @@
 <Default>0</Default>
 </Parameter>
 
-<Parameter name="DummyMail">
-<Default>dummy@dum.my</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()
@@ -28,7 +24,7 @@
 	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||KlantID").DanReturn(VanHoeckeKlant)
 	
 	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(..GeefGebruikerIDLijst(1))
+	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)
@@ -58,11 +54,11 @@
 	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||KlantID").DanReturn(VanHoeckeKlant)
 	
 	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(..GeefGebruikerIDLijst(0))
+	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).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", ..#DummyMail).DanReturn("KlantID")
+	Do Vhisie4KlantInfoOphaler.VerwachtMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).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)
@@ -81,17 +77,17 @@
 <Method name="Test: Email bestaat niet in Vhisie4 en geeft exceptie">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
+	Set Winkelkar.userName = "OngekendEmailAdres"
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
-	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
 	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(..GeefGebruikerIDLijst(0))
-	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", ..#DefaultToegangIDVoorVhisie4).DanReturn(Toegang)
+	Do ToegangRepositoryMock.IndienMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(0))
+	Do ToegangRepositoryMock.IndienMethodCall("GeefViaID", ..#DefaultToegangIDVoorVhisie4).DanReturn(Toegang)
 	
 	Set Vhisie4KlantInfoOphaler = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
-	Do Vhisie4KlantInfoOphaler.VerwachtMethodCall("GeefKlantIDViaEmail", "OngekendEmailAdres").DanReturn("")
+	Do Vhisie4KlantInfoOphaler.IndienMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("")
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het emailadres, " _ ..#DummyMail _ ", is niet gekend.")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het emailadres, OngekendEmailAdres, is niet gekend.")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie",Substrings))
 	
 	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(, , , ToegangRepositoryMock, Vhisie4KlantInfoOphaler)
@@ -101,20 +97,21 @@
 
 <Method name="Test: geeft Exceptie wanneer er meerdere klanten gedefinieerd zijn">
 <Implementation><![CDATA[
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID1","KlantID1"))
 	
 	Set UserCartValidatorStub = ##class(vhTest.Mock.APPS.Blum.impl.UserCartValidator).%New()
 	Do UserCartValidatorStub.IndienMethodCall("GeefGebruikerID", $$$ElkeWaarde).DanReturn("")
 	
 	Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(..GeefGebruikerIDLijst(1))
+	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(1))
 	Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(Toegang)
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen ondersteuning voor meerdere klanten")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
 	
 	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorStub,,,ToegangRepositoryStub)
-	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(..GeefWinkelkar())
+	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
 ]]></Implementation>
 </Method>