Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r46199 -r46221
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 46199)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 46221)
@@ -46,6 +46,12 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="VerwijderdeOrderLijnen">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
 <Property name="AfleverAdres">
 <Type>DOM.VKP.LeverAdres</Type>
 <Private>1</Private>
@@ -82,6 +88,7 @@
 	
 	Set ..DocumentReferenties = ..GeefDocumentReferenties()
 	
+	Set ..VerwijderdeOrderLijnen = ##class(%ListOfDataTypes).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -385,11 +392,10 @@
 			#dim VolgNummer As %String = OrderLijn.GeefLijnVolgNr()
 			#dim LijnID As %String = OrderLijn.GeefID()
 			Do ..OrderLijnen.RemoveAt(VolgNummer)
-			Do DELLINE^FLOWORD3(..OrderID,VolgNummer)
+			Do ..VerwijderdeOrderLijnen.Insert(VolgNummer)
 			Quit
 		}
 	}
-	Do ..LaadOrderLijnenIndienNodig()
 ]]></Implementation>
 </Method>
 
@@ -467,7 +473,7 @@
 	If (..OrderLijnen.Count() = 0)
 	{
 		#dim MaxNummer As %Integer = ..VolgendLijnNr
-		#dim VolgendeLijnNummer As %Integer = $Order(^KOD(..KlantNr,"F",..OrderID,100))
+		#dim VolgendeLijnNummer As %Integer = $Order(^KOD(..KlantNr,"F",..OrderID,100)) 
 		While (VolgendeLijnNummer '= "") && (VolgendeLijnNummer < MaxNummer)
 		{
 			#dim Lijn As %String = $G(^KOD(..KlantNr,"F",..OrderID,VolgendeLijnNummer))
@@ -859,6 +865,9 @@
 	While (LijnIterator.HasNext()) {
 		Do LijnIterator.Next().Save()
 	}
+	
+	Do ..VerwijderOrderLijnen()
+	
 	If (insert) {
 		Do ..DefaultLegeNodes()
 		Do ..BouwIndexenIndienNodig()
@@ -867,6 +876,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderOrderLijnen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OrderLijnenIterator = ##class(TECH.ListIterator).%New(..VerwijderdeOrderLijnen)
+	While OrderLijnenIterator.HasNext() {
+		#dim OrderLijnVolgNummer As %String = OrderLijnenIterator.Next()
+		Do DELLINE^FLOWORD3(..OrderID, OrderLijnVolgNummer)
+		}
+	Do ..VerwijderdeOrderLijnen.Clear()
+]]></Implementation>
+</Method>
+
 <Method name="DefaultLegeNodes">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -893,6 +914,7 @@
 <Implementation><![CDATA[
 	Set ..VolgendLijnNr = ""
 	Do ..OrderLijnen.Clear()
+	Do ..VerwijderdeOrderLijnen.Clear()
 	Do ..LaadOrderLijnenIndienNodig()
 ]]></Implementation>
 </Method>