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)
 	}