Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58341 -r58444
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58341)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58444)
@@ -1,39 +1,88 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="ToeleveringVoorbereidingService">
 <Type>APPS.Halux.Voorbereiding.VoorbereidingService</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService=""</FormalSpec>
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI=""</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())
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi, ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%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="VerwerkToelevering">
+<FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (..ToeleveringApi.BestaatToelevering(ToeleveringId)) {
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
+		
+		If ($$$Not(..IsKlaarGezet(Toelevering))) {
+			// Indien nog niet KLAARGEZET => Order/Toeleveringen aanpassen => Niemand verwittigen!
+		} ElseIf ($$$Not(..ZitToeleveringInBatch(ToeleveringId))) {
+			// Indien reeds KLAARGEZET MAAR NOG NIET IN BATCH => Order/Toeleveringen aanpassen => Halux hiervan verwittigen!
+		} Else {
+			// Indien reeds KLAARGEZET EN AL WEL IN BATCH (al dan niet gestart) => Order/Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanProductIdOpToeleveringLijnen">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
 <Method name="IsKlaarGezet">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</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)
+	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn
+	#dim AantalStuksKlaarGezet As %Integer = 0
+	
+	While (ProductLijnIterator.HasNext())
+	{
+		Set ProductToeleveringLijn = ProductLijnIterator.Next()
+		If (..ToeleveringVoorbereidingService.IsVolledigKlaarGezet(Toelevering.GeefID(), ProductToeleveringLijn.GeefID())) {
+			Set AantalStuksKlaarGezet = AantalStuksKlaarGezet + ProductToeleveringLijn.GeefAantal()
+		}
+	}
+	
+	Quit (AantalStuksKlaarGezet > 0)
 ]]></Implementation>
 </Method>
+
+<Method name="ZitToeleveringInBatch">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($$$Not(..BatchService.ZoekBijhorendeBatchIdVoorToelevering(ToeleveringId) = ""))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(revision 0)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(revision 58444)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkToelevering">
+<FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkToelevering",ToeleveringId,OudProductId,NieuwProductId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(revision 0)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(revision 58444)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</Super>
+
+<Method name="VerwerkToelevering">
+<FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml
===================================================================
diff -u -r58406 -r58444
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58406)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58444)
@@ -51,14 +51,8 @@
 			
 			If (..IsVrijVoorUpdate(AxInventTransId)) {
 				// Nog niets klaargezet of geproduceerd voor die AX-OrderLijn => Order/Toeleveringen aanpassen. Niemand verwittigen.
+				Do ..PasAanOrderLijnenEnToeleveringen(Order, AxInventTransId, OudProductId, NieuwProductId)
 			} Else {
-				#dim OrderLijnenIteratorVolgensAxInventTransId As TECH.Iterator = ..GeefOrderLijnenIteratorVolgensAxInventTransId(Order, AxInventTransId)
-				#dim OrderLijn As DOM.VKP.Orderlijn
-				
-				While OrderLijnenIteratorVolgensAxInventTransId.HasNext() {
-					Set OrderLijn = OrderLijnenIteratorVolgensAxInventTransId.Next()
-				}
-				
 				// 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???)
@@ -76,6 +70,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PasAanOrderLijnenEnToeleveringen">
+<FormalSpec>Order:DOM.VKP.Order,AxInventTransId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderLijnenIteratorVolgensAxInventTransId As TECH.Iterator = ..GeefOrderLijnIteratorVolgensAxInventTransId(Order, AxInventTransId)
+	#dim OrderLijn As DOM.VKP.Orderlijn
+	#dim ToeleveringId As %String
+	#dim IsOrderLijnAanTePassen As %Boolean
+	
+	While OrderLijnenIteratorVolgensAxInventTransId.HasNext() {
+		Set OrderLijn = OrderLijnenIteratorVolgensAxInventTransId.Next()
+		Set IsOrderLijnAanTePassen = ((OrderLijn.%IsA(##class(DOM.VKP.enu.OrderLijnType).Product())) && (OrderLijn.GeefProductID() = OudProductId))
+		If IsOrderLijnAanTePassen {
+			Set ToeleveringId = OrderLijn.GeefToeleveringID()
+			Do ..ToeleveringService.VerwerkToelevering(ToeleveringId, OudProductId, NieuwProductId)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IsVrijVoorUpdate">
 <FormalSpec>AxInventTransId:%String</FormalSpec>
 <Private>1</Private>
@@ -84,7 +98,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderLijnenIteratorVolgensAxInventTransId">
+<Method name="GeefOrderLijnIteratorVolgensAxInventTransId">
 <FormalSpec>Order:DOM.VKP.Order,AxInventTransId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>