Index: AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder.cls.xml
===================================================================
diff -u -r47334 -r47338
--- AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47334)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47338)
@@ -3,21 +3,6 @@
 <Class name="AXimpl.Dynamics.SalesOrderIn.Converter.OrderlijnenSorteerder">
 <Super>TECH.Mockable</Super>
 
-<Parameter name="Facturatie">
-<Type>%String</Type>
-<Default>F</Default>
-</Parameter>
-
-<Parameter name="GlobalOrderLijnen">
-<Type>%String</Type>
-<Default>^KOD</Default>
-</Parameter>
-
-<Parameter name="GlobalOrderLijnenIndex">
-<Type>%String</Type>
-<Default>^ORD</Default>
-</Parameter>
-
 <Parameter name="OrderLijnVolgNrOffset">
 <Type>%Integer</Type>
 <Default>100</Default>
@@ -28,6 +13,11 @@
 <Default>0</Default>
 </Parameter>
 
+<Property name="OrderLijnenUpdater">
+<Type>AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OrderLijnenLijst">
 <Type>%ListOfObjects</Type>
 <Private>1</Private>
@@ -39,13 +29,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>OrderLijnenUpdater:AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Set ..OrderLijnenUpdater = $$$Inject(OrderLijnenUpdater, ##class(AXimpl.Dynamics.SalesOrderIn.Converter.OrderLijnenUpdater).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -56,28 +48,10 @@
 	Do ..OrderLijnenLijst.Clear()
 	Do ..MaakOrderLijnenLijst(Order)
 	Do ..ValideerOrderLijnenLijst(Order)
-	Do ..UpdateOrderMetGesorteerdeLijst(Order)
+	Do ..OrderLijnenUpdater.UpdateOrderMetGesorteerdeLijst(Order, ..OrderLijnenLijst)
 ]]></Implementation>
 </Method>
 
-<Method name="UpdateOrderMetGesorteerdeLijst">
-<FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set OrderLijnenLijstIterator = ##class(TECH.ListIterator).%New(..OrderLijnenLijst)
-	While OrderLijnenLijstIterator.HasNext() {
-		#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn = OrderLijnenLijstIterator.Next()
-		Set @..#GlobalOrderLijnen(Order.GeefKlantNr(), ..#Facturatie, Order.GeefID(), OrderLijn.NieuwLijnVolgNr) = OrderLijn.Orderlijn.GeefRecord()
-		If (OrderLijn.Orderlijn.GeefLijnVolgNr() > (..#OrderLijnVolgNrOffset + ..NieuwOrderlijnVolgNr)) {
-			kill @..#GlobalOrderLijnen(Order.GeefKlantNr(), ..#Facturatie, Order.GeefID(), OrderLijn.Orderlijn.GeefLijnVolgNr())
-		}
-		If $$$Not(OrderLijn.Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMTekstOrderlijn")) {
-			Set @..#GlobalOrderLijnenIndex("IU",Order.GeefID(),OrderLijn.Orderlijn.GeefID()) = OrderLijn.NieuwLijnVolgNr
-		}
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ValideerOrderLijnenLijst">
 <FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
 <Private>1</Private>