Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r41996 -r41997
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41996)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41997)
@@ -40,6 +40,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: als de gebruiker zijn winkelkar gemigreerd is is het een Vhisie4 ConfiguratorKlant met correcte Toegang en VanHoeckeKlant">
+<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 Vhisie4KlantBepalerStub = ##class(vhTest.Mock.WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New()
+	Do Vhisie4KlantBepalerStub.IndienMethodCall("IsVhisie4Klant", $$$ElkeWaarde).DanReturn($$$True)
+	
+	Set UserCartValidatorStub = ##class(vhTest.Mock.APPS.Blum.impl.UserCartValidator).%New()
+	Do UserCartValidatorStub.IndienMethodCall("GeefGebruikerID", $$$ElkeWaarde).DanReturn("GebruikerID")
+	
+	Set LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIStub.IndienMethodCall("GeefKlantPartijID", $$$ElkeWaarde).DanReturn("K||KlantID")
+	
+	Set VerkoopAPIStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIStub.IndienMethodCall("GeefKlant", $$$ElkeWaarde).DanReturn(VanHoeckeKlant)
+	
+	Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", $$$ElkeWaarde).DanReturn(..GeefGebruikerIDLijst(1))
+	Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(Toegang)
+	
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorStub, LegacyPartijAPIStub, VerkoopAPIStub, ToegangRepositoryStub, ,Vhisie4KlantBepalerStub)
+	#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)
+]]></Implementation>
+</Method>
+
 <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()