Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41065 -r41148
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41065)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41148)
@@ -15,12 +15,6 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",Winkelkar,Klant)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefMeldingen">
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefMeldingen")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur/Test.cls.xml
===================================================================
diff -u -r41081 -r41148
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur/Test.cls.xml	(.../Test.cls.xml)	(revision 41081)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur/Test.cls.xml	(.../Test.cls.xml)	(revision 41148)
@@ -5,18 +5,21 @@
 
 <Method name="Test: Melding wordt verzonden naar OV en via Email">
 <Implementation><![CDATA[
+	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
+	
 	Set Meldingen = ##class(%ListOfDataTypes).%New()
 	Do Meldingen.Insert("identNummer Foutmelding")
 	
 	Set MailMock = ##class(vhTest.Mock.TECH.Mail.Mail).%New()
 	Do MailMock.VerwachtMethodCall("ZetOnderwerp","BLUM OPC - meldingen bij het verwerken van een winkelkar.").DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("ZetVerzender","BLUMOPC@vanhoecke.be").DanDoeNiks()
-	Do MailMock.VerwachtMethodCall("VoegToeOntvanger","""OV"" <AdminCACHE@vanhoecke.be>").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("ZetVerzender","""BLUM OPC"" <AdminCACHE@vanhoecke.be>").DanDoeNiks()
+	Do MailMock.VerwachtMethodCall("VoegToeOntvanger", "OV_weborder_R09").DanDoeNiks()
 	Do MailMock.VerwachtMethodCall("ZetIsHTML","0").DanDoeNiks()
 	Do MailMock.VerwachtMethodCall("ZetOmleiden","0").DanDoeNiks()
 	
 	#dim VerwachteInhoud As %String = "Er zijn fouten opgetreden bij het opzoeken van producten!" _$$$CRLF 
-	Set VerwachteInhoud = VerwachteInhoud _"KlantID : KlantID" _$$$CRLF
+	Set VerwachteInhoud = VerwachteInhoud _"KlantNaam : DE NAAM" _$$$CRLF
+	Set VerwachteInhoud = VerwachteInhoud _"KlantNummer : 1234" _$$$CRLF
 	Set VerwachteInhoud = VerwachteInhoud _"Email : UserName" _$$$CRLF _$$$CRLF
 	Set VerwachteInhoud = VerwachteInhoud _"identNummer Foutmelding" _$$$CRLF _$$$CRLF
 	
@@ -27,7 +30,7 @@
 	Do MailAPIMock.VerwachtMethodCall("VerstuurMail", MailMock).DanDoeNiks()
 	
 	Set Rapporteur = ##class(APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New(MailAPIMock)
-	Do Rapporteur.MailMeldingenNaarOV(Meldingen,"UserName","KlantID")
+	Do Rapporteur.MailMeldingenNaarOV(Meldingen, "UserName", VanHoeckeKlant)
 	
 	Do MailAPIMock.Verifieer()
 	Do MailMock.Verifieer()
Index: APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml
===================================================================
diff -u -r41079 -r41148
--- APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(.../Rapporteur.cls.xml)	(revision 41079)
+++ APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(.../Rapporteur.cls.xml)	(revision 41148)
@@ -22,28 +22,33 @@
 </Method>
 
 <Method name="MailMeldingenNaarOV">
-<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Implementation><![CDATA[
 	if (Meldingen.Count() > 0) {
+
+		#dim MailToPrefix As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.impl.OrderVerwerkingInteracties.OfferteBesteld_MailToPrefix")
+		#dim MailTo As %String = MailToPrefix _ ##class(TECH.StringUtils).AddLeadingChar(Klant.GeefRegio(), "0", 2)	
+
 		#dim Mail As TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
 		Do Mail.ZetOnderwerp("BLUM OPC - meldingen bij het verwerken van een winkelkar.")
-		Do Mail.ZetVerzender("BLUMOPC@vanhoecke.be")
-		Do Mail.VoegToeOntvanger($$$SystemMail("OV"))
+		Do Mail.ZetVerzender($$$SystemMail("BLUM OPC"))
+		Do Mail.VoegToeOntvanger(MailTo)
 		Do Mail.ZetIsHTML($$$False)
-		Do Mail.ZetInhoud(..MaakMailInhoud(Meldingen, UserName, KlantID))
+		Do Mail.ZetInhoud(..MaakMailInhoud(Meldingen, UserName, Klant))
 		Do Mail.ZetOmleiden($$$False)
 		Do ..MailAPI.VerstuurMail(Mail)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="MaakMailInhoud">
-<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Inhoud As %String = "Er zijn fouten opgetreden bij het opzoeken van producten!" _$$$CRLF
-	Set Inhoud = Inhoud _"KlantID : " _KlantID _$$$CRLF
+	Set Inhoud = Inhoud _"KlantNaam : " _Klant.GeefNaam() _$$$CRLF
+	Set Inhoud = Inhoud _"KlantNummer : " _Klant.GeefCode() _$$$CRLF
 	Set Inhoud = Inhoud _"Email : " _UserName _$$$CRLF _$$$CRLF
 	#dim MeldingenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Meldingen)
 	While MeldingenIterator.HasNext() {
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u -r41085 -r41148
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41085)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(.../Test.cls.xml)	(revision 41148)
@@ -47,12 +47,8 @@
 	
 	Set ConverteerderMock = ##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New()
 	Do ConverteerderMock.VerwachtMethodCall("Converteer", Winkelkar, Klant.Klant).DanReturn("HoofdingID")
-	Do ConverteerderMock.VerwachtMethodCall("GeefMeldingen").DanReturn(MeldingenDummy)
 
-	Set RapporteurMock =##class(vhTest.Mock.APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur).%New()
-	Do RapporteurMock.VerwachtMethodCall("MailMeldingenNaarOV",MeldingenDummy,Winkelkar.userName ,Klant.Klant.GeefID()).DanDoeNiks()
-
-	Set ConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New(KlantBepalerMock, , ConverteerderMock, RapporteurMock)
+	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")
@@ -61,10 +57,73 @@
 
 	Do KlantBepalerMock.Verifieer()
 	Do ConverteerderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<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"
+	
+	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)
+
+	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)
+	#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"
+	
+	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())
+
+	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()
+
+	#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)
+	#dim Webshop As APPS.Blum.OnlineProductConfigurator.dto.Webshop = ConfiguratorService.VoegToeAanWinkelkar(Winkelkar)
+	
 	Do RapporteurMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInvalidUserInputExceptie">
+<Private>1</Private>
+<ReturnType>TECH.Exceptions.InvalidInputException</ReturnType>
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.InvalidInputException = ##class(TECH.Exceptions.InvalidInputException).%New("Exceptie")
+	Do Exceptie.VoegToeInnerExceptie(##class(TECH.Exceptions.InvalidInputException).%New("InnerExceptie"))
+	Quit Exceptie
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkar">
 <Private>1</Private>
 <ReturnType>APPS.Blum.OnlineProductConfigurator.dto.Winkelkar</ReturnType>
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>
 
 
Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41105 -r41148
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41105)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41148)
@@ -54,7 +54,7 @@
 </Property>
 
 <Property name="Meldingen">
-<Type>%ListOfDataTypes</Type>
+<Type>TECH.ExceptionList</Type>
 <Private>1</Private>
 </Property>
 
@@ -79,7 +79,7 @@
 <FormalSpec>Winkelkar:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set ..Meldingen = ##class(%ListOfDataTypes).%New()
+	Set ..Meldingen = ##class(TECH.ExceptionList).%New()
 	Set ..Klant = Klant
 	Set ..Winkelkar = Winkelkar
 	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant)
@@ -88,19 +88,20 @@
 	
 	Do ..VerwerkWinkelkar()
 	
-	;Do ..GeefExceptieIndienMeldingen()
+	Do ..GeefExceptieIndienMeldingen()
 	
 	Quit ..VerzendVhisie4Winkelkar()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMeldingIndienMeldingen">
+<Method name="GeefExceptieIndienMeldingen">
 <Private>1</Private>
 <Implementation><![CDATA[
-	;If (..Meldingen.Count() > 0) {
-	;	Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker " _..Winkelkar.userName _"!")
-	;	do ##class(TECH.ExceptionHandler).Throw(Exception)	
-	;}
+	If (..Meldingen.Count() > 0) {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Blum OPC - Er zijn niet verwerkte producten bij het bewaren van de winkelkar voor gebruiker " _..Winkelkar.userName _"!")
+		Do Exception.ZetInnerExcepties(..Meldingen)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
 ]]></Implementation>
 </Method>
 
@@ -214,16 +215,10 @@
 		Do ..Vhisie4Winkelkar.Lijnen.Insert(Vhisie4ProductLijn)
 	} catch {
 		#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
-		Do ..Meldingen.Insert("IdentNr " _IdentNr _" is niet verwerkt. " _Exception.GeefOmschrijving())
+		Do ..Meldingen.Insert(##class(TECH.Exceptions.InvalidInputException).%New("IdentNr " _IdentNr _" is niet verwerkt. " _Exception.GeefOmschrijving()))
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefMeldingen">
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ..Meldingen
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml
===================================================================
diff -u -r41079 -r41148
--- vhTest/Mock/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(.../Rapporteur.cls.xml)	(revision 41079)
+++ vhTest/Mock/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(.../Rapporteur.cls.xml)	(revision 41148)
@@ -10,8 +10,8 @@
 <Inheritance>right</Inheritance>
 
 <Method name="MailMeldingenNaarOV">
-<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("MailMeldingenNaarOV",Meldingen,UserName,KlantID)
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MailMeldingenNaarOV",Meldingen,UserName,Klant)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r41065 -r41148
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41065)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41148)
@@ -163,7 +163,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: niet gevonden identnummers worden toegevoegd aan meldingen">
+<Method name="Test: niet gevonden identnummer geeft een exceptie">
 <Implementation><![CDATA[
 	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
 	
@@ -175,13 +175,29 @@
 	Do ..ProductBepaler.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
 	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
 	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum OPC - Er zijn niet verwerkte producten bij het bewaren van de winkelkar voor gebruiker dummy@dum.my!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
 	Do ..Converteerder.Converteer(Winkelkar, ..VanHoeckeKlant)
+]]></Implementation>
+</Method>
+
+<Method name="Test: niet gevonden identnummer wordt als innerexceptie meegegeven in de exceptie">
+<Implementation><![CDATA[
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
 	
-	If $$$AssertEquals(..Converteerder.GeefMeldingen().Count(), 1) {
-		#dim Melding As %String = ..Converteerder.GeefMeldingen().GetAt(1)
-		#dim VerwachteMelding As %String = "IdentNr identnumber is niet verwerkt. DummyException"
-		Do $$$AssertEquals(Melding,VerwachteMelding)
-	}
+	Set ..Response.Winkelkar.Status = "Geslaagd"
+	
+	Do ..SenderMock.IndienMethodCall("Send", $$$ElkeWaarde).DanReturn(..Response)
+	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog").DanReturn("64387,35360")
+	Do ..DateTimeAPIMock.IndienMethodCall("CurrentDate").DanReturn("64387")
+	Do ..ProductBepaler.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
+	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).DanReturn(..KlantPrijsBepalerMock)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("IdentNr identnumber is niet verwerkt. DummyException")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteInnerExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	Do ..Converteerder.Converteer(Winkelkar, ..VanHoeckeKlant)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml
===================================================================
diff -u -r41079 -r41148
--- vhTest/Fake/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(.../Rapporteur.cls.xml)	(revision 41079)
+++ vhTest/Fake/APPS/Blum/impl/OnlineProductConfiguratorService/Rapporteur.cls.xml	(.../Rapporteur.cls.xml)	(revision 41148)
@@ -8,7 +8,7 @@
 <Super>APPS.Blum.impl.OnlineProductConfiguratorService.Rapporteur</Super>
 
 <Method name="MailMeldingenNaarOV">
-<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,KlantID:%String</FormalSpec>
+<FormalSpec>Meldingen:%ListOfDataTypes,UserName:%String,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Implementation><![CDATA[
 ]]></Implementation>
 </Method>