Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r47087 -r47135
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47087)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47135)
@@ -1070,14 +1070,18 @@
 </Method>
 
 <Method name="VerwijderTextVoorAfdrukDocumentType">
-<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
-<Private>1</Private>
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,GekoppeldAanProductLijn:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	#dim TekstLijnIterator as TECH.Iterator = ..GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
 	While (TekstLijnIterator.HasNext()){		
 		#dim Lijn as DOM.VKP.TekstOrderlijn = TekstLijnIterator.Next()
-		if $$$Not(Lijn.IsGekoppeldAanProductLijn()) && (Lijn.GeefAfdrukkenOp() = AfdrukDocumentType) {
-			Do DELLINE^FLOWORD3(..OrderID, Lijn.GeefLijnVolgNr())
+		
+		#dim IsTekstLijnVanOrder As %Boolean = ($$$Not(Lijn.IsGekoppeldAanProductLijn()) && (GekoppeldAanProductLijn = ""))
+		#dim IsTekstLijnVanProductLijn As %Boolean = (Lijn.GeefGekoppeldAanProductLijn() = GekoppeldAanProductLijn)
+		
+		if (IsTekstLijnVanProductLijn || IsTekstLijnVanOrder) && (Lijn.GeefAfdrukkenOp() = AfdrukDocumentType) {
+			Do ..OrderLijnen.RemoveAt(Lijn.GeefLijnVolgNr())
+			Do ..VerwijderdeOrderLijnen.Insert(Lijn.GeefLijnVolgNr())
  		}		
 	}
 ]]></Implementation>