Index: DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml
===================================================================
diff -u -r47171 -r47175
--- DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47171)
+++ DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47175)
@@ -3,8 +3,23 @@
 <Class name="DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder">
 <Super>TECH.Mockable</Super>
 
-<Parameter name="EersteOrderlijnId">
+<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>
+</Parameter>
+
+<Parameter name="OrderlijnIdOffset">
+<Type>%Integer</Type>
 <Default>0</Default>
 </Parameter>
 
@@ -47,12 +62,12 @@
 	Set OrderLijnenLijstIterator = ##class(TECH.ListIterator).%New(..OrderLijnenLijst)
 	While OrderLijnenLijstIterator.HasNext() {
 		#dim OrderLijn As DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn = OrderLijnenLijstIterator.Next()
-		Set ^KOD(Order.GeefKlantNr(), "F", Order.GeefID(), OrderLijn.NieuwLijnVolgNr) = OrderLijn.Orderlijn.GeefRecord()
-		If (OrderLijn.Orderlijn.GeefLijnVolgNr() > (100 + ..NieuwOrderlijnVolgNr)) {
-			kill ^KOD(Order.GeefKlantNr(), "F", Order.GeefID(), OrderLijn.Orderlijn.GeefLijnVolgNr())
+		Set @..#GlobalOrderLijnen(Order.GeefKlantNr(), "F", Order.GeefID(), OrderLijn.NieuwLijnVolgNr) = OrderLijn.Orderlijn.GeefRecord()
+		If (OrderLijn.Orderlijn.GeefLijnVolgNr() > (..#OrderLijnVolgNrOffset + ..NieuwOrderlijnVolgNr)) {
+			kill @..#GlobalOrderLijnen(Order.GeefKlantNr(), "F", Order.GeefID(), OrderLijn.Orderlijn.GeefLijnVolgNr())
 		}
 		If $$$Not(OrderLijn.Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMTekstOrderlijn")) {
-			Set ^ORD("IU",Order.GeefID(),OrderLijn.Orderlijn.GeefID()) = OrderLijn.NieuwLijnVolgNr
+			Set @..#GlobalOrderLijnenIndex("IU",Order.GeefID(),OrderLijn.Orderlijn.GeefID()) = OrderLijn.NieuwLijnVolgNr
 		}
 	}
 ]]></Implementation>
@@ -75,7 +90,7 @@
 <FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..NieuwOrderlijnVolgNr = ..#EersteOrderlijnId	
+	Set ..NieuwOrderlijnVolgNr = ..#OrderlijnIdOffset
 	
 	Do ..VoegToeOrderTekstlijnen(##class(TECH.ListIterator).%New(Order.GeefTextlijnenVoorAfdrukDocumentType()))
 	
@@ -113,7 +128,7 @@
 	Set ..NieuwOrderlijnVolgNr = ..NieuwOrderlijnVolgNr + 1
 	Set Lijn = ##class(DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn).%New()
 	Set Lijn.Orderlijn = Orderlijn
-	Set Lijn.NieuwLijnVolgNr = 100 + ..NieuwOrderlijnVolgNr
+	Set Lijn.NieuwLijnVolgNr = ..#OrderLijnVolgNrOffset + ..NieuwOrderlijnVolgNr
 	Quit Lijn
 ]]></Implementation>
 </Method>