Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/ToeleveringLockControleerder.cls.xml
===================================================================
diff -u
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/ToeleveringLockControleerder.cls.xml	(revision 0)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter/ToeleveringLockControleerder.cls.xml	(revision 73542)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.ToeleveringLockControleerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZijnToeleveringenGelockt">
+<FormalSpec>OrderId:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ZijnToeleveringenGelockt As %Boolean = $$$False
+	
+	Try {
+		If ..OrderAPI.BestaatOrder(OrderId) {
+			#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderId)
+			#dim ToeleveringIterator As TECH.Iterator = ..GeefToeleveringIteratorVanOrder(Order)
+			#dim ToeleveringId As %String
+			
+			While (ToeleveringIterator.HasNext() && $$$Not(ZijnToeleveringenGelockt)) {
+				Set ToeleveringId = ToeleveringIterator.Next()
+				
+				If (..IsToeleveringGelockt(ToeleveringId)) {
+					Set ZijnToeleveringenGelockt = $$$True
+				}
+			}
+		}
+	} Catch {
+		#dim LogBericht As %String = "De toeleveringen van order '" _ OrderId _ "' konden niet gecontroleerd worden of ze al dan niet een lock hebben. "
+		Set LogBericht = LogBericht _ "Hierdoor zijn deze toeleveringen mogelijks niet in sync tussen AX en Caché, gelieve dit te controleren."
+		Do ..Logger.ErrorMail("SalesOrderIn - Controleer locks", "De toeleveringen van order '" _ OrderId _ "' konden niet gecontroleerd worden of ze al dan niet een lock hebben.")
+	 }
+	
+	Quit ZijnToeleveringenGelockt
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringIteratorVanOrder">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnIterator As TECH.ListIterator
+	#dim OrderLijn As DOM.VKP.ProductOrderlijn
+	#dim ToeleveringId As %String
+
+	Set ToeleveringenReedsGecontroleerd = ##class(%ListOfDataTypes).%New()
+	
+	Set OrderLijnIterator = Order.GeefProductOrderLijnIterator()
+	While OrderLijnIterator.HasNext() {
+		Set OrderLijn = OrderLijnIterator.Next()
+		Set ToeleveringId = OrderLijn.GeefToeleveringID()
+		If $$$HasLength(ToeleveringId) && $$$Not(##class(TECH.ListUtils).Contains(ToeleveringenReedsGecontroleerd, ToeleveringId)) {
+			If ($Data(^KTO(6332,ToeleveringId))) {
+				Do ToeleveringenReedsGecontroleerd.Insert(ToeleveringId)
+			} Else {
+				Do ..Logger.WarningMail("SalesOrderIn - Order updaten", "Toelevering met id '" _ ToeleveringId _ "' is geen Halux toelevering. Enkel toeleveringen voor Halux worden gecontroleerd op locks.")
+			}
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(ToeleveringenReedsGecontroleerd)
+]]></Implementation>
+</Method>
+
+<Method name="IsToeleveringGelockt">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsToeleveringGelockt As %Boolean = $$$False
+	
+	Lock +^KTO(6332,ToeleveringId):0
+	If $Test {
+		Lock -^KTO(6332,ToeleveringId) // Unlock toelevering
+	} Else {
+		Set IsToeleveringGelockt = $$$True
+	}
+	
+	Quit IsToeleveringGelockt
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r73124 -r73542
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 73124)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 73542)
@@ -148,6 +148,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringLockControleerder">
+<Type>AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.ToeleveringLockControleerder</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,LandRepository:DOM.common.Locatie.impl.LandRepository,ProductRepository:Prod.ProductRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DataMProductRepository:DOM.PM.impl.DataM.DataMProductRepository="",ProductService:WSimpl.AX.CalculatedProduct.ProductService="",BerekeningServiceProduct:APPS.PM.Maatwerk.impl.BerekeningServiceProduct=""</FormalSpec>
 <Private>1</Private>
@@ -178,6 +183,7 @@
 	Set ..VerkoopApi = $$$Inject(VerkoopApi, ##class(DOM.VKP.impl.VerkoopAPI).%New())
 	Set ..VhConfigHelper = ##class(APPS.PM.Maatwerk.impl.VhConfigHelper).%New()
 	Set ..VhConfigRepository = ##class(APPS.PM.Maatwerk.impl.VhConfigRepository).%New()
+	Set ..ToeleveringLockControleerder = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.SalesOrderConverter.ToeleveringLockControleerder).%New()
 	
 	Set ..Logger = ##class(vhLib.Logger).%New()
 
@@ -234,8 +240,8 @@
 	If ..VerkoopApi.BestaatKlant(..KlantID) {
 		Set ..KLNr = $Piece(..KlantID,"||",2)
 		
-		Do ..LockOrder()
-
+		Do ..LockOrderEnControleerToeleveringen()
+		
 		#Dim Order As DOM.VKP.Order = ..GeefOfMaakOrder(..KlantID, OrderHeader)
 		
 		If ($IsObject(Order)) {
@@ -304,6 +310,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LockOrderEnControleerToeleveringen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..LockOrder()
+	
+	Try {
+		#dim ZijnToeleveringenGelockt = ..ToeleveringLockControleerder.ZijnToeleveringenGelockt(..OrderID)
+		If (ZijnToeleveringenGelockt) {
+			Do ..UnLockOrder()
+			#dim LockBericht = "OrderID '" _..OrderID _"' kan niet geupdate worden want toelevering(en) gelockt. Het inkomende AX bestand met bevestigd verkooporder kan niet verwerkt worden."
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
+		}
+	} Catch {
+		Do ..Logger.Error("", "")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="LockOrder">
 <Private>1</Private>
 <Implementation><![CDATA[