Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml
===================================================================
diff -u -r57941 -r58341
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml	(.../Test.cls.xml)	(revision 57941)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml	(.../Test.cls.xml)	(revision 58341)
@@ -18,6 +18,16 @@
 <Default>12345</Default>
 </Parameter>
 
+<Parameter name="RandomAxInventTransId">
+<Type>%String</Type>
+<Default>99999</Default>
+</Parameter>
+
+<Parameter name="RandomKlantNr">
+<Type>%Integer</Type>
+<Default>5555</Default>
+</Parameter>
+
 <Property name="OrderApi">
 <Type>DOM.VKP.OrderAPI</Type>
 <Private>1</Private>
@@ -28,30 +38,48 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringService">
+<Type>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SalesOrderLineStatusRepository">
+<Type>AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
 	Set ..OrderApi = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do ..OrderApi.IndienMethodCall("BestaatOrder", ..#RandomOrderId).DanReturn($$$True)
+	Do ..OrderApi.IndienMethodCall("GeefOrder", ..#RandomOrderId).DanReturn(..GeefOrderStub())
+	
 	Set ..Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
+	;Set ..ToeleveringService = ""
+	
+	Set ..SalesOrderLineStatusRepository = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()
+	Do ..SalesOrderLineStatusRepository.IndienMethodCall("IsVrijVoorUpdateViaAxInventTransId", ..#RandomAxInventTransId).DanReturn($$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwerkOrder crasht">
 <Implementation><![CDATA[
 	#dim Exception As TECH.Exceptions = ##class(TECH.Exceptions.GeneralErrorException).%New("General error exception")
-	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	
 	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error", "ProductUpdater", "Tijdens het aanpassen van orders na een ProductUpdate van OudProductId '"_..#RandomOudProductId_"' naar NieuwProductId '"_..#RandomNieuwProductId_"' deed zich in de OrderService een Exceptie voor: "_Exception.ToString())
 	
-	Do OrderApiStub.IndienMethodCall("BestaatOrder", ..#RandomOrderId).DanException(Exception)
-	Do LoggerMock.VerwachtMethodCall("Error", "ProductUpdater", "In de OrderService deed zich een Exceptie voor: "_Exception.ToString())
+	#dim SalesOrderLineStatusRepositoryStub As AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()
+	Do SalesOrderLineStatusRepositoryStub.IndienMethodCall("IsVrijVoorUpdateViaAxInventTransId", ..#RandomAxInventTransId).DanException(Exception)
 	
-	Set ..OrderApi = OrderApiStub
 	Set ..Logger = LoggerMock
+	Set ..SalesOrderLineStatusRepository = SalesOrderLineStatusRepositoryStub
 	
 	#dim OrderService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService = ..GeefOrderService()
-	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId)
+	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId, ..#RandomAxInventTransId)
 	
 	Do ..Logger.Verifieer()
 ]]></Implementation>
@@ -60,16 +88,16 @@
 <Method name="Test: Het Order bestaat niet =&gt; Warning loggen">
 <Implementation><![CDATA[
 	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
-	
 	Do OrderApiStub.IndienMethodCall("BestaatOrder", ..#RandomOrderId).DanReturn($$$False)
+	
+	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "In de OrderService werd gezocht naar Order '"_..#RandomOrderId_"' met het oog op het aanpassen van ProductId '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"' op de OrderLijnen ervan, maar het order gevonden in de W-nodes bestaat niet in ^KOD volgens de OrderApi")
 	
 	Set ..OrderApi = OrderApiStub
 	Set ..Logger = LoggerMock
 	
 	#dim OrderService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService = ..GeefOrderService()
-	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId)
+	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId, ..#RandomAxInventTransId)
 	
 	Do ..Logger.Verifieer()
 ]]></Implementation>
@@ -78,9 +106,20 @@
 <Method name="GeefOrderService">
 <Private>1</Private>
 <ReturnType>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService</ReturnType>
-<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService).%New(..OrderApi, ..Logger)
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService).%New(..OrderApi, ..Logger, , ..SalesOrderLineStatusRepository)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrderStub">
+<Private>1</Private>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderStub.IndienMethodCall("GeefKlantNr").DanReturn(..#RandomKlantNr)
+	
+	Quit OrderStub
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml
===================================================================
diff -u -r58044 -r58341
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml	(.../ProductVolgensAxAttribuutBepaler.cls.xml)	(revision 58044)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler.cls.xml	(.../ProductVolgensAxAttribuutBepaler.cls.xml)	(revision 58341)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderService">
+<Type>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductService:WSimpl.AX.CalculatedProduct.ProductService="",ProductUpdater:WSimpl.AX.CalculatedProduct.ProductUpdater=""</FormalSpec>
+<FormalSpec>ProductService:WSimpl.AX.CalculatedProduct.ProductService="",ProductUpdater:WSimpl.AX.CalculatedProduct.ProductUpdater="",OrderService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductService = $$$Inject(ProductService, ##class(WSimpl.AX.CalculatedProduct.ProductService).%New())
 	Set ..ProductUpdater = $$$Inject(ProductUpdater, ##class(WSimpl.AX.CalculatedProduct.ProductUpdater).%New())
+	Set ..OrderService = $$$Inject(OrderService, ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -60,7 +66,8 @@
 		
 		If (($$$HasLength(ProductId)) && ($$$Not(..ProductService.GeefOrderIdsVoorProduct(ProductId) = ""))) {
 			#dim NieuwProductId As %String = Product.GeefPRNr()
-			Do ..VerwerkOrdersVolgensProductId(ProductId, NieuwProductId)
+			#dim AxInventTransId As %String = Request.InventTransId
+			Do ..VerwerkOrdersVolgensProductId(AxInventTransId, ProductId, NieuwProductId)
 		}
 	}
 	
@@ -85,7 +92,7 @@
 </Method>
 
 <Method name="VerwerkOrdersVolgensProductId">
-<FormalSpec>OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<FormalSpec>AxInventTransId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim OrderId As %String
@@ -94,12 +101,8 @@
 	
 	While OrderIdsIterator.HasNext() {
 		Set OrderId = OrderIdsIterator.Next()
-		// Do ..OrderService.VerwerkOrder(OrderId, OudProductId, NieuwProductId)
+		Do ..OrderService.VerwerkOrder(OrderId, OudProductId, NieuwProductId, AxInventTransId)
 	}
-	
-	// Order is geblokkeerd => Halux/BIDI verwittigen
-	// Indien reeds KLAARGEZET maar NOG NIET in batch => Order/Toeleveringen aanpassen
-	// Indien reeds KLAARGEZET maar AL WEL in batch => Order/Toeleveringen NIET aanpassen
 ]]></Implementation>
 </Method>
 
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml
===================================================================
diff -u -r57941 -r58341
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 57941)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58341)
@@ -13,35 +13,96 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringService">
+<Type>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SalesOrderLineStatusRepository">
+<Type>AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Logger:vhLib.Logger="",ToeleveringService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService="",SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("CalculatedProduct"))
+	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New())
+	Set ..SalesOrderLineStatusRepository = $$$Inject(SalesOrderLineStatusRepository, ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkOrder">
-<FormalSpec>OrderId:%Integer,OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<FormalSpec>OrderId:%Integer,OudProductId:%String,NieuwProductId:%String,AxInventTransId:%String</FormalSpec>
 <Implementation><![CDATA[
-	try {
-		If (..OrderApi.BestaatOrder(OrderId)) {
+	If (..OrderApi.BestaatOrder(OrderId)) {
+		#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderId)
+		#dim KlantNr As %Integer = Order.GeefKlantNr()
+		
+		Try {
+			Do ..LockOrder(KlantNr, OrderId)
 			
-		} Else {
-			Do ..Logger.Warning("ProductUpdater", "In de OrderService werd gezocht naar Order '"_OrderId_"' met het oog op het aanpassen van ProductId '"_OudProductId_"' naar '"_NieuwProductId_"' op de OrderLijnen ervan, maar het order gevonden in de W-nodes bestaat niet in ^KOD volgens de OrderApi")
+			If (..IsVrijVoorUpdate(AxInventTransId)) {
+				// Nog niets klaargezet of geproduceerd voor die AX-OrderLijn => Order/Toeleveringen aanpassen. Niemand verwittigen.
+			} Else {
+				// Indien reeds KLAARGEZET MAAR NOG NIET IN BATCH => Order/Toeleveringen aanpassen => Halux hiervan verwittigen!
+				// Indien reeds KLAARGEZET EN AL WEL IN BATCH MAAR NOG NIET GESTART => Order/Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
+				// Indien reeds KLAARGEZET EN AL WEL IN BATCH EN IS AL GESTART => Order/Toeleveringen NIET aanpassen (=> BIDI waarschuwen???)
+			}
+			
+			Do ..UnLockOrder(KlantNr, OrderId)
+		} Catch {
+			Do ..UnLockOrder(KlantNr, OrderId)
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ..Logger.Error("ProductUpdater", "Tijdens het aanpassen van orders na een ProductUpdate van OudProductId '"_OudProductId_"' naar NieuwProductId '"_NieuwProductId_"' deed zich in de OrderService een Exceptie voor: "_Exception.ToString())
 		}
-	} catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ..Logger.Error("ProductUpdater", "In de OrderService deed zich een Exceptie voor: "_Exception.ToString())
+	} Else {
+		Do ..Logger.Warning("ProductUpdater", "In de OrderService werd gezocht naar Order '"_OrderId_"' met het oog op het aanpassen van ProductId '"_OudProductId_"' naar '"_NieuwProductId_"' op de OrderLijnen ervan, maar het order gevonden in de W-nodes bestaat niet in ^KOD volgens de OrderApi")
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsVrijVoorUpdate">
+<FormalSpec>AxInventTransId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..SalesOrderLineStatusRepository.IsVrijVoorUpdateViaAxInventTransId(AxInventTransId))
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijnenIteratorVolgensAxInventTransId">
+<FormalSpec>OrderId:%Integer,AxInventTransId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	// Op te zetten op DataMOrder
+]]></Implementation>
+</Method>
+
+<Method name="LockOrder">
+<FormalSpec>KlantNr:%Integer,OrderId:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LockBericht as %String
+	Lock +^KOD(KlantNr,"F",OrderId):1 Else  Do 
+	. Set LockBericht = "OrderId '" _OrderId_"' is gelocked." _$$$CRLF
+	. Set LockBericht = LockBericht _$$GebruikerInfoJob^vhLock($$LOCKJOB^vhLock($Name(^KOD(KlantNr,"F",OrderId))))
+	. Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New(LockBericht))
+]]></Implementation>
+</Method>
+
+<Method name="UnLockOrder">
+<FormalSpec>KlantNr:%Integer,OrderId:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Lock -^KOD(KlantNr,"F",OrderId)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(revision 0)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(revision 58341)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ToeleveringVoorbereidingService">
+<Type>APPS.Halux.Voorbereiding.VoorbereidingService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringVoorbereidingService = $$$Inject(ToeleveringVoorbereidingService, ##class(APPS.Halux.Voorbereiding.VoorbereidingService).%New())
+	
+	// Indien reeds KLAARGEZET MAAR NOG NIET IN BATCH => Order/Toeleveringen aanpassen => Halux hiervan verwittigen!
+	// Indien reeds KLAARGEZET EN AL WEL IN BATCH MAAR NOG NIET GESTART => Order/Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
+	// Indien reeds KLAARGEZET EN AL WEL IN BATCH EN IS AL GESTART => Order/Toeleveringen NIET aanpassen (=> BIDI waarschuwen???)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsKlaarGezet">
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	// $P($G(^HADPR("F",##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(ToeleveringID, ToeleveringLijnID),"K")),"\",3)="A"
+	Quit ..ToeleveringVoorbereidingService.IsVolledigKlaarGezet(ToeleveringID, ToeleveringLijnID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>