Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r40975 -r40977
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40975)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 40977)
@@ -57,17 +57,17 @@
 	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", Winkelkar.userName).DanReturn("KlantID")
+	Set Vhisie4KlantInfoOphalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
+	Do Vhisie4KlantInfoOphalerMock.VerwachtMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("KlantID")
 	
-	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock, Vhisie4KlantInfoOphaler)
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock, Vhisie4KlantInfoOphalerMock)
 	#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 Vhisie4KlantInfoOphalerMock.Verifieer()
 	Do LegacyPartijAPIMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
 	Do ToegangRepositoryMock.Verifieer()
@@ -80,17 +80,17 @@
 	Set Winkelkar.userName = "OngekendEmailAdres"
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
 	
-	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryMock.IndienMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(0))
-	Do ToegangRepositoryMock.IndienMethodCall("GeefViaID", ..#DefaultToegangIDVoorVhisie4).DanReturn(Toegang)
+	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 Vhisie4KlantInfoOphaler = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
-	Do Vhisie4KlantInfoOphaler.IndienMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("")
+	Set Vhisie4KlantInfoOphalerStub = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
+	Do Vhisie4KlantInfoOphalerStub.IndienMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("")
 	
 	#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)
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(, , , ToegangRepositoryStub, Vhisie4KlantInfoOphalerStub)
 	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
 ]]></Implementation>
 </Method>