Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r48357 -r48474
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 48357)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 48474)
@@ -1078,25 +1078,28 @@
 </Method>
 
 <Method name="GeefTekstlijnenVoorAfdrukDocumentType">
-<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType=""</FormalSpec>
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType="",PakketId:%String=""</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set TekstLijnenLijst = ##class(%ListOfObjects).%New()
 	#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()){
-			if ##class(TECH.StringUtils).Contains(Lijn.GeefAfdrukkenOp(),AfdrukDocumentType) || (AfdrukDocumentType = "") {
-				Do TekstLijnenLijst.Insert(Lijn)
-			}
+		
+		#dim IsTekstLijnVanOrder As %Boolean = $$$Not(Lijn.IsGekoppeldAanProductLijn())
+		#dim IsOpgegevenAfdrukDocumentType As %Boolean = (##class(TECH.StringUtils).Contains(Lijn.GeefAfdrukkenOp(),AfdrukDocumentType) || (AfdrukDocumentType = ""))
+		#dim IsOpgegevenPakketId As %Boolean = (Lijn.GeefPakketId() = PakketId)
+		
+		If IsTekstLijnVanOrder && IsOpgegevenAfdrukDocumentType && IsOpgegevenPakketId {
+			Do TekstLijnenLijst.Insert(Lijn)
  		}		
 	}
 	Quit TekstLijnenLijst
 ]]></Implementation>
 </Method>
 
 <Method name="ZetTekstVoorAfdrukDocumentType">
-<FormalSpec>Tekst:%String="",AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<FormalSpec>Tekst:%String="",AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,PakketId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwijderTekstVoorAfdrukDocumentType(AfdrukDocumentType)
 	
@@ -1111,22 +1114,24 @@
 		Do TekstOrderlijn.ZetAfdrukkenOp(AfdrukDocumentType)
 		Do TekstOrderlijn.ZetGekoppeldAanProductLijn(..#NietGekoppeld)
 		Do TekstOrderlijn.ZetTekstBlokID(TekstBlokID)
+		Do TekstOrderlijn.ZetPakketId(PakketId)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderTekstVoorAfdrukDocumentType">
-<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,GekoppeldAanProductLijn:%String=""</FormalSpec>
+<FormalSpec>AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType,GekoppeldAanProductLijn:%String="",PakketId:%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()
 		
 		#dim IsTekstLijnVanOrder As %Boolean = ($$$Not(Lijn.IsGekoppeldAanProductLijn()) && (GekoppeldAanProductLijn = ""))
 		#dim IsTekstLijnVanProductLijn As %Boolean = (Lijn.GeefGekoppeldAanProductLijn() = GekoppeldAanProductLijn)
-		#dim IsAfdrukDocumentType As %Boolean = (Lijn.GeefAfdrukkenOp() = AfdrukDocumentType) || (AfdrukDocumentType = "")
+		#dim IsOpgegevenAfdrukDocumentType As %Boolean = (Lijn.GeefAfdrukkenOp() = AfdrukDocumentType) || (AfdrukDocumentType = "")
+		#dim IsOpgegevenPakketId As %Boolean = (Lijn.GeefPakketId() = PakketId)
 		
-		if (IsTekstLijnVanProductLijn || IsTekstLijnVanOrder) && IsAfdrukDocumentType {
+		if (IsTekstLijnVanProductLijn || IsTekstLijnVanOrder) && IsOpgegevenAfdrukDocumentType && IsOpgegevenPakketId {
 			Do ..OrderLijnen.RemoveAt(Lijn.GeefLijnVolgNr())
 			Do ..VerwijderdeOrderLijnen.Insert(Lijn.GeefLijnVolgNr())
  		}