Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter.cls.xml
===================================================================
diff -u -r49517 -r49519
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter.cls.xml	(.../OrderSluiter.cls.xml)	(revision 49517)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter.cls.xml	(.../OrderSluiter.cls.xml)	(revision 49519)
@@ -28,16 +28,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BezwarenWeergever">
+<Type>CHUI.common.BezwarenWeergever.GeenInteractie</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderIngaveService:APPS.VKP.OrderIngaveService,OrderSluiter:CHUI.VKP.OrderIngave.OrderSluiter,OfferteService:APPS.VKP.impl.OfferteService,Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer,Logger:vhLib.Logger</FormalSpec>
+<FormalSpec>OrderIngaveService:APPS.VKP.OrderIngaveService,OrderSluiter:CHUI.VKP.OrderIngave.OrderSluiter,OfferteService:APPS.VKP.impl.OfferteService,Mailer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer,Logger:vhLib.Logger,BezwarenWeergever:CHUI.common.BezwarenWeergever.GeenInteractie</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderIngaveService = $$$Inject(OrderIngaveService,##class(APPS.VKP.OrderIngaveService).%New())
-	Set BezwarenWeergever = ##class(CHUI.common.BezwarenWeergever.GeenInteractie).%New()
-	Set ..OrderSluiter = $$$Inject(OrderSluiter,##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(,,,BezwarenWeergever))
+	Set ..BezwarenWeergever = $$$Inject(BezwarenWeergever,##class(CHUI.common.BezwarenWeergever.GeenInteractie).%New())
+	Set ..OrderSluiter = $$$Inject(OrderSluiter,##class(CHUI.VKP.OrderIngave.TijdelijkOrderSluiterv01).%New(,,,..BezwarenWeergever))
 	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.VKP.impl.OfferteService).%New())
 	Set ..Mailer = $$$Inject(Mailer, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New())
 	
@@ -71,13 +76,18 @@
 			If ..OrderSluiter.KanOrderSluiten(OrderId) {
 		 		Do ..OrderSluiter.Sluit(OrderId)
 				Do ..Logger.Debug("Vhisie4 automatische offerte verwerking","Voor de Vhisie4 offerte met OfferteID '" _Offerte.GeefID() _"' is het order met OrderID '" _OrderId _"' gesloten.")
+			} Else {
+				#dim Melding As %String = "Er zijn bezwaren bij het automatisch verwerken van Vhisie4 offerte met OfferteID '" _Offerte.GeefID() _"'"
+				Set Melding = Melding _$$$CRLF _..BezwarenWeergever.GeefBezwarenAlsTekst()
+				Do ..Mailer.Verzend(Offerte, Melding)
+				Do ..Logger.Warning("Vhisie4 automatische offerte verwerking", Melding)
 			}
 		} 
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim Melding As %String = "Er is een fout opgetreden bij het automatisch verwerken van Vhisie4 offerte met OfferteID '" _Offerte.GeefID() _"' - foutmelding : " _Exception.ToString()
-		Do ..Mailer.Verzend(Offerte, Melding)
-		Do ..Logger.Warning("Vhisie4 automatische offerte verwerking", Melding)
+		#dim FoutMelding As %String = "Er is een fout opgetreden bij het automatisch verwerken van Vhisie4 offerte met OfferteID '" _Offerte.GeefID() _"' - foutmelding : " _Exception.ToString()
+		Do ..Mailer.Verzend(Offerte, FoutMelding)
+		Do ..Logger.Warning("Vhisie4 automatische offerte verwerking", FoutMelding)
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml
===================================================================
diff -u -r49515 -r49519
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(.../Test.cls.xml)	(revision 49515)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/OrderSluiter/Test.cls.xml	(.../Test.cls.xml)	(revision 49519)
@@ -104,6 +104,46 @@
 	Do MailerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Indien bezwaren bij het aanmaken of sluiten van een order dan een mail versturen naar OV">
+<Implementation><![CDATA[
+	Set OfferteMock = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteMock.VerwachtMethodCall("GeefID").DanReturn("OfferteID")
+	Do OfferteMock.VerwachtMethodCall("GeefTotaalBedragWebshop").DanReturn(0)
+	
+	#Dim OrderDummy As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	
+	Set OrderIngaveServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderIngaveService).%New()
+	Do OrderIngaveServiceMock.VerwachtMethodCall("MaakOrderVanOfferte","OfferteID","").DanReturn(OrderDummy)
+	
+	Set GeneralException = ##class(TECH.Exceptions.GeneralErrorException).%New("Order kan niet gesloten worden!")
+	
+	Set OrderSluiterMock = ##class(vhTest.Mock.CHUI.VKP.OrderIngave.OrderSluiter).%New()
+	Do OrderSluiterMock.VerwachtMethodCall("KanOrderSluiten","100000","").DanReturn($$$False)
+	Do OrderSluiterMock.VerwachtMethodCall("Sluit","100000","","").Nooit()
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("GeefBerekendeTotaalBedrag",OfferteMock).DanReturn(0)
+	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteMock)
+	
+	Set MailerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Mailer).%New()
+	#dim Melding As %String = "Er zijn bezwaren bij het automatisch verwerken van Vhisie4 offerte met OfferteID 'OfferteID'" _$$$CRLF _"BezwarenTekst"
+	Do MailerMock.VerwachtMethodCall("Verzend", OfferteMock, Melding).ExactAantalKeer(1).DanDoeNiks()
+
+	Set BezwarenWeergeverMock = ##class(vhTest.Mock.CHUI.common.BezwarenWeergever).%New()
+	Do BezwarenWeergeverMock.VerwachtMethodCall("GeefBezwarenAlsTekst").DanReturn("BezwarenTekst")
+	
+	Set OrderSluiter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderSluiter).%New(OrderIngaveServiceMock, OrderSluiterMock, OfferteServiceMock, MailerMock,,BezwarenWeergeverMock)
+	Do OrderSluiter.MaakEnSluitOrderViaOfferteID("OfferteID")
+	
+	Do OfferteMock.Verifieer()
+	Do OrderIngaveServiceMock.Verifieer()
+	Do OrderSluiterMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+	Do MailerMock.Verifieer()
+	Do BezwarenWeergeverMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>