Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml
===================================================================
diff -u -r58603 -r58612
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58603)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58612)
@@ -72,14 +72,12 @@
 		Set MagOrderLijnAangepastWorden = ((OrderLijn.%Extends("DOM.VKP.ProductOrderlijn")) && (OrderLijn.GeefProductID() = OudProductId))
 		If MagOrderLijnAangepastWorden {
 			Set ToeleveringId = OrderLijn.GeefToeleveringID()
-			Set IsOrderLijnAanTePassen = ..ToeleveringService.IsToeleveringAangepast(ToeleveringId, OudProductId, NieuwProductId)
-			If IsOrderLijnAanTePassen {
-				Do OrderLijn.ZetProductID(NieuwProductId, $$$True)
-				Do ..OrderApi.Bewaar(Order)
-				Do ..Logger.Info("ProductUpdater", "Aanpassing op Order '"_Order.GeefID()_"'. Op OrderLijn '"_OrderLijn.GeefID()_"' werd de ProductId aangepast van '"_OudProductId_"' naar '"_NieuwProductId_"'.")
-			} Else {
-				Do ..Logger.Info("ProductUpdater", "GEEN aanpassing op Order '"_Order.GeefID()_"'. Op OrderLijn '"_OrderLijn.GeefID()_"' werd de ProductId NIET aangepast van '"_OudProductId_"' naar '"_NieuwProductId_"'. Op Toelevering '"_ToeleveringId_"' konden de aanpassingen niet doorgevoerd worden.")
-			}
+			Do ..ToeleveringService.VerwerkToelevering(ToeleveringId, OudProductId, NieuwProductId)
+			
+			Do OrderLijn.ZetProductID(NieuwProductId, $$$True)
+			Do ..OrderApi.Bewaar(Order)
+			
+			Do ..Logger.Info("ProductUpdater", "Aanpassing op Order '"_Order.GeefID()_"'. Op OrderLijn '"_OrderLijn.GeefID()_"' werd de ProductId aangepast van '"_OudProductId_"' naar '"_NieuwProductId_"'.")
 		}
 	}
 ]]></Implementation>
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml
===================================================================
diff -u -r58603 -r58612
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml	(.../Test.cls.xml)	(revision 58603)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml	(.../Test.cls.xml)	(revision 58612)
@@ -64,9 +64,9 @@
 	Do OrderApiMock.VerwachtMethodCall("Bewaar", OrderStub).DanDoeNiks().ExactAantalKeer(3)
 	
 	#dim ToeleveringServiceMock As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New()
