Index: APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml
===================================================================
diff -u -r41085 -r41148
--- APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41085)
+++ APPS/Blum/impl/OnlineProductConfiguratorService.cls.xml	(.../OnlineProductConfiguratorService.cls.xml)	(revision 41148)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</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>
 <Private>1</Private>
@@ -34,7 +39,8 @@
 	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()
+	
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -51,26 +57,70 @@
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Webshop</ReturnType>
 <Implementation><![CDATA[
 	#dim Klant As APPS.Blum.OnlineProductConfigurator.dto.Klant = ..KlantBepaler.GeefKlant(UserCart)
-	Set Webshop = ##class(APPS.Blum.OnlineProductConfigurator.dto.Webshop).%New()
+	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop
 	
 	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()
-		Set Webshop.Taal = Klant.Toegang.Taal.BasisTaalID()
-		Set Webshop.URL = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Blum.impl.OnlineProductConfiguratorService.JSONResult.Vhisie3URL")
-		Set Webshop.URL = Webshop.URL _"?aTaal=" _Webshop.Taal _"&WebshopID=" _Webshop.ID
+		Set Webshop = ..BewaarVhisie3Winkelkar(UserCart, Klant)
 	} else {
+		Set Webshop = ..BewaarVhisie4Winkelkar(UserCart, Klant)
+	}	
+	
+	Quit Webshop
+]]></Implementation>
+</Method>
+
+<Method name="BewaarVhisie3Winkelkar">
+<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[
+	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.URL = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Blum.impl.OnlineProductConfiguratorService.JSONResult.Vhisie4URL")
+		Set Webshop.URL = ..ConfigMgr.GeefString("APPS.Blum.impl.OnlineProductConfiguratorService.JSONResult.Vhisie4URL")
 		Set Webshop.URL = Webshop.URL _"?destination=/ov/manage/" _Webshop.ID
-		Do ..Rapporteur.MailMeldingenNaarOV(..Vhisie4WinkelkarConverteerder.GeefMeldingen(), UserCart.userName, Klant.Klant.GeefID())
-	}	
-	
+	} 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 ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
 	Quit Webshop
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMeldingen">
+<FormalSpec>InnerExcepties:TECH.ExceptionList</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim Meldingen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	#dim InnerExceptieIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(InnerExcepties)
+	While InnerExceptieIterator.HasNext() {
+		Do Meldingen.Insert(InnerExceptieIterator.Next().GeefOmschrijving())
+	} 
+	Quit Meldingen
+]]></Implementation>
+</Method>
 </Class>