Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r40982 -r40987
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 40982)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 40987)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Vhisie4WinkelkarConverteerder">
+<Type>APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder</FormalSpec>
+<FormalSpec>KlantBepaler:APPS.Blum.impl.OnlineProductConfigurator.KlantBepaler,FlowOfferteConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarFlowOfferteConverteerder,Vhisie4WinkelkarConverteerder:APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder</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())
 
 	quit $$$OK
 ]]></Implementation>
@@ -39,14 +45,17 @@
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
 <Implementation><![CDATA[
 	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..KlantBepaler.GeefKlant(UserCart)
-	
-	#dim OfferteHoofding As Flow.Offerte.Hoofding = ..FlowOfferteConverteerder.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()
-		
+	
+	if Klant.Type = ##class(APPS.Blum.OnlineProductConfigurator.enu.KlantType).Vhisie3() {
+		#dim OfferteHoofding As Flow.Offerte.Hoofding = ..FlowOfferteConverteerder.Converteer(UserCart,Klant.Klant,Klant.Toegang.GeefID())
+		Do OfferteHoofding.Save()
+		Set Webshop.ID = OfferteHoofding.GeefID()
+	} else {
+		;Set Webshop.ID = ..Vhisie4WinkelkarConverteerder.Converteer(UserCart, Klant.Klant)		
+	}	
+	
 	Quit Webshop
 ]]></Implementation>
 </Method>