Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml
===================================================================
diff -u -r41998 -r44787
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 41998)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 44787)
@@ -3,103 +3,29 @@
 <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">
+<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 VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
-	Set Vhisie4KlantBepalerMock = ##class(vhTest.Mock.WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New()
-	Do Vhisie4KlantBepalerMock.VerwachtMethodCall("IsVhisie4Klant", "K||KlantID").DanReturn($$$False)
-	
-	Set UserCartValidatorMock = ##class(vhTest.Mock.APPS.Blum.impl.UserCartValidator).%New()
-	Do UserCartValidatorMock.VerwachtMethodCall("GeefGebruikerID", Winkelkar.userName).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("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(1))
-	Do ToegangRepositoryMock.VerwachtMethodCall("GeefViaID", "GebruikerID").DanReturn(Toegang)
-	
-	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorMock, LegacyPartijAPIMock, VerkoopAPIMock, ToegangRepositoryMock, ,Vhisie4KlantBepalerMock)
-	#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()
-	Do Vhisie4KlantBepalerMock.Verifieer()
-]]></Implementation>
-</Method>
 
-<Method name="Test: als de gebruiker zijn winkelkar gemigreerd is is het een Vhisie4 ConfiguratorKlant met 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()
-	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
-	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
-	
-	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("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(0))
-	
+
 	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, Vhisie4KlantInfoOphalerMock)
-	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(LegacyPartijAPIMock, VerkoopAPIMock, Vhisie4KlantInfoOphalerMock)
+	#dim ConfiguratorKlant As DOM.VKP.VanHoeckeKlant = KlantBepaler.GeefKlant(Winkelkar)
 	
-	Do $$$AssertEquals(ConfiguratorKlant.Type, ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4())
-	Do $$$AssertEquals(ConfiguratorKlant.Toegang, "")
-	Do $$$AssertEquals(ConfiguratorKlant.Klant, VanHoeckeKlant)
+	Do $$$AssertEquals(ConfiguratorKlant, VanHoeckeKlant)
 	
 	Do Vhisie4KlantInfoOphalerMock.Verifieer()
-	Do LegacyPartijAPIMock.Verifieer()
 	Do VerkoopAPIMock.Verifieer()
-	Do ToegangRepositoryMock.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -109,40 +35,17 @@
 	Set Winkelkar.userName = "OngekendEmailAdres"
 	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID"))
 	
-	Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(0))
-	
 	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(, , , ToegangRepositoryStub, Vhisie4KlantInfoOphalerStub)
-	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
+	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(, ,Vhisie4KlantInfoOphalerStub)
+	#dim ConfiguratorKlant As DOM.VKP.VanHoeckeKlant = KlantBepaler.GeefKlant(Winkelkar)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: geeft Exceptie wanneer er meerdere klanten gedefinieerd zijn">
-<Implementation><![CDATA[
-	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar()
-	#dim Toegang As Derde.EC.Toegang = ..GeefToegang($LB("KlantID1","KlantID1"))
-	
-	Set UserCartValidatorStub = ##class(vhTest.Mock.APPS.Blum.impl.UserCartValidator).%New()
-	Do UserCartValidatorStub.IndienMethodCall("GeefGebruikerID", $$$ElkeWaarde).DanReturn("")
-	
-	Set ToegangRepositoryStub = ##class(vhTest.Mock.Derde.EC.ToegangRepository).%New()
-	Do ToegangRepositoryStub.IndienMethodCall("ZoekGebruikerIDViaEmail", Winkelkar.userName).DanReturn(..GeefGebruikerIDLijst(1))
-	Do ToegangRepositoryStub.IndienMethodCall("GeefViaID", $$$ElkeWaarde).DanReturn(Toegang)
-
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen ondersteuning voor meerdere klanten")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
-	
-	Set KlantBepaler = ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New(UserCartValidatorStub,,,ToegangRepositoryStub)
-	#dim ConfiguratorKlant As APPS.Blum.OnlineProductConfigurator.dto.Klant = KlantBepaler.GeefKlant(Winkelkar)
-]]></Implementation>
-</Method>
-
 <Method name="GeefWinkelkar">
 <Private>1</Private>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
