Index: AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml
===================================================================
diff -u -r48025 -r48282
--- AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 48025)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 48282)
@@ -3,21 +3,77 @@
 <Class name="AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService">
 <Super>TECH.Mockable</Super>
 
+<Property name="SalesOrderLineStatusRepository">
+<Type>AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SalesOrderLineStatusRepository:AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SalesOrderLineStatusRepository = $$$Inject(SalesOrderLineStatusRepository, ##class(AXdata.Dynamics.SalesLineStatus.SalesOrderLineStatusRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToeleveringenViaOrder">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Implementation><![CDATA[
 	Do ##class(vhLib.OldSchool).InitVars()			
+
+	#dim ToeleveringIDArray As TECH.MultiDim = ..GeefToeleveringIDArray(Order)
+	
+	Do ..VerwijderToeleveringenMetVrijeOrderlijnen(ToeleveringIDArray)
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringIDArray">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.MultiDim</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringIDArray As TECH.MultiDim = ""
+	#dim ToeleveringID As %String = ""
+	
 	#dim OrderLijnIterator As TECH.ListIterator = Order.GeefProductOrderLijnIterator()
 	While OrderLijnIterator.HasNext() {
 		#dim OrderLijn As DOM.VKP.ProductOrderlijn = OrderLijnIterator.Next()
-		#dim ToeleveringID As %String = OrderLijn.GeefToeleveringID()
+		Set ToeleveringID = OrderLijn.GeefToeleveringID()
+
 		If $$$HasLength(ToeleveringID) {
-			Do ..VerwijderToelevering(ToeleveringID)
+			If $$$Not(..SalesOrderLineStatusRepository.IsVrijVoorUpdateViaAxInventTransId(OrderLijn.GeefAxInventTransId())) {
+				Set ToeleveringIDArray(ToeleveringID) = $$$False
+			} ElseIf $$$Not($Get(ToeleveringIDArray(ToeleveringID)) = $$$False) {
+				Set ToeleveringIDArray(ToeleveringID) = $$$True
+			}
 		}
 	}
+	
+	Quit ToeleveringIDArray
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderToeleveringenMetVrijeOrderlijnen">
+<FormalSpec>ToeleveringIDArray:TECH.MultiDim</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ToeleveringID As %String = ""
+	While $Order(ToeleveringIDArray(ToeleveringID)){
+		Set ToeleveringID = $Order(ToeleveringIDArray(ToeleveringID))
+		If $Data(ToeleveringIDArray(ToeleveringID)) {
+			If ($Get(ToeleveringIDArray(ToeleveringID)) = $$$True) {
+				Do ..VerwijderToelevering(ToeleveringID)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToelevering">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>