Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r46339 -r47071
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 46339)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47071)
@@ -6,6 +6,15 @@
 <Super>TECH.Persistent,DOM.VKP.Order</Super>
 <Inheritance>left</Inheritance>
 
+<Parameter name="NietGekoppeld">
+<Type>%String</Type>
+</Parameter>
+
+<Parameter name="MaximumLengteTekstOrderLijnTekst">
+<Type>%Integer</Type>
+<Default>40</Default>
+</Parameter>
+
 <Property name="OrderID">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -1040,6 +1049,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTextVoorAfdrukDocumentType">
+<FormalSpec>Tekst:%String,AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderTextVoorAfdrukDocumentType(AfdrukDocumentType)
+	
+	#dim TekstBlokID As %String = $P($H,",",2)
+	#dim TekstList As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Tekst, ..#MaximumLengteTekstOrderLijnTekst)
+	#dim TekstListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(TekstList)
+	While TekstListIterator.HasNext() {
+		#dim TekstLijn As %String = TekstListIterator.Next()
+		#dim TekstOrderlijn As DOM.VKP.TekstOrderlijn = ..MaakNieuweTekstLijn(TekstLijn)
+		Do TekstOrderlijn.ZetAfdrukkenOp(AfdrukDocumentType)
+		Do TekstOrderlijn.ZetGekoppeldAanProductLijn(..#NietGekoppeld)
+		Do TekstOrderlijn.ZetTekstBlokID(TekstBlokID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderTextVoorAfdrukDocumentType">
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<Private>1</Private>
+<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())
+ 		}		
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.VKP.impl.DataM.DataMOrderD</DataLocation>