Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(revision 40917)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft Vhisie3 ConfiguratorKlant terug met correcte Toegang en VanHoeckeKlant">
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
+	#dim Toegang As Derde.EC.Toegang = ..GeefToegang("KlantID")
+	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefKlant()
+	
+	Set UserCartValidatorMock = ##class(vhTest.Mock.APPS.Blum.impl.UserCartValidator).%New()
+	Do UserCartValidatorMock.VerwachtMethodCall("GeefGebruikerID", Winkelkar).DanReturn("GebruikerID")
+	
+	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID", "KlantID").DanReturn("K||KlantID")
+	
+	Set VerkoopAPIMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopAPIMock.VerwachtMethodCall("GeefKlant", "K||KlantID").DanReturn(VanHoeckeKlant)
+	
+	Set ToegangRepositoryMock = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
+	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", "GebruikerID").DanReturn(Toegang)
+	
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock,ToegangRepositoryMock)
+	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
+	
+	Do $$$AssertEquals(ConfiguratorKlant.Type, ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3())
+	Do $$$AssertEquals(ConfiguratorKlant.Toegang, Toegang)
+	Do $$$AssertEquals(ConfiguratorKlant.Klant, VanHoeckeKlant)
+	
+	Do UserCartValidatorMock.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
+	Do VerkoopAPIMock.Verifieer()
+	Do ToegangRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWinkelkar">
+<Private>1</Private>
+<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="GeefToegang">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Derde.EC.Toegang</ReturnType>
+<Implementation><![CDATA[
+	Set Toegang = ##class(Derde.EC.Toegang).%New()
+	Do Toegang.Klanten.Insert(KlantID)
+	Quit Toegang
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	Quit Klant
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(revision 0)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(revision 40917)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="UserCartValidator">
+<Type>APPS.Blum.impl.UserCartValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToegangRepository">
+<Type>Derde.EC.ToegangRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>UserCartValidator:APPS.Blum.impl.UserCartValidator,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,ToegangRepository:Derde.EC.ToegangRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..UserCartValidator = $$$Inject(UserCartValidator, ##class(APPS.Blum.impl.UserCartValidator).%New())
+	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..ToegangRepository = $$$Inject(ToegangRepository, ##class(Derde.EC.ToegangRepository).%New())
+	
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlant">
+<FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
+<Implementation><![CDATA[
+	Set Klant = ##class(APPS.Blum.OnlineProductConfigurator.dto.Klant).%New()
+	Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3()
+	
+	Set Klant.Toegang = ..ToegangRepository.GeefViaID(..UserCartValidator.GeefGebruikerID(UserCart))
+	
+	;Do ..ValideerAantalKlanten(Klant.Toegang.Klanten.Count())
+	
+	Set Klant.Klant = ..VerkoopAPI.GeefKlant(..LegacyPartijAPI.GeefKlantPartijID(Klant.Toegang.GetKlant()))
+
+	Quit Klant
+]]></Implementation>
+</Method>
+
+<Method name="ValideerAantalKlanten">
+<FormalSpec>AantalKlanten:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if AantalKlanten > 1 {
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Geen ondersteuning voor meerdere klanten")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>