Index: DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml
===================================================================
diff -u -r43358 -r46338
--- DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 43358)
+++ DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 46338)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.DataM.DataMProductOrderlijn">
 <ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.VKP.impl.DataM.DataMPrijsOrderlijnMetBoekhoudInfo,DOM.VKP.ProductOrderlijn</Super>
 <Inheritance>left</Inheritance>
@@ -243,6 +244,24 @@
 	Quit BTWCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTextVoorAfdrukDocumentType">
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Result as %String = ""
+	#dim TekstLijnIterator as TECH.Iterator = ..Order.GeefTypeOrderLijnIterator(##class(DOM.VKP.enu.OrderLijnType).Tekst())
+	While (TekstLijnIterator.HasNext()){		
+		#dim Lijn as DOM.VKP.TekstOrderlijn = TekstLijnIterator.Next()
+		if Lijn.GeefGekoppeldAanProductLijn() = ..GeefID(){
+			if ##class(TECH.StringUtils).Contains(Lijn.GeefAfdrukkenOp(),AfdrukDocumentType) && $Length(Lijn.GeefTekst()){
+		 		Set Result = Result_ $Select($Length(Result):$$$CRLF,1:"") _ Lijn.GeefTekst()
+			}
+ 		}		
+	}
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>