Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r38903 -r38904
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38903)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38904)
@@ -3,6 +3,32 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: Offerte wordt niet besteld als zethoofding een fout geeft">
+<Implementation><![CDATA[
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	
+	#dim LegacyPartijAPIStub As vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID",$$$ElkeWaarde).DanReturn($$$True)
+
+	#dim OfferteRepositoryStub As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryStub.IndienMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do OfferteRepositoryStub.IndienMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
+	
+	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
+
+	#dim BestelWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(VerkoopServiceMock, OfferteRepositoryStub, LegacyPartijAPIStub)
+
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ..GeefBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Do BestelWinkelkar.BestelWinkelkar(BestelWinkelkarRequest)
+]]></Implementation>
+</Method>
+
 <Method name="Test: BestelWinkelkar bestelt offerte met de juiste waarden">
 <Implementation><![CDATA[
 	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()