Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r48474 -r48475
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48474)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48475)
@@ -458,7 +458,7 @@
 
 <Method name="GeefTekstVoorAfdrukDocumentType">
 <Abstract>1</Abstract>
-<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,PakketId:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 
Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r48474 -r48475
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48474)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 48475)
@@ -236,9 +236,9 @@
 </Method>
 
 <Method name="GeefTekstVoorAfdrukDocumentType">
-<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,PakketId:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTekstVoorAfdrukDocumentType",AfdrukDocumentType)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTekstVoorAfdrukDocumentType",AfdrukDocumentType,PakketId)
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r48474 -r48475
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 48474)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 48475)
@@ -1062,16 +1062,21 @@
 </Method>
 
 <Method name="GeefTekstVoorAfdrukDocumentType">
-<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,PakketId:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Result as %String = ""
 	#dim TekstLijnIterator as TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefTekstlijnenVoorAfdrukDocumentType(AfdrukDocumentType))
 	While (TekstLijnIterator.HasNext()){
-		#dim Tekst as %String = TekstLijnIterator.Next().GeefTekst()
- 		if $Length(Tekst) {
+		#dim Lijn as DOM.VKP.TekstOrderlijn = TekstLijnIterator.Next()
+
+		#dim Tekst as %String = Lijn.GeefTekst()
+		#dim IsOpgegevenPakketId As %Boolean = (Lijn.GeefPakketId() = PakketId)
+		
+ 		if IsOpgegevenPakketId && $Length(Tekst) {
 		 		Set Result = Result _ $Select($Length(Result):$$$CRLF,1:"") _ Tekst
- 		}		
+ 		}
+ 				
 	}
 	Quit Result
 ]]></Implementation>