Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58497 -r58510
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58497)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58510)
@@ -55,15 +55,19 @@
 				Do ..PasAanProductIdOpToeleveringLijnen(Toelevering, OudProductId, NieuwProductId)
 				Set IsToeleveringAangepast = $$$True
 			} ElseIf ($$$Not(..ZitToeleveringInBatch(ToeleveringId))) {
-				// KLAARGEZET maar nog NIET IN BATCH => Toeleveringen aanpassen => Halux hiervan verwittigen!
 				Do ..PasAanProductIdOpToeleveringLijnen(Toelevering, OudProductId, NieuwProductId)
 				Set IsToeleveringAangepast = $$$True
-				// MAILEN !!!
+				// Halux MAILEN !!!
 			} Else {
 				// KLAARGEZET en WEL IN BATCH (al dan niet gestart) => Toeleveringen NIET aanpassen => Halux hiervan verwittigen!
 				// MAILEN !!!
 			}
-			 Do ..UnLockToelevering(ToeleveringId)	
+			
+			If IsToeleveringAangepast {
+				Do ..ToeleveringApi.Bewaar(Toelevering)
+			}
+			
+			Do ..UnLockToelevering(ToeleveringId)	
 		} Catch {
 			Do ..UnLockToelevering(ToeleveringId)	
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -88,8 +92,8 @@
 	{
 		Set ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
 		If (ProductToeleveringLijn.GeefProductID() = OudProductId) {
-			Do ProductToeleveringLijn.ZetProductID(NieuwProductId)
-			Do ProductToeleveringLijn.Save()
+			Do ProductToeleveringLijn.ZetProductID(NieuwProductId, $$$False)
+			Do ..Logger.Info("ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_Toelevering.GeefID()_"', op lijn '"_ProductToeleveringLijn.GeefID()_"', werd de ProductId '"_OudProductId_"' vervangen door '"_NieuwProductId_"'.")
 		}
 	}
 ]]></Implementation>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml
===================================================================
diff -u -r58501 -r58510
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58501)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58510)
@@ -18,6 +18,11 @@
 <Default>654321</Default>
 </Parameter>
 
+<Parameter name="RandomProductId">
+<Type>%String</Type>
+<Default>345678</Default>
+</Parameter>
+
 <Property name="ToeleveringVoorbereidingService">
 <Type>APPS.Halux.Voorbereiding.VoorbereidingService</Type>
 <Private>1</Private>
@@ -52,29 +57,146 @@
 
 <Method name="Test: Toelevering bestaat niet">
 <Implementation><![CDATA[
+	#dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$False)
+	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "In de ToeleveringService werd gezocht naar Toelevering '"_..#RandomToeleveringId_"' met het oog op het aanpassen van ProductId '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi")
 	
+	Set ..ToeleveringApi = ToeleveringApiMock
+	Set ..Logger = LoggerMock
+	
+	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	
+	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do ..ToeleveringApi.Verifieer()
+	Do ..Logger.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Toelevering is nog niet klaargezet">
+<Implementation><![CDATA[
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub($$$True)
+	
+	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, $$$False)
+	
 	#dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$False)
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
+	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
+	Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks()
 	
+	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
+	
+	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
 	Set ..ToeleveringApi = ToeleveringApiMock
 	Set ..Logger = LoggerMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
 	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do $$$AssertTrue(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
 	Do ..ToeleveringApi.Verifieer()
 	Do ..Logger.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Toelevering is klaargezet maar nog niet in batch">
+<Implementation><![CDATA[
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub($$$True)
+	
+	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, $$$True)
+	#dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub($$$False)
+	
+	#dim ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ToeleveringApiMock.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
+	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
+	Do ToeleveringApiMock.VerwachtMethodCall("Bewaar", ToeleveringStub).DanDoeNiks()
+	
+	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_ToeleveringStub.GeefID()_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
+	
+	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
+	Set ..BatchService = BatchServiceStub
+	Set ..ToeleveringApi = ToeleveringApiMock
+	Set ..Logger = LoggerMock
+	
+	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	
+	Do $$$AssertTrue(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do ..ToeleveringApi.Verifieer()
+	Do ..Logger.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeleveringService">
 <Private>1</Private>
 <ReturnType>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</ReturnType>
 <Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New(..ToeleveringVoorbereidingService, ..BatchService, ..ToeleveringApi, ..Logger)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefToeleveringStub">
+<FormalSpec>IsMetToeleveringLijnenMetOudProductId:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijnLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim ProductToeleveringLijnStub As DOM.AKP.ProductToeleveringLijn
+	#dim Aantal As %Integer
+	
+	For Aantal=1:1:10 {
+		Set ProductToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
+		If (IsMetToeleveringLijnenMetOudProductId && ((Aantal = 3) || (Aantal = 6) || (Aantal = 9))) {
+			Do ProductToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn(..#RandomOudProductId)
+			Do ProductToeleveringLijnStub.IndienMethodCall("ZetProductID", ..#RandomNieuwProductId, $$$False).DanDoeNiks()
+		} Else {
+			Do ProductToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn(..#RandomProductId)
+		}
+		Do ProductToeleveringLijnStub.IndienMethodCall("GeefAantal").DanReturn(3)
+		Do ProductToeleveringLijnLijst.Insert(ProductToeleveringLijnStub)
+	}
+	
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn(, ProductToeleveringLijnLijst)
+	Do ToeleveringStub.IndienMethodCall("GeefID").DanReturn(..#RandomToeleveringId)
+	Do ToeleveringStub.IndienMethodCall("GeefTypeToeleveringLijnIterator", ##class(DOM.AKP.enu.ToeleveringLijnType).Product()).DanReturn(##class(TECH.ListIterator).%New(ProductToeleveringLijnLijst))
+	
+	Quit ToeleveringStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringVoorbereidingServiceStub">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,IsKlaargezet:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Voorbereiding.VoorbereidingService</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ##class(vhTest.Mock.APPS.Halux.Voorbereiding.VoorbereidingService).%New()
+	
+	If IsKlaargezet {
+		Do ToeleveringVoorbereidingServiceStub.IndienMethodCall("IsVolledigKlaarGezet", ..#RandomToeleveringId, $$$ElkeWaarde).DanReturn($$$True)
+	} Else {
+		Do ToeleveringVoorbereidingServiceStub.IndienMethodCall("IsVolledigKlaarGezet", ..#RandomToeleveringId, $$$ElkeWaarde).DanReturn($$$False)
+	}
+	
+	Quit ToeleveringVoorbereidingServiceStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchServiceStub">
+<FormalSpec>ZitInBatch:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.BatchService</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchServiceStub As APPS.Halux.common.BatchService = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	
+	If ZitInBatch {
+		Do BatchServiceStub.IndienMethodCall("ZoekBijhorendeBatchIdVoorToelevering", ..#RandomToeleveringId).DanReturn("RandomBatchId")
+	} Else {
+		Do BatchServiceStub.IndienMethodCall("ZoekBijhorendeBatchIdVoorToelevering", ..#RandomToeleveringId).DanReturn("")
+	}
+	
+	Quit BatchServiceStub
+]]></Implementation>
+</Method>
 </Class>