Index: vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml
===================================================================
diff -u -r58341 -r58474
--- vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml	(.../Test.cls.xml)	(revision 58341)
+++ vhUnitTest/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/Test.cls.xml	(.../Test.cls.xml)	(revision 58474)
@@ -15,7 +15,7 @@
 
 <Parameter name="RandomOrderId">
 <Type>%Integer</Type>
-<Default>12345</Default>
+<Default>100000</Default>
 </Parameter>
 
 <Parameter name="RandomAxInventTransId">
@@ -43,40 +43,61 @@
 <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 ..ToeleveringService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Standaard gedrag met Order met 3 OrderLijnen met relevante AxInventTransId">
+<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))
 	
-	Set ..SalesOrderLineStatusRepository = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()
-	Do ..SalesOrderLineStatusRepository.IndienMethodCall("IsVrijVoorUpdateViaAxInventTransId", ..#RandomAxInventTransId).DanReturn($$$True)
+	#dim ToeleveringServiceMock As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New()
+	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 100, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$True).ExactAantalKeer(1)
+	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 200, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$True).ExactAantalKeer(1)
+	Do ToeleveringServiceMock.VerwachtMethodCall("IsToeleveringAangepast", 300, ..#RandomOudProductId, ..#RandomNieuwProductId).DanReturn($$$True).ExactAantalKeer(1)
+	
+	#dim LoggerStub As vhLib.Logger = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerStub.IndienMethodCall("Info", "ProductUpdater", "Op Order '"_..#RandomOrderId_"' werd op OrderLijn '"_100_"' de ProductId aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'.")
+	Do LoggerStub.IndienMethodCall("Info", "ProductUpdater", "Op Order '"_..#RandomOrderId_"' werd op OrderLijn '"_200_"' de ProductId aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'.")
+	Do LoggerStub.IndienMethodCall("Info", "ProductUpdater", "Op Order '"_..#RandomOrderId_"' werd op OrderLijn '"_300_"' de ProductId aangepast van '"_..#RandomOudProductId_"' naar '"_..#RandomNieuwProductId_"'.")
+	
+	Set ..OrderApi = OrderApiStub
+	Set ..ToeleveringService = ToeleveringServiceMock
+	Set ..Logger = LoggerStub
+	
+	#dim OrderService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService = ..GeefOrderService()
+	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId, ..#RandomAxInventTransId)
+	
+	Do ..ToeleveringService.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VerwerkOrder crasht">
 <Implementation><![CDATA[
 	#dim Exception As TECH.Exceptions = ##class(TECH.Exceptions.GeneralErrorException).%New("General error exception")
 	
-	#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())
+	#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(1))
 	
-	#dim SalesOrderLineStatusRepositoryStub As AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository = ##class(vhTest.Mock.AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New()
-	Do SalesOrderLineStatusRepositoryStub.IndienMethodCall("IsVrijVoorUpdateViaAxInventTransId", ..#RandomAxInventTransId).DanException(Exception)
+	#dim ToeleveringServiceStub As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService = ##class(vhTest.Mock.WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService).%New()
+	Do ToeleveringServiceStub.IndienMethodCall("IsToeleveringAangepast", 100, ..#RandomOudProductId, ..#RandomNieuwProductId).DanException(Exception)
 	
+	#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()).DanDoeNiks()
+	
+	Set ..OrderApi = OrderApiStub
+	Set ..ToeleveringService = ToeleveringServiceStub
 	Set ..Logger = LoggerMock
-	Set ..SalesOrderLineStatusRepository = SalesOrderLineStatusRepositoryStub
 	
 	#dim OrderService As WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService = ..GeefOrderService()
 	Do OrderService.VerwerkOrder(..#RandomOrderId, ..#RandomOudProductId, ..#RandomNieuwProductId, ..#RandomAxInventTransId)
@@ -106,20 +127,43 @@
 <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, , ..SalesOrderLineStatusRepository)
+<Implementation><![CDATA[	Quit ##class(WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService).%New(..OrderApi, ..Logger, ..ToeleveringService)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOrderStub">
+<FormalSpec>AantalOrderLijnenMetRelevanteAxInventTransId:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.Order</ReturnType>
 <Implementation><![CDATA[
-	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	#dim OrderStub As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
 	Do OrderStub.IndienMethodCall("GeefKlantNr").DanReturn(..#RandomKlantNr)
+	Do OrderStub.IndienMethodCall("GeefOrderLijnIteratorVolgensAxInventTransId", ..#RandomAxInventTransId).DanReturn(..GeefOrderLijnIteratorVolgensAxInventTransId(AantalOrderLijnenMetRelevanteAxInventTransId))
 	
 	Quit OrderStub
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrderLijnIteratorVolgensAxInventTransId">
+<FormalSpec>AantalGevondenOrderLijnen:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderLijnenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim OrderLijnStub As DOM.VKP.Orderlijn
+	#dim Aantal As %Integer
+	
+	For Aantal=1:1:AantalGevondenOrderLijnen {
+		Set OrderLijnStub = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn()
+		Do OrderLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(..#RandomAxInventTransId)
+		Do OrderLijnStub.IndienMethodCall("GeefProductID").DanReturn(..#RandomOudProductId)
+		Do OrderLijnStub.IndienMethodCall("GeefToeleveringID").DanReturn(Aantal_"00")
+		Do OrderLijnenLijst.Insert(OrderLijnStub)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(OrderLijnenLijst)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml
===================================================================
diff -u -r58406 -r58474
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58406)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58474)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Logger:vhLib.Logger="",ToeleveringService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService="",SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Logger:vhLib.Logger="",ToeleveringService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58444 -r58474
--- vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58444)
+++ vhTest/Fake/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58474)
@@ -7,9 +7,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService</Super>
 
-<Method name="VerwerkToelevering">
+<Method name="IsToeleveringAangepast">
 <FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
-<Implementation><![CDATA[
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58458 -r58474
--- vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58458)
+++ vhTest/Mock/WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58474)
@@ -15,9 +15,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkToelevering">
+<Method name="IsToeleveringAangepast">
 <FormalSpec>ToeleveringId:%String,OudProductId:%String,NieuwProductId:%String</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkToelevering",ToeleveringId,OudProductId,NieuwProductId)
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsToeleveringAangepast",ToeleveringId,OudProductId,NieuwProductId)
 ]]></Implementation>
 </Method>
 </Class>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml
===================================================================
diff -u -r58444 -r58474
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58444)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService.cls.xml	(.../OrderService.cls.xml)	(revision 58474)
@@ -18,13 +18,8 @@
 <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="",ToeleveringService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService="",SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Logger:vhLib.Logger="",ToeleveringService:WSimpl.AX.CalculatedProduct.ProductVolgensAxAttribuutBepaler.OrderService.ToeleveringService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,7 +28,6 @@
 	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>
@@ -49,14 +43,7 @@
 		Try {
 			Do ..LockOrder(KlantNr, OrderId)
 			
-			If (..IsVrijVoorUpdate(AxInventTransId)) {
-				// Nog niets klaargezet of geproduceerd voor die AX-OrderLijn => Order/Toeleveringen aanpassen. Niemand verwittigen.
-				Do ..PasAanOrderLijnenEnToeleveringen(Order, AxInventTransId, OudProductId, NieuwProductId)
-			} 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 ..PasAanOrderLijnenEnToeleveringen(Order, AxInventTransId, OudProductId, NieuwProductId)
 			
 			Do ..UnLockOrder(KlantNr, OrderId)
 		} Catch {
@@ -77,27 +64,24 @@
 	#dim OrderLijnenIteratorVolgensAxInventTransId As TECH.Iterator = ..GeefOrderLijnIteratorVolgensAxInventTransId(Order, AxInventTransId)
 	#dim OrderLijn As DOM.VKP.Orderlijn
 	#dim ToeleveringId As %String
-	#dim IsOrderLijnAanTePassen As %Boolean
+	#dim MagOrderLijnAangepastWorden As %Boolean
+	#dim IsOrderLijnAanTePassen As %Boolean = $$$False
 	
 	While OrderLijnenIteratorVolgensAxInventTransId.HasNext() {
 		Set OrderLijn = OrderLijnenIteratorVolgensAxInventTransId.Next()
-		Set IsOrderLijnAanTePassen = ((OrderLijn.%IsA(##class(DOM.VKP.enu.OrderLijnType).Product())) && (OrderLijn.GeefProductID() = OudProductId))
-		If IsOrderLijnAanTePassen {
+		Set MagOrderLijnAangepastWorden = ((OrderLijn.%IsA("DOM.VKP.ProductOrderlijn")) && (OrderLijn.GeefProductID() = OudProductId))
+		If MagOrderLijnAangepastWorden {
 			Set ToeleveringId = OrderLijn.GeefToeleveringID()
-			Do ..ToeleveringService.VerwerkToelevering(ToeleveringId, OudProductId, NieuwProductId)
+			Set IsOrderLijnAanTePassen = ..ToeleveringService.IsToeleveringAangepast(ToeleveringId, OudProductId, NieuwProductId)
+			If IsOrderLijnAanTePassen {
+				// OrderLijn aanpassen + Order saven
+				Do ..Logger.Info("ProductUpdater", "Op Order '"_Order.GeefID()_"' werd op OrderLijn '"_OrderLijn.GeefID()_"' de ProductId aangepast van '"_OudProductId_"' naar '"_NieuwProductId_"'.")
+			}
 		}
 	}
 ]]></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="GeefOrderLijnIteratorVolgensAxInventTransId">
 <FormalSpec>Order:DOM.VKP.Order,AxInventTransId:%String</FormalSpec>
 <Private>1</Private>
Index: WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml
===================================================================
diff -u -r58458 -r58474
--- WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58458)
+++ WSimpl/AX/CalculatedProduct/ProductVolgensAxAttribuutBepaler/OrderService/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 58474)
@@ -39,9 +39,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkToelevering">
+<Method name="IsToeleveringAangepast">
 <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)
 		
@@ -50,10 +53,16 @@
 			
 			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!
+				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!
+				// MAILEN !!!
 			}
 			 Do ..UnLockToelevering(ToeleveringId)	
 		} Catch {
@@ -64,6 +73,8 @@
 	} Else {
 		Do ..Logger.Warning("ProductUpdater", "In de ToeleveringService werd gezocht naar Toelevering '"_ToeleveringId_"' met het oog op het aanpassen van ProductId '"_OudProductId_"' naar '"_NieuwProductId_"' op de Lijnen ervan, maar er werd geen verwijzing naar de Toelevering gevonden in ^KTO1 volgens de ToeleveringApi")
 	}
+	
+	Quit IsToeleveringAangepast
 ]]></Implementation>
 </Method>