Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r49448 -r49462
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 49448)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 49462)
@@ -88,6 +88,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OrderAPI:DOM.VKP.OrderAPI,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,DateTimeAPI:TECH.DateTime.DateTimeAPI="",ProductBepaler:AXimpl.Admin.Common.ProductBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,OrderlijnenSorteerder:AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder,OrderSluiter:CHUI.VKP.OrderIngave.BevestigdAXOrderSluiterv01,ToeleveringService:AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository,SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository,VerkoopApi:DOM.VKP.VerkoopAPI,Mailer:AXimpl.Dynamics.SalesOrderIn.Converter.Mailer,LeverAdresMaker:AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.LeverAdresMaker</FormalSpec>
 <Private>1</Private>
@@ -125,6 +135,9 @@
 		Do ..Log(OrderHeader)
 		Do ..ConvertMessage(OrderHeader)
 	} Catch {
+		If $$$HasLength(..OrderID) && $$$HasLength(..KlantID) {
+			Do ..UnLockOrder() 
+		}
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do ..Mailer.VerzendFoutMelding(OrderHeader.CustAccount, OrderHeader.SalesId, Exception)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
@@ -157,12 +170,16 @@
 <FormalSpec>OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KlantID As %String = ##class(AXimpl.AxToAdminUtils).ConvertCustomerID(OrderHeader.CustAccount)
+	Set ..KlantID = ##class(AXimpl.AxToAdminUtils).ConvertCustomerID(OrderHeader.CustAccount)
 	
-	#Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(KlantID, OrderHeader)
+	#Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(..KlantID, OrderHeader)
 	
 	Quit:$$$Not($IsObject(Order))
 	
+	Set ..OrderID = Order.GeefID()
+
+	Do ..LockOrder()
+	
 	Do ..ZetOrderHoofding(Order, OrderHeader)
 	
 	Do ..ZetDocumentReferentie(Order, OrderHeader)
@@ -177,7 +194,6 @@
 		}
 
 		If $$$Not(..MagOrderLijnUpdaten(OrderLine)) {
-			;Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId)
 			Do ..Mailer.ZetMeldingGeblokkeerdeOrderLijn(Order, OrderLine.InventTransId)
 			Do ..Logger.Debug("SalesOrderIn - Orderlijn is geblokkeerd", "OrderLijn met InventTransId '" _OrderLine.InventTransId _"' is in verwerking. Er wordt geen update uitgevoerd.")
 			Continue
@@ -200,12 +216,26 @@
 
 	Do ..SluitOrder(Order)
 	
+	Do ..UnLockOrder() 
+
 	Do ..Mailer.VerzendMeldingGeblokkeerdeOrderLijnen(Order)
 
 	Set Order = ""
 ]]></Implementation>
 </Method>
 
+<Method name="LockOrder">
+<Private>1</Private>
+<Implementation><![CDATA[	Lock +^KOD(..KlantID,"F",..OrderID):1 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("OrderID '" _..OrderID _"' is gelocked. Het inkomende AX bestand met bevestigd verkooporder kan niet verwerkt worden."))
+]]></Implementation>
+</Method>
+
+<Method name="UnLockOrder">
+<Private>1</Private>
+<Implementation><![CDATA[	Lock -^KOD(..KlantID,"F",..OrderID)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderOrderIndienGeenOrderLijnen">
 <FormalSpec><![CDATA[&Order:DOM.VKP.Order]]></FormalSpec>
 <Private>1</Private>