Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r29059 -r40924
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 29059)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 40924)
@@ -3,6 +3,30 @@
 <Class name="APPS.Blum.impl.OnlineProductConfiguratorService">
 <Super>TECH.RegisteredObject,APPS.Blum.OnlineProductConfiguratorService</Super>
 
+<Property name="KlantBepaler">
+<Type>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converteerder">
+<Type>APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,Converteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantBepaler = $$$Inject(KlantBepaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New())
+	Set ..Converteerder = $$$Inject(Converteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder).%New())
+
+	quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeAanWinkelkar">
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
@@ -14,28 +38,21 @@
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
 <Implementation><![CDATA[
-	#dim ToegangID As %String = ##class(APPS.Blum.impl.UserCartValidator).%New().GeefGebruikerID(UserCart)
+	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..KlantBepaler.GeefKlant(UserCart)
 	
-	#dim Toegang As Derde.EC.Toegang = ##class(Derde.EC.Toegang).%OpenId(ToegangID)
-	#dim Klanten As %ListOfDataTypes = Toegang.Klanten
+	if Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3() {
+		#dim OfferteHoofding As Flow.Offerte.Hoofding = ..Converteerder.Converteer(UserCart,Klant.Klant,Klant.Toegang.GeefID())
+		Do OfferteHoofding.Save()
+		
+		Set Webshop = ##class(APPS.Blum.OnlineProductConfigurator.dto.Webshop).%New()
+		Set Webshop.ID = OfferteHoofding.GeefID()
+		Set Webshop.Taal = Klant.Toegang.Taal.BasisTaalID()
+	} ;Elseif Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4() {
+		
+	;} Else {
+		// crash boem petat	
+	;}
 	
-	if Klanten.Count() > 1 {
-		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Geen ondersteuning voor meerdere klanten")
-		do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	
-	#dim KlantNr As %String = Toegang.GetKlant()
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
-	#dim Converteerder As APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder).%New()
-	#dim OfferteHoofding As Flow.Offerte.Hoofding = Converteerder.Converteer(UserCart,Klant,ToegangID)
-	
-	do OfferteHoofding.Save()
-	
-	set Webshop = ##class(APPS.Blum.OnlineProductConfigurator.dto.Webshop).%New()
-	set Webshop.ID = OfferteHoofding.GeefID()
-	set Webshop.Taal = Toegang.Taal.BasisTaalID()
-	
 	Quit Webshop
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/Flow/Offerte/Hoofding.cls.xml
===================================================================
diff -u
--- vhTest/Mock/Flow/Offerte/Hoofding.cls.xml	(revision 0)
+++ vhTest/Mock/Flow/Offerte/Hoofding.cls.xml	(revision 40924)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.Flow.Offerte.Hoofding">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Save">
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Save")
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("GeefID")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(revision 40924)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfiguratorService.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: ">
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar() 
+	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..GeefKlant()
+	
+	Set HoofdingMock = ##class(vhTest.Mock.Flow.Offerte.Hoofding).%New()
+	Do HoofdingMock.VerwachtMethodCall("Save").DanDoeNiks()
+	Do HoofdingMock.VerwachtMethodCall("GeefID").DanReturn("HoofdingID")
+	
+	Set KlantBepalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New()
+	Do KlantBepalerMock.VerwachtMethodCall("GeefKlant", Winkelkar).DanReturn(Klant)
+	
+	Set ConverteerderMock = ##class(vhTest.Mock.APPS.Blum.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder).%New()
+	Do ConverteerderMock.VerwachtMethodCall("Converteer", Winkelkar, Klant.Klant, Klant.Toegang.GeefID()).DanReturn(HoofdingMock)
+	
+	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerMock, ConverteerderMock)
+	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop = ConfiguratorService.VoegToeAanWinkelkar(Winkelkar)
+	
+	Do $$$AssertEquals(Webshop.ID, "HoofdingID")
+	Do $$$AssertEquals(Webshop.Taal, Klant.Toegang.Taal.BasisTaalID())
+
+	Do KlantBepalerMock.Verifieer()
+	Do ConverteerderMock.Verifieer()
+	Do HoofdingMock.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="GeefKlant">
+<Private>1</Private>
+<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Klant</ReturnType>
+<Implementation><![CDATA[
+	Set Klant = ##class(APPS.Blum.OnlineProductConfigurator.dto.Klant).%New()
+	Set Klant.Klant = ..GeefVanHoeckeKlant()
+	Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3()
+	Set Klant.Toegang = ..GeefToegang($LB("KlandID"))
+	Quit Klant
+]]></Implementation>
+</Method>
+
+<Method name="GeefToegang">
+<FormalSpec>Klanten:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>Derde.EC.Toegang</ReturnType>
+<Implementation><![CDATA[
+	Set Toegang = ##class(Derde.EC.Toegang).%New()
+	Set Toegang.Taal = ##class(Res.PI.Taal).BasisTaalObj()
+	#dim KlantenIterator As TECH.ListbuildIterator = ##class(TECH.ListbuildIterator).%New(Klanten)
+	While KlantenIterator.HasNext() {
+		Do Toegang.Klanten.Insert(KlantenIterator.Next())
+	}
+	Quit Toegang
+]]></Implementation>
+</Method>
+
+<Method name="GeefVanHoeckeKlant">
+<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>