Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58474 -r58497
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58474)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58497)
@@ -52,16 +52,15 @@
 			Do ..LockToelevering(ToeleveringId)
 			
 			If ($$$Not(..IsKlaarGezet(Toelevering))) {
-				// Indien nog niet KLAARGEZET => Order/Toeleveringen aanpassen => Niemand verwittigen!
 				Do ..PasAanProductIdOpToeleveringLijnen(Toelevering, OudProductId, NieuwProductId)
 				Set IsToeleveringAangepast = $$$True
 			} ElseIf ($$$Not(..ZitToeleveringInBatch(ToeleveringId))) {
-				// Indien reeds KLAARGEZET MAAR NOG NIET IN BATCH => Order/Toeleveringen aanpassen => Halux hiervan verwittigen!
+				// KLAARGEZET maar nog NIET IN BATCH => Toeleveringen aanpassen => Halux hiervan verwittigen!
 				Do ..PasAanProductIdOpToeleveringLijnen(Toelevering, OudProductId, NieuwProductId)
 				Set IsToeleveringAangepast = $$$True
 				// MAILEN !!!
 			} Else {
-				// Indien reeds KLAARGEZET EN AL WEL IN BATCH (al dan niet gestart) => Order/Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
+				// KLAARGEZET en WEL IN BATCH (al dan niet gestart) => Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
 				// MAILEN !!!
 			}
 			 Do ..UnLockToelevering(ToeleveringId)	
@@ -81,20 +80,33 @@
 <Method name="PasAanProductIdOpToeleveringLijnen">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,OudProductId:%String,NieuwProductId:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijnIterator As TECH.Iterator = ..GeefProductToeleveringLijnIterator(Toelevering)
+	#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn
+	
+	While (ProductToeleveringLijnIterator.HasNext())
+	{
+		Set ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
+		If (ProductToeleveringLijn.GeefProductID() = OudProductId) {
+			Do ProductToeleveringLijn.ZetProductID(NieuwProductId)
+			Do ProductToeleveringLijn.Save()
+		}
+	}
+]]></Implementation>
 </Method>
 
 <Method name="IsKlaarGezet">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	#dim ProductToeleveringLijnIterator As TECH.Iterator = ..GeefProductToeleveringLijnIterator(Toelevering)
 	#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn
 	#dim AantalStuksKlaarGezet As %Integer = 0
 	
-	While (ProductLijnIterator.HasNext())
+	While (ProductToeleveringLijnIterator.HasNext())
 	{
-		Set ProductToeleveringLijn = ProductLijnIterator.Next()
+		Set ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
 		If (..ToeleveringVoorbereidingService.IsVolledigKlaarGezet(Toelevering.GeefID(), ProductToeleveringLijn.GeefID())) {
 			Set AantalStuksKlaarGezet = AantalStuksKlaarGezet + ProductToeleveringLijn.GeefAantal()
 		}
@@ -112,6 +124,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductToeleveringLijnIterator">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+]]></Implementation>
+</Method>
+
 <Method name="LockToelevering">
 <FormalSpec>ToeleveringId:%Integer</FormalSpec>
 <Private>1</Private>