Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml
===================================================================
diff -u -r44381 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml	(.../BewaarMaatwerkLijn.cls.xml)	(revision 44381)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml	(.../BewaarMaatwerkLijn.cls.xml)	(revision 45510)
@@ -43,25 +43,36 @@
 <FormalSpec>BewaarMaatwerkLijnRequest:WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerInput(BewaarMaatwerkLijnRequest)
+	Lock +^Vhisie4.Winkelkar(BewaarMaatwerkLijnRequest.WinkelkarID, BewaarMaatwerkLijnRequest.LijnID):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _BewaarMaatwerkLijnRequest.WinkelkarID _" en lijnID " _BewaarMaatwerkLijnRequest.LijnID _" is gelocked door een andere webservice call. Probeer later opnieuw."))
 	
-	#dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarMaatwerkLijnRequest.WinkelkarID)
-	#dim Offerte As APPS.VKP.impl.Offerte = ..WinkelkarRepository.GeefOfferteViaID(BewaarMaatwerkLijnRequest.WinkelkarID)
-	
-	If ..WinkelkarLijnRepository.BestaatViaID(BewaarMaatwerkLijnRequest.LijnID) {
-		#dim WinkelkarLijnId As %String = ..WinkelkarLijnRepository.GeefLijnIDViaID(BewaarMaatwerkLijnRequest.LijnID)
-		Do ..WinkelkarService.VerwijderLijn(WinkelkarId, WinkelkarLijnId)
-	}
+	Try {
+		Do ..ValideerInput(BewaarMaatwerkLijnRequest)
+		
+		#dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarMaatwerkLijnRequest.WinkelkarID)
+		#dim Offerte As APPS.VKP.impl.Offerte = ..WinkelkarRepository.GeefOfferteViaID(BewaarMaatwerkLijnRequest.WinkelkarID)
+		
+		If ..WinkelkarLijnRepository.BestaatViaID(BewaarMaatwerkLijnRequest.LijnID) {
+			#dim WinkelkarLijnId As %String = ..WinkelkarLijnRepository.GeefLijnIDViaID(BewaarMaatwerkLijnRequest.LijnID)
+			Do ..WinkelkarService.VerwijderLijn(WinkelkarId, WinkelkarLijnId)
+		}
 
-	#dim EconMaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(BewaarMaatwerkLijnRequest.EconConfiguratie)
-	
-	#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, EconMaatwerkLijn.GroepNaam, EconMaatwerkLijn.IngegevenKenmerken, EconMaatwerkLijn.Aantal, EconMaatwerkLijn.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID)
+		#dim EconMaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(BewaarMaatwerkLijnRequest.EconConfiguratie)
 		
-	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse).%New()
-	Set Resultaat.EenheidPrijs = MaatwerkLijn.EenheidPrijs
-	Set Resultaat.TotaalPrijs = MaatwerkLijn.TotaalPrijs
-	Set Resultaat.PrijzenGeldigTotEnMet = Offerte.GeefPrijzenGeldigTotEnMetDatum()
-	Set Resultaat.UnishopKenmerken = MaatwerkLijn.IngegevenKenmerken
+		#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, EconMaatwerkLijn.GroepNaam, EconMaatwerkLijn.IngegevenKenmerken, EconMaatwerkLijn.Aantal, EconMaatwerkLijn.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID)
+			
+		Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse).%New()
+		Set Resultaat.EenheidPrijs = MaatwerkLijn.EenheidPrijs
+		Set Resultaat.TotaalPrijs = MaatwerkLijn.TotaalPrijs
+		Set Resultaat.PrijzenGeldigTotEnMet = Offerte.GeefPrijzenGeldigTotEnMetDatum()
+		Set Resultaat.UnishopKenmerken = MaatwerkLijn.IngegevenKenmerken
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(BewaarMaatwerkLijnRequest.WinkelkarID,BewaarMaatwerkLijnRequest.LijnID)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Lock -^Vhisie4.Winkelkar(BewaarMaatwerkLijnRequest.WinkelkarID,BewaarMaatwerkLijnRequest.LijnID)
+	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml
===================================================================
diff -u -r45473 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml	(.../HerberekenMaatwerk.cls.xml)	(revision 45473)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml	(.../HerberekenMaatwerk.cls.xml)	(revision 45510)
@@ -67,16 +67,30 @@
 <FormalSpec>HerberekenMaatwerkRequest:WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse</ReturnType>
 <Implementation><![CDATA[
-	Set ..InterneOfferteId = ..WinkelkarRepository.GeefOfferteIDViaID(HerberekenMaatwerkRequest.Winkelkar.Id)
+	Lock +^Vhisie4.Winkelkar(HerberekenMaatwerkRequest.Winkelkar.Id):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _HerberekenMaatwerkRequest.Winkelkar.Id _" is gelocked door een andere webservice call. Probeer later opnieuw."))
+
+	#dim Response As WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse = ""
 	
