Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r44787 -r50219
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 44787)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 50219)
@@ -6,17 +6,17 @@
 <Method name="Test: Email 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"))
+	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("01234"))
 	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
 	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID", "KlantID").DanReturn("K||KlantID")
+	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID", "1234").DanReturn("K||1234")
 
 	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
-	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||KlantID").DanReturn(VanHoeckeKlant)
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||1234").DanReturn(VanHoeckeKlant)
 
 	Set Vhisie4KlantInfoOphalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New()
-	Do Vhisie4KlantInfoOphalerMock.VerwachtMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("KlantID")
+	Do Vhisie4KlantInfoOphalerMock.VerwachtMethodCall("GeefKlantIDViaEmail", Winkelkar.userName).DanReturn("01234")
 	
 	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(LegacyPartijAPIMock, VerkoopAPIMock, Vhisie4KlantInfoOphalerMock)
 	#dim ConfiguratorKlant As DOM.VKP.VanHoeckeKlant = KlantBepaler.GeefKlant(Winkelkar)
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r44787 -r50219
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 44787)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 50219)
@@ -43,9 +43,10 @@
 		Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName)
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
-
-	#dim KlantPartijID As DOM.common.PartijID = ..LegacyPartijAPI.GeefKlantPartijID(KlantID)
 	
+	#dim VanHoeckeKlantID As %String = ##class(AXimpl.Utils.KlantIdConverter).%New().ConvertToVanHoecke(KlantID, ##class(DOM.common.enu.Personality).VanHoecke())
+	#dim KlantPartijID As DOM.common.PartijID = ..LegacyPartijAPI.GeefKlantPartijID(VanHoeckeKlantID)
+	
 	Quit ..VerkoopAPI.GeefKlant(KlantPartijID)
 ]]></Implementation>
 </Method>