Index: DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder/Orderlijn.cls.xml
===================================================================
diff -u -r47143 -r47150
--- DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder/Orderlijn.cls.xml	(.../Orderlijn.cls.xml)	(revision 47143)
+++ DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder/Orderlijn.cls.xml	(.../Orderlijn.cls.xml)	(revision 47150)
@@ -3,10 +3,6 @@
 <Class name="DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="OrigineelLijnVolgNr">
-<Type>%String</Type>
-</Property>
-
 <Property name="NieuwLijnVolgNr">
 <Type>%String</Type>
 </Property>
Index: DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml
===================================================================
diff -u -r47143 -r47150
--- DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47143)
+++ DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml	(.../OrderlijnenSorteerder.cls.xml)	(revision 47150)
@@ -35,14 +35,35 @@
 <Implementation><![CDATA[
 	Do ..OrderLijnenLijst.Clear()
 	Do ..MaakOrderLijnenLijst(Order)
-	Do ..ValidateOrderLijnenLijst(Order)
+	Do ..ValideerOrderLijnenLijst(Order)
+	Do ..UpdateOrderMetGesorteerdeLijst(Order)
 ]]></Implementation>
 </Method>
 
-<Method name="ValidateOrderLijnenLijst">
+<Method name="UpdateOrderMetGesorteerdeLijst">
 <FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	// Lock en transactioneel maken !!!
+	// Lijnen die reeds in productie zijn ???
+	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())
+		}
+		If $$$Not(OrderLijn.Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMTekstOrderlijn")) {
+			Set ^ORD("IU",Order.GeefID(),OrderLijn.Orderlijn.GeefID()) = OrderLijn.NieuwLijnVolgNr
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ValideerOrderLijnenLijst">
+<FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	If $$$Not(Order.OrderLijnen.Count() = ..OrderLijnenLijst.Count()) {
 		#dim Message As %String = "Tijdens het sorteren van de orderlijst is er een verschil opgetreden in het aantal orderlijnen." _$$$CRLF
 		Set Message = Message _"Aantal op het Order : " _Order.OrderLijnen.Count() _" en aantal na sortering " _..OrderLijnenLijst.Count() _$$$CRLF