-	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200001, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$True).ExactAantalKeer(1)
-	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200002, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$True).ExactAantalKeer(1)
-	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200003, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$True).ExactAantalKeer(1)
+	Do ToeleveringServiceMock.VerwachtMethodCall("VerwerkToelevering", 200001, ..#RandomOudProductId, ..#RandomNieuwProductId).DanDoeNiks().ExactAantalKeer(1)
+	Do ToeleveringServiceMock.VerwachtMethodCall("VerwerkToelevering", 200002, ..#RandomOudProductId, ..#RandomNieuwProductId).DanDoeNiks().ExactAantalKeer(1)
+	Do ToeleveringServiceMock.VerwachtMethodCall("VerwerkToelevering", 200003, ..#RandomOudProductId, ..#RandomNieuwProductId).DanDoeNiks().ExactAantalKeer(1)
 	
 	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "Aanpassing op Order '"_..#RandomOrderId_"'. Op OrderLijn '"_100_"' werd de ProductId aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'.")
@@ -86,34 +86,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard gedrag met Order met 3 OrderLijnen met relevante AxInventTransId wanneer Toelevering NIET werd aangepast volgens ToeleveringService =&gt; Order onveranderd">
-<Implementation><![CDATA[
-	#dim OrderApiStub As DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	Do OrderApiStub.IndienMethodCall("BestaatOrder", ..#RandomOrderId).DanReturn($$$True)
-	Do OrderApiStub.IndienMethodCall("GeefOrder", ..#RandomOrderId).DanReturn(..GeefOrderStub(3))
-	
-	#dim ToeleveringServiceMock As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New()
-	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200001, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$False).ExactAantalKeer(1)
-	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200002, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$False).ExactAantalKeer(1)
-	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200003, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$False).ExactAantalKeer(1)
-	
-	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "GEEN aanpassing op Order '"_..#RandomOrderId_"'. Op OrderLijn '"_100_"' werd de ProductId NIET aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'. Op Toelevering '"_200001_"' konden de aanpassingen niet doorgevoerd worden.")
-	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "GEEN aanpassing op Order '"_..#RandomOrderId_"'. Op OrderLijn '"_200_"' werd de ProductId NIET aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'. Op Toelevering '"_200002_"' konden de aanpassingen niet doorgevoerd worden.")
-	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "GEEN aanpassing op Order '"_..#RandomOrderId_"'. Op OrderLijn '"_300_"' werd de ProductId NIET aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'. Op Toelevering '"_200003_"' konden de aanpassingen niet doorgevoerd worden.")
-	
-	Set ..OrderApi = OrderApiStub
-	Set ..ToeleveringService = ToeleveringServiceMock
-	Set ..Logger = LoggerMock
-	
-	#dim OrderService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService = ..GeefOrderService()
-	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId, ..#RandomAxInventTransId)
-	
-	Do ..ToeleveringService.Verifieer()
-	Do ..Logger.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="Test: VerwerkOrder crasht">
 <Implementation><![CDATA[
 	#dim Exception As TECH.Exceptions = ##class(TECH.Exceptions.GeneralErrorException).%New("General error exception")
@@ -123,7 +95,7 @@
 	Do OrderApiStub.IndienMethodCall("GeefOrder", ..#RandomOrderId).DanReturn(..GeefOrderStub(1))
 	
 	#dim ToeleveringServiceStub As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New()
-	Do ToeleveringServiceStub.IndienMethodCall("IsToeleveringAangepast", 200001, ..#RandomOudProductId, ..#RandomNieuwProductId).DanException(Exception)
+	Do ToeleveringServiceStub.IndienMethodCall("VerwerkToelevering", 200001, ..#RandomOudProductId, ..#RandomNieuwProductId).DanException(Exception)
 	
 	#dim LoggerMock As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Do LoggerMock.VerwachtMethodCall("Error", "ProductUpdater", "Exception. Tijdens het aanpassen van orders na een ProductUpdate van OudProductId '"_..#RandomOudProductId_"' naar NieuwProductId '"_..#RandomNieuwProductId_"' deed zich in de OrderService een Exceptie voor: "_Exception.ToString()).DanDoeNiks()
Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml
===================================================================
diff -u -r58610 -r58612
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58610)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService/Test.cls.xml	(.../Test.cls.xml)	(revision 58612)
@@ -18,11 +18,6 @@
 <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>
@@ -48,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FlowToeService">
+<Type>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -58,23 +58,22 @@
 	Set ..ToeleveringApi = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
 	Set ..Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
 	Set ..MailApi = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
+	Set ..FlowToeService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: IsToeleveringAangepast crasht">
+<Method name="Test: VerwerkToelevering crasht">
 <Implementation><![CDATA[
 	#dim Exception As TECH.Exceptions = ##class(TECH.Exceptions.GeneralErrorException).%New("General error exception")
 	
-	#dim HeeftLijnenMetOudProductId As %Boolean = $$$True
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub(HeeftLijnenMetOudProductId)
-	
-	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ##class(vhTest.Mock.APPS.Halux.Voorbereiding.VoorbereidingService).%New()
-	Do ToeleveringVoorbereidingServiceStub.IndienMethodCall("IsVolledigKlaarGezet", ..#RandomToeleveringId, $$$ElkeWaarde).DanException(Exception)
-	
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub()
 	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
 	Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
 	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
 	
+	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ##class(vhTest.Mock.APPS.Halux.Voorbereiding.VoorbereidingService).%New()
+	Do ToeleveringVoorbereidingServiceStub.IndienMethodCall("IsVolledigKlaarGezet", ..#RandomToeleveringId, $$$ElkeWaarde).DanException(Exception)
+	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	#dim LoggingDetail As %String = "Toelevering-afhandeling '"_..#RandomToeleveringId_"' gefaald! "
 	Set LoggingDetail = LoggingDetail_"De poging tot verwijderen van Toelevering '"_..#RandomToeleveringId_"', na een ProductUpdate van OudProductId '"_..#RandomOudProductId_"' naar NieuwProductId '"_..#RandomNieuwProductId
@@ -86,8 +85,8 @@
 	Set ..Logger = LoggerMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	Do ToeleveringService.VerwerkToelevering(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)
 	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
 	;Do ..Logger.Verifieer()
 ]]></Implementation>
 </Method>
@@ -98,23 +97,25 @@
 	Do ToeleveringApiMock.VerwachtMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$False)
 	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' bestaat niet! 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")
+	#dim LoggingDetail As %String = "Toelevering '"_..#RandomToeleveringId_"' bestaat niet! "
+	Set LoggingDetail = LoggingDetail_"In de ToeleveringService werd gezocht naar Toelevering '"_..#RandomToeleveringId_"' met het oog op het aanpassen van ProductId '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId
+	Set LoggingDetail = LoggingDetail_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi"
+	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", LoggingDetail)
 	
 	Set ..ToeleveringApi = ToeleveringApiMock
 	Set ..Logger = LoggerMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	Do ToeleveringService.VerwerkToelevering(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)
 	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
 	Do ..ToeleveringApi.Verifieer()
 	Do ..Logger.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Geen ToeleveringLijnen met te vervangen ProductId">
+<Method name="Test: Toelevering is nog NIET klaargezet en NIET in batch">
 <Implementation><![CDATA[
-	#dim HeeftLijnenMetOudProductId As %Boolean = $$$False
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub(HeeftLijnenMetOudProductId)
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub()
 	
 	#dim IsToeleveringKlaargezet As %Boolean = $$$False
 	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, IsToeleveringKlaargezet)
@@ -126,56 +127,29 @@
 	Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
 	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
 	
-	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	#dim LoggingDetail As %String = "Geen ToeleveringLijnen gevonden voor ProductId '"_..#RandomOudProductId_"' op Toelevering '"_..#RandomToeleveringId_"', terwijl er wel op Order '1000' minstens 1 OrderLijn is voor dat Product!"
-	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", LoggingDetail)
+	#dim FloeToeServiceMock = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService).%New()
+	Do FloeToeServiceMock.VerwachtMethodCall("VerwijderToeleveringMetBehoudVanOrder", ..#RandomToeleveringId).DanDoeNiks()
 	
-	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
-	Set ..BatchService = BatchServiceStub
-	Set ..ToeleveringApi = ToeleveringApiStub
-	Set ..Logger = LoggerMock
-	
-	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
-	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
-	Do ..Logger.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: Toelevering is nog niet klaargezet">
-<Implementation><![CDATA[
-	#dim HeeftLijnenMetOudProductId As %Boolean = $$$True
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub(HeeftLijnenMetOudProductId)
-	
-	#dim IsToeleveringKlaargezet As %Boolean = $$$False
-	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, IsToeleveringKlaargezet)
-	
-	#dim ZitToeleveringInBatch As %Boolean = $$$False
-	#dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch)
-	
-	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
-	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
-	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Info", "ProductUpdater", "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_..#RandomToeleveringId_"', op lijn '"_100_"', werd de ProductId '"_..#RandomOudProductId_"' vervangen door '"_..#RandomNieuwProductId_"'.")
+	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' werd succesvol verwijderd.")
 	
 	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
 	Set ..BatchService = BatchServiceStub
 	Set ..ToeleveringApi = ToeleveringApiStub
+	Set ..FlowToeService = FloeToeServiceMock
 	Set ..Logger = LoggerMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	Do ToeleveringService.VerwerkToelevering(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)
 	
-	Do $$$AssertTrue(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
+	Do ..FlowToeService.Verifieer()
 	Do ..Logger.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Toelevering is nog niet klaargezet maar wel al in Batch">
+<Method name="Test: Toelevering is nog NIET klaargezet maar WEL al in Batch">
 <Implementation><![CDATA[
-	#dim HeeftLijnenMetOudProductId As %Boolean = $$$True
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub(HeeftLijnenMetOudProductId)
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub()
 	
 	#dim IsToeleveringKlaargezet As %Boolean = $$$False
 	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, IsToeleveringKlaargezet)
@@ -188,7 +162,11 @@
 	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
 	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail. ")
+	#dim LoggingDetail As %String = "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! "
+	Set LoggingDetail = LoggingDetail_"Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId
+	Set LoggingDetail = LoggingDetail_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. "
+	Set LoggingDetail = LoggingDetail_"ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail."
+	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", LoggingDetail)
 	
 	#dim Mail As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New()
 	#dim MailApiMock As TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
@@ -202,17 +180,16 @@
 	Set ..MailApi = MailApiMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	Do ToeleveringService.VerwerkToelevering(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)
 	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
 	Do ..Logger.Verifieer()
 	Do ..MailApi.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Toelevering is klaargezet maar nog niet in batch">
+<Method name="Test: Toelevering is WEL klaargezet maar nog NIET in batch">
 <Implementation><![CDATA[
-	#dim HeeftLijnenMetOudProductId As %Boolean = $$$True
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub(HeeftLijnenMetOudProductId)
+	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub()
 	
 	#dim IsToeleveringKlaargezet As %Boolean = $$$True
 	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, IsToeleveringKlaargezet)
@@ -225,7 +202,11 @@
 	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
 	
 	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail. ")
+	#dim LoggingDetail As %String = "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! "
+	Set LoggingDetail = LoggingDetail_"Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId
+	Set LoggingDetail = LoggingDetail_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. "
+	Set LoggingDetail = LoggingDetail_"ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail."
+	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", LoggingDetail)
 	
 	#dim Mail As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New()
 	#dim MailApiMock As TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
@@ -239,74 +220,30 @@
 	Set ..MailApi = MailApiMock
 	
 	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
+	Do ToeleveringService.VerwerkToelevering(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId)
 	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
 	Do ..Logger.Verifieer()
 	Do ..MailApi.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Toelevering zit al in batch">
-<Implementation><![CDATA[
-	#dim HeeftLijnenMetOudProductId As %Boolean = $$$True
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ..GeefToeleveringStub(HeeftLijnenMetOudProductId)
-	
-	#dim IsToeleveringKlaargezet As %Boolean = $$$True
-	#dim ToeleveringVoorbereidingServiceStub As APPS.Halux.Voorbereiding.VoorbereidingService = ..GeefToeleveringVoorbereidingServiceStub(ToeleveringStub, IsToeleveringKlaargezet)
-	
-	#dim ZitToeleveringInBatch As %Boolean = $$$True
-	#dim BatchServiceStub As APPS.Halux.common.BatchService = ..GeefBatchServiceStub(ZitToeleveringInBatch)
-	
-	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	Do ToeleveringApiStub.IndienMethodCall("BestaatToelevering", ..#RandomToeleveringId).DanReturn($$$True)
-	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering", ..#RandomToeleveringId).DanReturn(ToeleveringStub)
-	
-	#dim LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
-	Do LoggerMock.VerwachtMethodCall("Warning", "ProductUpdater", "Toelevering '"_..#RandomToeleveringId_"' is out of sync!! Er zijn lijnen waarvan de ProductId '"_..#RandomOudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_..#RandomNieuwProductId_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail. ")
-	
-	#dim Mail As TECH.Mail.Mail = ##class(TECH.Mail.impl.Mail).%New()
-	#dim MailApiMock As TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).%New()
-	Do MailApiMock.VerwachtMethodCall("MaakNieuwMail").DanReturn(Mail)
-	Do MailApiMock.VerwachtMethodCall("VerstuurMail", Mail).DanDoeNiks()
-	
-	Set ..ToeleveringVoorbereidingService = ToeleveringVoorbereidingServiceStub
-	Set ..BatchService = BatchServiceStub
-	Set ..ToeleveringApi = ToeleveringApiStub
-	Set ..Logger = LoggerMock
-	Set ..MailApi = MailApiMock
-	
-	#dim ToeleveringService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ..GeefToeleveringService()
-	
-	Do $$$AssertFalse(ToeleveringService.IsToeleveringAangepast(..#RandomToeleveringId, ..#RandomOudProductId, ..#RandomNieuwProductId))
-	Do ..Logger.Verifieer()
-	Do ..MailApi.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, ..MailApi)
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New(..ToeleveringVoorbereidingService, ..BatchService, ..ToeleveringApi, ..Logger, ..MailApi, ..FlowToeService)
 ]]></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 {
+	For Aantal=1:1:3 {
 		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)
 	}
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58474 -r58612
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58474)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58612)
@@ -7,11 +7,9 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</Super>
 
-<Method name="IsToeleveringAangepast">
+<Method name="VerwerkToelevering">
 <FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58512 -r58612
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58512)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58612)
@@ -9,16 +9,15 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI="",FlowToeService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="IsToeleveringAangepast">
+<Method name="VerwerkToelevering">
 <FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsToeleveringAangepast",ToeleveringId,OudProductId,NieuwProductId)
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkToelevering",ToeleveringId,OudProductId,NieuwProductId)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58610 -r58612
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58610)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58612)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FlowToeService">
+<Type>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI=""</FormalSpec>
+<FormalSpec>ToeleveringVoorbereidingService:APPS.Halux.Voorbereiding.VoorbereidingService="",BatchService:APPS.Halux.common.BatchService="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",Logger:vhLib.Logger="",MailApi:TECH.Mail.MailAPI="",FlowToeService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,17 +45,15 @@
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi, ##class(DOM.AKP.impl.DataM.DataMToeleveringAPI).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("CalculatedProduct"))
 	Set ..MailApi = $$$Inject(MailApi, ##class(TECH.Mail.impl.MailAPI).%New())
+	Set ..FlowToeService = $$$Inject(FlowToeService, ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService.FlowToeService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="IsToeleveringAangepast">
+<Method name="VerwerkToelevering">
 <FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim IsToeleveringAangepast As %Boolean = $$$False
-	
 	If (..ToeleveringApi.BestaatToelevering(ToeleveringId)) {
 		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 		#dim OrderId As %String = Toelevering.GeefOrderID()
@@ -60,17 +63,18 @@
 			Do ..LockToelevering(ToeleveringId)
 			
 			If (($$$Not(..IsKlaarGezet(Toelevering))) && ($$$Not(..ZitToeleveringInBatch(ToeleveringId)))) {
-				//Toelevering gewoon weggooien
-				Set IsToeleveringAangepast = ..IsProductIdOpToeleveringLijnenAangepast(OrderId, Toelevering, OudProductId, NieuwProductId)
+				Do ..FlowToeService.VerwijderToeleveringMetBehoudVanOrder(ToeleveringId)
+				Set LoggingDetail = "Toelevering '"_ToeleveringId_"' werd succesvol verwijderd."
 			} Else {
 				Set LoggingDetail = "Toelevering '"_ToeleveringId_"' is out of sync!! "
 					_"Er zijn lijnen waarvan de ProductId '"_OudProductId_"' niet meer overeenstemt met die op de OrderLijn in AX '"_NieuwProductId
 					_"'. Er werd getracht de Toelevering te verwijderen, maar ze is al klaargezet of zit al in een Batch, dus de poging is geannuleerd. "
-					_"ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail. "
-				Do ..Logger.Warning("ProductUpdater", LoggingDetail)
+					_"ICT moet geen actie ondernemen, Halux planning is hiervan verwittigd per e-mail."
 				Do ..VerstuurMail(OrderId, ToeleveringId, OudProductId, NieuwProductId)
 			}
 			
+			Do ..Logger.Warning("ProductUpdater", LoggingDetail)
+			
 			Do ..UnLockToelevering(ToeleveringId)	
 		} Catch {
 			Do ..UnLockToelevering(ToeleveringId)	
@@ -86,42 +90,9 @@
 			_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi"
 		Do ..Logger.Warning("ProductUpdater", LoggingDetail)
 	}
-	
-	Quit IsToeleveringAangepast
 ]]></Implementation>
 </Method>
 
-<Method name="IsProductIdOpToeleveringLijnenAangepast">
-<FormalSpec>OrderId:%String,Toelevering:DOM.AKP.Toelevering,OudProductId:%String,NieuwProductId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsProductIdOpToeleveringLijnenAangepast As %Boolean = $$$False
-	#dim ProductToeleveringLijnIterator As TECH.Iterator = ..GeefProductToeleveringLijnIterator(Toelevering)
-	#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn
-	#dim LoggingDetail As %String
-	
-	While (ProductToeleveringLijnIterator.HasNext())
-	{
-		Set ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
-		If (ProductToeleveringLijn.GeefProductID() = OudProductId) {
-			Do ProductToeleveringLijn.ZetProductID(NieuwProductId, $$$False)
-			Set LoggingDetail = "ProductId gewijzigd op ToeleveringLijn. Op Toelevering '"_Toelevering.GeefID()
-				_"', op lijn '"_ProductToeleveringLijn.GeefID()_"', werd de ProductId '"_OudProductId_"' vervangen door '"_NieuwProductId_"'."
-			Do ..Logger.Info("ProductUpdater", LoggingDetail)
-			Set IsProductIdOpToeleveringLijnenAangepast = $$$True
-		}
-	}
-	
-	If ($$$Not(IsProductIdOpToeleveringLijnenAangepast)) {
-		Set LoggingDetail = "Geen ToeleveringLijnen gevonden voor ProductId '"_OudProductId_"' op Toelevering '"_Toelevering.GeefID()_"', terwijl er wel op Order '"_OrderId_"' minstens 1 OrderLijn is voor dat Product!"
-		Do ..Logger.Warning("ProductUpdater", LoggingDetail)
-	}
-	
-	Quit IsProductIdOpToeleveringLijnenAangepast
-]]></Implementation>
-</Method>
-
 <Method name="IsKlaarGezet">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>