FishEye: Tag 44787 refers to a dead (removed) revision in file `WSdata/Vhisie4/Winkelkar/KlantenBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r41996 -r44787
--- APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 41996)
+++ APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 44787)
@@ -3,11 +3,6 @@
 <Class name="APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler">
 <Super>TECH.Mockable</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>
@@ -18,90 +13,42 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ToegangRepository">
-<Type>Derde.EC.ToegangRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Vhisie4KlantInfoOphaler">
 <Type>APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KlantenBepaler">
-<Type>WSdata.Vhisie4.Winkelkar.KlantenBepaler</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,Vhisie4KlantInfoOphaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler,KlantenBepaler:WSdata.Vhisie4.Winkelkar.KlantenBepaler</FormalSpec>
+<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,Vhisie4KlantInfoOphaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler</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())
 	Set ..Vhisie4KlantInfoOphaler = $$$Inject(Vhisie4KlantInfoOphaler, ##class(APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler.Vhisie4KlantInfoOphaler).%New())
-	Set ..KlantenBepaler = $$$Inject(KlantenBepaler, ##class(WSdata.Vhisie4.Winkelkar.KlantenBepaler).%New())
 
 	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKlant">
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
-<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Klant</ReturnType>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[
-	#dim KlantID As %String = ""	
-	Set Klant = ##class(APPS.Blum.OnlineProductConfigurator.dto.Klant).%New()
+	#dim KlantID As %String = ..Vhisie4KlantInfoOphaler.GeefKlantIDViaEmail(UserCart.userName)
 	
-	If ..BestaatEmail(UserCart.userName) {
-		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3()
-		Set Klant.Toegang = ..ToegangRepository.GeefViaID(..UserCartValidator.GeefGebruikerID(UserCart.userName))
-		Do ..ValideerAantalKlanten(Klant.Toegang.Klanten.Count())
-		Set KlantID = Klant.Toegang.GetKlant()	
-	} else {
-		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
-		Set Klant.Toegang = ""
-		Set KlantID = ..Vhisie4KlantInfoOphaler.GeefKlantIDViaEmail(UserCart.userName)
-		If (KlantID = "") {
-			Set Exceptie = ##class(APPS.Blum.OnlineProductConfigurator.impl.EmailOngekendExceptie).%New(UserCart.userName)
-			Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
-		}
+	If (KlantID = "") {
+		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)
-	Set Klant.Klant = ..VerkoopAPI.GeefKlant(KlantPartijID)
-
-	If ..KlantenBepaler.IsVhisie4Klant(KlantPartijID) {
-		Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
-	} 
 	
-	Quit Klant
+	Quit ..VerkoopAPI.GeefKlant(KlantPartijID)
 ]]></Implementation>
 </Method>
-
-<Method name="BestaatEmail">
-<FormalSpec>Email:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..ToegangRepository.ZoekGebruikerIDViaEmail(Email).Count() > 0)
-]]></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>
 
 
Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r41996 -r44787
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 41996)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 44787)
@@ -10,7 +10,7 @@
 
 <Method name="GeefKlant">
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
-<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Klant</ReturnType>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlant",UserCart)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u -r41152 -r44787
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41152)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 44787)
@@ -3,56 +3,24 @@
 <Class name="vhUnitTest.APPS.Blum.impl.OnlineProductConfiguratorService.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: VoegToeAanWinkelkar met Vhisie3 klant bewaart offerte hoofding en geeft webshop met URL weer">
-<Implementation><![CDATA[
-	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar() 
-	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..GeefKlant()
-	
-	Set KlantBepalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New()
-	Do KlantBepalerMock.VerwachtMethodCall("GeefKlant", Winkelkar).DanReturn(Klant) 
-
-	Set HoofdingMock = ##class(vhTest.Mock.Flow.Offerte.Hoofding).%New()
-	Do HoofdingMock.VerwachtMethodCall("GeefID").DanReturn("HoofdingID")
-	Do HoofdingMock.VerwachtMethodCall("Save").DanDoeNiks()
-	
-	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())
-	
-	#dim ExpectedResult As %String = "http://" _##class(TECH.SystemInformation).%New().GeefComputerNaam() _":8700/vhisie/vhisie.html?aTaal=N&WebshopID=HOOFDINGID"
-	Do $$$AssertEquals(##class(TECH.StringUtils).ToUpper(Webshop.URL), ##class(TECH.StringUtils).ToUpper(ExpectedResult))
-	
-	Do KlantBepalerMock.Verifieer()
-	Do ConverteerderMock.Verifieer()
-	Do HoofdingMock.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="Test: VoegToeAanWinkelkar met Vhisie4 klant verzendt Vhisie4Winkelkar en geeft webshop met URL weer">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar() 
-	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..GeefKlant()
-	Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
-	Set Klant.Toegang = "WordtVoorVhisie4NietGebruikt"
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
 	Set KlantBepalerMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New()
 	Do KlantBepalerMock.VerwachtMethodCall("GeefKlant", Winkelkar).DanReturn(Klant)
 	
 	Set MeldingenDummy = ##class(%ListOfDataTypes).%New()
 	
 	Set ConverteerderMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New()
-	Do ConverteerderMock.VerwachtMethodCall("Converteer", Winkelkar, Klant.Klant).DanReturn("HoofdingID")
+	Do ConverteerderMock.VerwachtMethodCall("Converteer", Winkelkar, Klant).DanReturn("HoofdingID")
 
-	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerMock, , ConverteerderMock)
+	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.Klant.GeefTaal())
+	Do $$$AssertEquals(Webshop.Taal, Klant.GeefTaal())
 	Do $$$AssertEquals(Webshop.URL, "http://website.testing.vanhoecke.be/user/login?destination=cart/switch/HoofdingID?destination=/cart")
 
 	Do KlantBepalerMock.Verifieer()
@@ -63,51 +31,47 @@
 <Method name="Test: foutmelding tijdens vhisie4 conversie gooit exceptie">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar() 
-	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..GeefKlant()
-	Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
-	Set Klant.Toegang = "WordtVoorVhisie4NietGebruikt"
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
 	Set KlantBepalerStub = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New()
 	Do KlantBepalerStub.IndienMethodCall("GeefKlant", Winkelkar).DanReturn(Klant)
 	
 	Set ConverteerderStub = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New()
-	Do ConverteerderStub.IndienMethodCall("Converteer", Winkelkar, Klant.Klant).DanException($$$DummyException)
+	Do ConverteerderStub.IndienMethodCall("Converteer", Winkelkar, Klant).DanException($$$DummyException)
 
 	Set RapporteurStub =##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New()
 	Do RapporteurStub.IndienMethodCall("MailMeldingenNaarOV", $$$ElkeWaarde, $$$ElkeWaarde , $$$ElkeWaarde).DanDoeNiks()
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 
-	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerStub, , ConverteerderStub, RapporteurStub)
+	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerStub, ConverteerderStub, RapporteurStub)
 	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop = ConfiguratorService.VoegToeAanWinkelkar(Winkelkar)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: InvalidUserException tijdens vhisie4 conversie mailt innerexceptie omschrijving naar OV">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefWinkelkar() 
-	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..GeefKlant()
-	Set Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie4()
-	Set Klant.Toegang = "WordtVoorVhisie4NietGebruikt"
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
 	
 	Set KlantBepalerStub = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler).%New()
 	Do KlantBepalerStub.IndienMethodCall("GeefKlant", Winkelkar).DanReturn(Klant)
 	
 	Set ConverteerderStub = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New()
-	Do ConverteerderStub.IndienMethodCall("Converteer", Winkelkar, Klant.Klant).DanException(..GeefInvalidUserInputExceptie())
+	Do ConverteerderStub.IndienMethodCall("Converteer", Winkelkar, Klant).DanException(..GeefInvalidUserInputExceptie())
 
 	Set MeldingList = ##class(%ListOfDataTypes).%New()
 	Do MeldingList.Insert("InnerExceptie")
 	Set MeldingMatcher = ##class(Tools.Mock.ArgumentMatchers.ListMatcher).%New(MeldingList)
 	
 	Set RapporteurMock =##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New()
-	Do RapporteurMock.VerwachtMethodCall("MailMeldingenNaarOV", MeldingMatcher, Winkelkar.userName, Klant.Klant).DanDoeNiks()
+	Do RapporteurMock.VerwachtMethodCall("MailMeldingenNaarOV", MeldingMatcher, Winkelkar.userName, Klant).DanDoeNiks()
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Exceptie")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 
-	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerStub, , ConverteerderStub, RapporteurMock)
+	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerStub, ConverteerderStub, RapporteurMock)
 	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop = ConfiguratorService.VoegToeAanWinkelkar(Winkelkar)
 	
 	Do RapporteurMock.Verifieer()
@@ -133,33 +97,6 @@
 ]]></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>
FishEye: Tag 44787 refers to a dead (removed) revision in file `vhTest/Fake/WSdata/Vhisie4/Winkelkar/KlantenBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml
===================================================================
diff -u -r40923 -r44787
--- vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 40923)
+++ vhTest/Fake/APPS/Blum/impl/OnlineProductConfigurator/KlantBepaler.cls.xml	(.../KlantBepaler.cls.xml)	(revision 44787)
@@ -9,7 +9,7 @@
 
 <Method name="GeefKlant">
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
-<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Klant</ReturnType>
+<ReturnType>DOM.VKP.VanHoeckeKlant</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 44787 refers to a dead (removed) revision in file `vhTest/Mock/WSdata/Vhisie4/Winkelkar/KlantenBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r41210 -r44787
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41210)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 44787)
@@ -8,11 +8,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="FlowOfferteConverteerder">
-<Type>APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="Vhisie4WinkelkarConverteerder">
 <Type>APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</Type>
 <Private>1</Private>
@@ -29,14 +24,13 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder,Vhisie4WinkelkarConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder,Rapporteur:APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur</FormalSpec>
+<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,Vhisie4WinkelkarConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder,Rapporteur:APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur</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 ..FlowOfferteConverteerder = $$$Inject(FlowOfferteConverteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder).%New())
 	Set ..Vhisie4WinkelkarConverteerder = $$$Inject(Vhisie4WinkelkarConverteerder, ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New())
 	Set ..Rapporteur = $$$Inject(Rapporteur, ##class(APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New())
 	Set ..ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
@@ -55,51 +49,25 @@
 <Method name="MaakWinkelkar">
 <FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</FormalSpec>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
-<Implementation><![CDATA[
-	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..KlantBepaler.GeefKlant(UserCart)
-	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop
-	
-	if Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3() {
-		Set Webshop = ..BewaarVhisie3Winkelkar(UserCart, Klant)
-	} else {
-		Set Webshop = ..BewaarVhisie4Winkelkar(UserCart, Klant)
-	}	
-	
-	Quit Webshop
+<Implementation><![CDATA[	Quit ..BewaarWinkelkar(UserCart, ..KlantBepaler.GeefKlant(UserCart))
 ]]></Implementation>
 </Method>
 
-<Method name="BewaarVhisie3Winkelkar">
-<FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar,Klant:APPS.Blum.OnlineProductConfigurator.dto.Klant</FormalSpec>
+<Method name="BewaarWinkelkar">
+<FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
 <Implementation><![CDATA[
-	Set Webshop = ##class(APPS.Blum.OnlineProductConfigurator.dto.Webshop).%New()
-	#dim OfferteHoofding As Flow.Offerte.Hoofding = ..FlowOfferteConverteerder.Converteer(UserCart,Klant.Klant,Klant.Toegang.GeefID())
-	Do OfferteHoofding.Save()
-	Set Webshop.ID = OfferteHoofding.GeefID()
-	Set Webshop.Taal = Klant.Toegang.Taal.BasisTaalID()
-	Set Webshop.URL = ..ConfigMgr.GeefString("APPS.Blum.impl.OnlineProductConfiguratorService.JSONResult.Vhisie3URL")
-	Set Webshop.URL = Webshop.URL _"?aTaal=" _Webshop.Taal _"&WebshopID=" _Webshop.ID
-	Quit Webshop
-]]></Implementation>
-</Method>
-
-<Method name="BewaarVhisie4Winkelkar">
-<FormalSpec>UserCart:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar,Klant:APPS.Blum.OnlineProductConfigurator.dto.Klant</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
-<Implementation><![CDATA[
 	try {
 		Set Webshop = ##class(APPS.Blum.OnlineProductConfigurator.dto.Webshop).%New()
-		Set Webshop.ID = ..Vhisie4WinkelkarConverteerder.Converteer(UserCart, Klant.Klant)		
-		Set Webshop.Taal = Klant.Klant.GeefTaal()
+		Set Webshop.ID = ..Vhisie4WinkelkarConverteerder.Converteer(UserCart, Klant)		
+		Set Webshop.Taal = Klant.GeefTaal()
 		Set Webshop.URL = ..ConfigMgr.GeefString("VanHoecke.Vhisie4.User.Login.URL")
 		Set Webshop.URL = Webshop.URL _"?destination=cart/switch/" _Webshop.ID _"?destination=/cart" 
 	} catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		If (Exceptie.%ClassName(1) = "TECH.Exceptions.InvalidInputException") {
-			Do ..Rapporteur.MailMeldingenNaarOV(..GeefMeldingen(Exceptie.GeefInnerExcepties()), UserCart.userName, Klant.Klant)
+			Do ..Rapporteur.MailMeldingenNaarOV(..GeefMeldingen(Exceptie.GeefInnerExcepties()), UserCart.userName, Klant)
 		}
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}