-	Do ..Synchroniseer.Synchroniseer(HerberekenMaatwerkRequest.Winkelkar, ..#MaatwerkType)
+	Try {
+		Set ..InterneOfferteId = ..WinkelkarRepository.GeefOfferteIDViaID(HerberekenMaatwerkRequest.Winkelkar.Id)
+		
+		Do ..Synchroniseer.Synchroniseer(HerberekenMaatwerkRequest.Winkelkar, ..#MaatwerkType)
 
-	#dim NietgepersisteerdeMaatwerklijnen As APPS.EC.Winkelkar.dto.MaatwerkLijnList 
-	Set NietgepersisteerdeMaatwerklijnen = ..GeefGevalideerdeLijnenAlvorensTeHerberekenen(HerberekenMaatwerkRequest)
+		#dim NietgepersisteerdeMaatwerklijnen As APPS.EC.Winkelkar.dto.MaatwerkLijnList 
+		Set NietgepersisteerdeMaatwerklijnen = ..GeefGevalideerdeLijnenAlvorensTeHerberekenen(HerberekenMaatwerkRequest)
+		
+		#dim Offerte As APPS.EC.dto.Offerte = ..ExterneVerkoopService.GeefOfferteEnHerbereken(..InterneOfferteId)
+		
+		Set Response = ..MaakResponse(Offerte,..GeefHerberekendeLijnen(Offerte,NietgepersisteerdeMaatwerklijnen))
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(HerberekenMaatwerkRequest.Winkelkar.Id)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 	
-	#dim Offerte As APPS.EC.dto.Offerte = ..ExterneVerkoopService.GeefOfferteEnHerbereken(..InterneOfferteId)
+	Lock -^Vhisie4.Winkelkar(HerberekenMaatwerkRequest.Winkelkar.Id)
 	
-	Quit ..MaakResponse(Offerte,..GeefHerberekendeLijnen(Offerte,NietgepersisteerdeMaatwerklijnen))
+	Quit Response
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml
===================================================================
diff -u -r44845 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml	(.../StartVerpakkingBerekening.cls.xml)	(revision 44845)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml	(.../StartVerpakkingBerekening.cls.xml)	(revision 45510)
@@ -42,13 +42,24 @@
 <Method name="StartVerpakkingBerekening">
 <FormalSpec>StartVerpakkingBerekeningRequest:WS.Vhisie4.Winkelkar.StartVerpakkingBerekeningRequest</FormalSpec>
 <Implementation><![CDATA[
-	#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(StartVerpakkingBerekeningRequest.Header.KlantId)
-	If ..CheckoutTypeBepaler.Bepaal(StartVerpakkingBerekeningRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() 
-	{
-		#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(StartVerpakkingBerekeningRequest.WinkelkarId)
-		Do ..TransportService.BerekenPalletGegevens(OfferteID)
+	Lock +^Vhisie4.Winkelkar(StartVerpakkingBerekeningRequest.WinkelkarId):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _StartVerpakkingBerekeningRequest.WinkelkarId _" is gelocked door een andere webservice call. Probeer later opnieuw."))
+	
+	Try {
+
+		#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(StartVerpakkingBerekeningRequest.Header.KlantId)
+		If ..CheckoutTypeBepaler.Bepaal(StartVerpakkingBerekeningRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() 
+		{
+			#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(StartVerpakkingBerekeningRequest.WinkelkarId)
+			Do ..TransportService.BerekenPalletGegevens(OfferteID)
+		}
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(StartVerpakkingBerekeningRequest.WinkelkarId)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 
+	Lock -^Vhisie4.Winkelkar(StartVerpakkingBerekeningRequest.WinkelkarId)
+
 	Quit
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44846 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44846)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 45510)
@@ -55,24 +55,35 @@
 <FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse</ReturnType>
 <Implementation><![CDATA[
-	#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
+	Lock +^Vhisie4.Winkelkar(BereidVoorBestellingRequest.Winkelkar.Id):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _BereidVoorBestellingRequest.Winkelkar.Id _" is gelocked door een andere webservice call. Probeer later opnieuw."))
 
-	Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest))
-
 	#dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
-	#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId)
-	#dim CheckoutType As APPS.EC.Unishop.enu.CheckoutType = ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID)
-	
-	If (CheckoutType = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) {
-		Set Response.MogelijkeLeverdatums = ..VerzendingService.GeefMogelijkeLeverDatums(BereidVoorBestellingRequest,KlantPartijID)
-		Set Response.IsAsapMogelijk = ..VerzendingService.GeefIsAsapMogelijk(BereidVoorBestellingRequest,KlantPartijID)
-	} Else {
-		#dim KlantIdentificatie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(BereidVoorBestellingRequest.Header.PersonalityId,KlantPartijID)
-		#dim MogelijkeZendingen As APPS.EC.Transport.dto.VerzendingMogelijkheden
-		Set MogelijkeZendingen = ..TransportService.GeefMogelijkeZendingen(OfferteID, BereidVoorBestellingRequest.Header.Taal, KlantIdentificatie)
-		Set Response.VerzendingMogelijkheden = ..ConverteerMogelijkeZendingen(MogelijkeZendingen)
+
+	Try {
+		#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BereidVoorBestellingRequest.Winkelkar.Id)
+
+		Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest))
+
+		#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId)
+		#dim CheckoutType As APPS.EC.Unishop.enu.CheckoutType = ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID)
+		
+		If (CheckoutType = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) {
+			Set Response.MogelijkeLeverdatums = ..VerzendingService.GeefMogelijkeLeverDatums(BereidVoorBestellingRequest,KlantPartijID)
+			Set Response.IsAsapMogelijk = ..VerzendingService.GeefIsAsapMogelijk(BereidVoorBestellingRequest,KlantPartijID)
+		} Else {
+			#dim KlantIdentificatie As APPS.EC.Transport.dto.KlantIdentificatie = ##class(APPS.EC.Transport.dto.KlantIdentificatie).%New(BereidVoorBestellingRequest.Header.PersonalityId,KlantPartijID)
+			#dim MogelijkeZendingen As APPS.EC.Transport.dto.VerzendingMogelijkheden
+			Set MogelijkeZendingen = ..TransportService.GeefMogelijkeZendingen(OfferteID, BereidVoorBestellingRequest.Header.Taal, KlantIdentificatie)
+			Set Response.VerzendingMogelijkheden = ..ConverteerMogelijkeZendingen(MogelijkeZendingen)
+		}
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(BereidVoorBestellingRequest.Winkelkar.Id)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
+	Lock -^Vhisie4.Winkelkar(BereidVoorBestellingRequest.Winkelkar.Id)
+	
 	Quit Response
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/VerwijderLijn.cls.xml
===================================================================
diff -u -r39771 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/VerwijderLijn.cls.xml	(.../VerwijderLijn.cls.xml)	(revision 39771)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/VerwijderLijn.cls.xml	(.../VerwijderLijn.cls.xml)	(revision 45510)
@@ -35,14 +35,24 @@
 <Method name="VerwijderLijn">
 <FormalSpec>VerwijderLijnRequest:WS.Vhisie4.Winkelkar.VerwijderLijnRequest</FormalSpec>
 <Implementation><![CDATA[
-	#dim WinkelkarID As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(VerwijderLijnRequest.WinkelkarId)
-	#dim LijnID As %String = ..LijnRepository.GeefLijnIDViaID(VerwijderLijnRequest.LijnId)
+	Lock +^Vhisie4.Winkelkar(VerwijderLijnRequest.WinkelkarId, VerwijderLijnRequest.LijnId):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _VerwijderLijnRequest.WinkelkarId _" en lijnID " _VerwijderLijnRequest.LijnId _" is gelocked door een andere webservice call. Probeer later opnieuw."))
+	
+	Try {
+		#dim WinkelkarID As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(VerwijderLijnRequest.WinkelkarId)
+		#dim LijnID As %String = ..LijnRepository.GeefLijnIDViaID(VerwijderLijnRequest.LijnId)
 
-	if '##class(TECH.StringUtils).StartsWith(LijnID,WinkelkarID){
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Winkelkarlijn met id '" _ VerwijderLijnRequest.LijnId _ "' behoort niet tot winkelkar met id '" _ VerwijderLijnRequest.WinkelkarId_"'"))
-	}
+		if '##class(TECH.StringUtils).StartsWith(LijnID,WinkelkarID){
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Winkelkarlijn met id '" _ VerwijderLijnRequest.LijnId _ "' behoort niet tot winkelkar met id '" _ VerwijderLijnRequest.WinkelkarId_"'"))
+		}
 
-	Do ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
+		Do ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(VerwijderLijnRequest.WinkelkarId,VerwijderLijnRequest.LijnId)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Lock -^Vhisie4.Winkelkar(VerwijderLijnRequest.WinkelkarId,VerwijderLijnRequest.LijnId)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r45478 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 45478)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 45510)
@@ -60,20 +60,30 @@
 <FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarResponse</ReturnType>
 <Implementation><![CDATA[
-	#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BestelWinkelkarRequest.Header.KlantId)
-	#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BestelWinkelkarRequest.Winkelkar.Id)
+	Lock +^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _BestelWinkelkarRequest.Winkelkar.Id _" is gelocked door een andere webservice call. Probeer later opnieuw."))
+	
+	Try {
+		#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BestelWinkelkarRequest.Header.KlantId)
+		#dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BestelWinkelkarRequest.Winkelkar.Id)
 
-	Do ..Synchroniseer.Synchroniseer(BestelWinkelkarRequest.Winkelkar, ..#AlleTypes)
+		Do ..Synchroniseer.Synchroniseer(BestelWinkelkarRequest.Winkelkar, ..#AlleTypes)
 
-	Do ..VerkoopService.ZetTotaalBedragWebshop(OfferteID, ..BerekenTotaalPrijs(BestelWinkelkarRequest))
-	Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BestelWinkelkarRequest))
-	Do ..VerkoopService.BestelOfferte(OfferteID, KlantPartijID, BestelWinkelkarRequest.Header.PersonalityId)
-	
-	If ..CheckoutTypeBepaler.Bepaal(BestelWinkelkarRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() 
-	{
-		Do ..TransportService.ZetGekozenVerzendingMogelijkheid(OfferteID, BestelWinkelkarRequest.VerzendingMogelijkheidID, BestelWinkelkarRequest.OptieKeuze)	
+		Do ..VerkoopService.ZetTotaalBedragWebshop(OfferteID, ..BerekenTotaalPrijs(BestelWinkelkarRequest))
+		Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BestelWinkelkarRequest))
+		Do ..VerkoopService.BestelOfferte(OfferteID, KlantPartijID, BestelWinkelkarRequest.Header.PersonalityId)
+		
+		If ..CheckoutTypeBepaler.Bepaal(BestelWinkelkarRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() 
+		{
+			Do ..TransportService.ZetGekozenVerzendingMogelijkheid(OfferteID, BestelWinkelkarRequest.VerzendingMogelijkheidID, BestelWinkelkarRequest.OptieKeuze)	
+		}
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
+	Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id)
+	
 	Set Response = ##class(WS.Vhisie4.Winkelkar.BestelWinkelkarResponse).%New()	
 	Quit Response
 ]]></Implementation>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml
