Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r40973 -r40974
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40973)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40974)
@@ -8,6 +8,10 @@
 <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()
@@ -24,7 +28,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(1))
+	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(..GeefGebruikerIDLijst(1))
 	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", "GebruikerID").DanReturn(Toegang)
 	
 	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock)
@@ -54,11 +58,11 @@
 	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("ZoekGebruikerIDViaEmail", ..#DummyMail).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")
+	Do Vhisie4KlantInfoOphaler.VerwachtMethodCall("GeefKlantIDViaEmail", ..#DummyMail).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)
@@ -74,6 +78,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Email bestaat niet in Vhisie4 en geeft exceptie">
+<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 ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryMock.VerwachtMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).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", "OngekendEmailAdres").DanReturn("")
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het emailadres, " _ ..#DummyMail _ ", 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)
+	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
+]]></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"))
@@ -82,7 +107,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(1))
+	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", ..#DummyMail).DanReturn(..GeefGebruikerIDLijst(1))
 	Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(Toegang)
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen ondersteuning voor meerdere klanten")