Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u -r46866 -r46871
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 46866)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 46871)
@@ -67,28 +67,40 @@
 <FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <Implementation><![CDATA[
+	
 	#dim TijdelijkeLeverancierOfferte As APPS.VKP.Offerte = ..KlantBestellingNaarLeverancierOfferteKopieerder.Kopieer(KlantBestelling)
 	
-	#dim Winkelkar As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ..WinkelkarExportConverter.Convert(..OfferteConverter.ConverteerNaarECommerce(TijdelijkeLeverancierOfferte))
+	#dim IsBewarenWinkelkarGelukt As %Boolean = $$$True
 	
-	Set Winkelkar.GekoppeldeWinkelkarId = KlantBestelling.GeefExterneId()
-	Set Winkelkar.Id = ""
-	Set LijnIterator = ##class(TECH.ListIterator).%New(Winkelkar.Lijnen)
-	#dim WinkelkarLijn As WS.Vhisie4.WinkelkarExport.dto.WinkelkarLijn
-	While LijnIterator.HasNext() {
-		Set WinkelkarLijn = LijnIterator.Next()
-		Set WinkelkarLijn.Id = ""
-	}
+	try {
+
+		#dim Winkelkar As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ..WinkelkarExportConverter.Convert(..OfferteConverter.ConverteerNaarECommerce(TijdelijkeLeverancierOfferte))
 	
-	Set Winkelkar.Referentie = KlantBestelling.GeefExterneId()_" - "_KlantBestelling.GeefDocumentReferenties().OrderReferentie
+		Set Winkelkar.GekoppeldeWinkelkarId = KlantBestelling.GeefExterneId()
+		Set Winkelkar.Id = ""
+		Set LijnIterator = ##class(TECH.ListIterator).%New(Winkelkar.Lijnen)
+		#dim WinkelkarLijn As WS.Vhisie4.WinkelkarExport.dto.WinkelkarLijn
+		While LijnIterator.HasNext() {
+			Set WinkelkarLijn = LijnIterator.Next()
+			Set WinkelkarLijn.Id = ""
+		}
 	
-	#dim ExterneId As %String = ..Vhisie4WinkelkarRepository.Bewaar(Winkelkar)
+		Set Winkelkar.Referentie = KlantBestelling.GeefExterneId()_" - "_KlantBestelling.GeefDocumentReferenties().OrderReferentie
+	
+		#dim ExterneId As %String = ..Vhisie4WinkelkarRepository.Bewaar(Winkelkar)
+	
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		set IsBewarenWinkelkarGelukt = $$$False
+	}
+		
 	Do ..VerwijderOfferte(TijdelijkeLeverancierOfferte)
+	
+	Do:$$$Not(IsBewarenWinkelkarGelukt) Exception.Throw()
 		
 	#dim LeverancierOfferte As APPS.VKP.Offerte = ..Vhisie4WinkelkarRepository.GeefOfferteViaID(ExterneId)
-	
 	Do ..OfferteService.KoppelAanOfferteVanHandel(KlantBestelling,LeverancierOfferte)
-		
+			
 	Quit LeverancierOfferte
 ]]></Implementation>
 </Method>