===================================================================
diff -u -r40819 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml	(.../BewaarProductLijn.cls.xml)	(revision 40819)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml	(.../BewaarProductLijn.cls.xml)	(revision 45510)
@@ -41,16 +41,26 @@
 <Method name="BewaarProductLijn">
 <FormalSpec>BewaarProductLijnRequest:WS.Vhisie4.Winkelkar.BewaarProductLijnRequest</FormalSpec>
 <Implementation><![CDATA[
-	do ..ValideerInput(BewaarProductLijnRequest)
+	Lock +^Vhisie4.Winkelkar(BewaarProductLijnRequest.WinkelkarId, BewaarProductLijnRequest.LijnId):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _BewaarProductLijnRequest.WinkelkarId _" en lijnID " _BewaarProductLijnRequest.LijnId _" is gelocked door een andere webservice call. Probeer later opnieuw."))
 	
-	#dim WinkelkarID As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarProductLijnRequest.WinkelkarId)
+	Try {
+		Do ..ValideerInput(BewaarProductLijnRequest)
+		
+		#dim WinkelkarID As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarProductLijnRequest.WinkelkarId)
 
-	If ..WinkelkarLijnRepository.BestaatViaID(BewaarProductLijnRequest.LijnId) {
-		#dim LijnID As %String = ..WinkelkarLijnRepository.GeefLijnIDViaID(BewaarProductLijnRequest.LijnId)
-		Do ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
+		If ..WinkelkarLijnRepository.BestaatViaID(BewaarProductLijnRequest.LijnId) {
+			#dim LijnID As %String = ..WinkelkarLijnRepository.GeefLijnIDViaID(BewaarProductLijnRequest.LijnId)
+			Do ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
+		}
+		
+		Do ..WinkelkarService.VoegToeProduct(WinkelkarID, "EenGroep", BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie, BewaarProductLijnRequest.LijnId, BewaarProductLijnRequest.EenheidPrijs,BewaarProductLijnRequest.TotaalPrijs)
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(BewaarProductLijnRequest.WinkelkarId,BewaarProductLijnRequest.LijnId)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
-	Do ..WinkelkarService.VoegToeProduct(WinkelkarID, "EenGroep", BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie, BewaarProductLijnRequest.LijnId, BewaarProductLijnRequest.EenheidPrijs,BewaarProductLijnRequest.TotaalPrijs)
+	Lock -^Vhisie4.Winkelkar(BewaarProductLijnRequest.WinkelkarId,BewaarProductLijnRequest.LijnId)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml
===================================================================
diff -u -r41908 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml	(.../MaakOrderVanOfferte.cls.xml)	(revision 41908)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml	(.../MaakOrderVanOfferte.cls.xml)	(revision 45510)
@@ -54,16 +54,29 @@
 <Method name="MaakOrderVanOfferte">
 <FormalSpec>MaakOrderVanOfferteRequest:WS.Vhisie4.Winkelkar.MaakOrderVanOfferteRequest</FormalSpec>
 <Implementation><![CDATA[
-	#dim VanHoeckeGebruiker As DOM.common.VanHoeckeGebruiker = ..VanHoeckeGebruikerBeheerder.GeefGebruikerViaEmail(MaakOrderVanOfferteRequest.GebruikerEmail)
-	#dim InterneOfferteId As %String = ..WinkelkarRepository.GeefOfferteIDViaID(MaakOrderVanOfferteRequest.WinkelkarId)
-	#dim ComputerNaam As %String = ..SystemInformation.GeefComputerNaamViaIP(MaakOrderVanOfferteRequest.Header.GebruikerIp)
+	Lock +^Vhisie4.Winkelkar(MaakOrderVanOfferteRequest.WinkelkarId):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _MaakOrderVanOfferteRequest.WinkelkarId _" is gelocked door een andere webservice call. Probeer later opnieuw."))
 	
-	#dim OrderId As %String = ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId, ..MaakGegevenBevestigingen(MaakOrderVanOfferteRequest.BevestigdeSleutels)).GeefID()
-	
+	Try {
+		#dim VanHoeckeGebruiker As DOM.common.VanHoeckeGebruiker = ..VanHoeckeGebruikerBeheerder.GeefGebruikerViaEmail(MaakOrderVanOfferteRequest.GebruikerEmail)
+		#dim InterneOfferteId As %String = ..WinkelkarRepository.GeefOfferteIDViaID(MaakOrderVanOfferteRequest.WinkelkarId)
+		#dim ComputerNaam As %String = ..SystemInformation.GeefComputerNaamViaIP(MaakOrderVanOfferteRequest.Header.GebruikerIp)
+		
+		#dim OrderId As %String = ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId, ..MaakGegevenBevestigingen(MaakOrderVanOfferteRequest.BevestigdeSleutels)).GeefID()
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+
+		Lock -^Vhisie4.Winkelkar(MaakOrderVanOfferteRequest.WinkelkarId)
+
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
 	try {
 		Do ..TerminalNavigatieService.RaadpleegOrder(VanHoeckeGebruiker.GeefID(),ComputerNaam, OrderId)
 	} catch {
 		#dim NavigationException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	
+		Lock -^Vhisie4.Winkelkar(MaakOrderVanOfferteRequest.WinkelkarId)
+
 		#dim Melding As %String = "Gefaald voor WinkelkarId : " _MaakOrderVanOfferteRequest.WinkelkarId _$$$CRLF
 		Set Melding = Melding _"Gefaald voor OrderId : " _OrderId _$$$CRLF
 		Set Melding = Melding _"Gefaald voor ComputerNaam : " _ComputerNaam _$$$CRLF
@@ -72,6 +85,8 @@
 		Do ..Logger.Warning("OrderNavigatie",Melding)
 		Do ##class(TECH.Exceptions.InvalidUserInputException).Throw("Het order " _OrderId _" is gemaakt. Er was echter een probleem om admin automatisch op te starten. Gelieve manueel admin te starten om zo het order verder te verwerken.")
 	}
+	
+	Lock -^Vhisie4.Winkelkar(MaakOrderVanOfferteRequest.WinkelkarId)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml
===================================================================
diff -u -r44778 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 44778)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 45510)
@@ -36,10 +36,20 @@
 <Method name="MaakWinkelkar">
 <FormalSpec>MaakWinkelkarRequest:WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</FormalSpec>
 <Implementation><![CDATA[
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..WinkelkarServiceHelper.GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId))
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(MaakWinkelkarRequest.Header.PersonalityId)
-	Do:(..WinkelkarRepository.BestaatViaID(MaakWinkelkarRequest.WinkelkarId)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Winkelkar met id '"_MaakWinkelkarRequest.WinkelkarId _"' bestaat reeds."))
-	Do ..VerkoopService.MaakOfferte(..WinkelkarServiceHelper.GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId), $$$If(MaakWinkelkarRequest.Header.PersonalityId="",##class(DOM.common.enu.Personality).VanHoecke(),MaakWinkelkarRequest.Header.PersonalityId), MaakWinkelkarRequest.WinkelkarId)
+	Lock +^Vhisie4.Winkelkar(MaakWinkelkarRequest.WinkelkarId):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _MaakWinkelkarRequest.WinkelkarId _" is gelocked door een andere webservice call. Probeer later opnieuw."))
+	
+	Try {
+		do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..WinkelkarServiceHelper.GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId))
+		do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(MaakWinkelkarRequest.Header.PersonalityId)
+		Do:(..WinkelkarRepository.BestaatViaID(MaakWinkelkarRequest.WinkelkarId)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Winkelkar met id '"_MaakWinkelkarRequest.WinkelkarId _"' bestaat reeds."))
+		Do ..VerkoopService.MaakOfferte(..WinkelkarServiceHelper.GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId), $$$If(MaakWinkelkarRequest.Header.PersonalityId="",##class(DOM.common.enu.Personality).VanHoecke(),MaakWinkelkarRequest.Header.PersonalityId), MaakWinkelkarRequest.WinkelkarId)
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(MaakWinkelkarRequest.WinkelkarId)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Lock -^Vhisie4.Winkelkar(MaakWinkelkarRequest.WinkelkarId)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/VerwijderWinkelkar.cls.xml
===================================================================
diff -u -r39553 -r45510
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/VerwijderWinkelkar.cls.xml	(.../VerwijderWinkelkar.cls.xml)	(revision 39553)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/VerwijderWinkelkar.cls.xml	(.../VerwijderWinkelkar.cls.xml)	(revision 45510)
@@ -28,7 +28,18 @@
 
 <Method name="VerwijderWinkelkar">
 <FormalSpec>VerwijderWinkelkarRequest:WS.Vhisie4.Winkelkar.VerwijderWinkelkarRequest</FormalSpec>
-<Implementation><![CDATA[	Do ..VerkoopService.WisOfferte(..WinkelkarRepository.GeefOfferteIDViaID(VerwijderWinkelkarRequest.WinkelkarId))
+<Implementation><![CDATA[
+	Lock +^Vhisie4.Winkelkar(VerwijderWinkelkarRequest.WinkelkarId):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar met externeid " _VerwijderWinkelkarRequest.WinkelkarId _" is gelocked door een andere webservice call. Probeer later opnieuw."))
+	
+	Try {
+		Do ..VerkoopService.WisOfferte(..WinkelkarRepository.GeefOfferteIDViaID(VerwijderWinkelkarRequest.WinkelkarId))
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Lock -^Vhisie4.Winkelkar(VerwijderWinkelkarRequest.WinkelkarId)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Lock -^Vhisie4.Winkelkar(VerwijderWinkelkarRequest.WinkelkarId)
 ]]></Implementation>
 </Method>
 </Class>