Index: vhTest/Mock/DOM/VKP/ProductOrderlijn.cls.xml
===================================================================
diff -u -r48187 -r49042
--- vhTest/Mock/DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 48187)
+++ vhTest/Mock/DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 49042)
@@ -181,6 +181,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPakketId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPakketId")
+]]></Implementation>
+</Method>
+
 <Method name="GeefPakketReferentie">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPakketReferentie")
@@ -423,6 +429,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetPakketId">
+<FormalSpec>PakketId:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetPakketId",PakketId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetPakketReferentie">
 <FormalSpec>PakketReferentie:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetPakketReferentie",PakketReferentie)
@@ -453,6 +465,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTekstVoorAfdrukDocumentTypes">
+<FormalSpec>Tekst:%String="",AfdrukDocumentTypes...:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetTekstVoorAfdrukDocumentTypes",Tekst,AfdrukDocumentTypes...)
+]]></Implementation>
+</Method>
+
 <Method name="ZetToeleveringID">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: DOM/VKP/ProductOrderlijn.cls.xml
===================================================================
diff -u -r48187 -r49042
--- DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 48187)
+++ DOM/VKP/ProductOrderlijn.cls.xml	(.../ProductOrderlijn.cls.xml)	(revision 49042)
@@ -169,6 +169,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>Tekst:%String,AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
 </Method>
+
+<Method name="ZetTekstVoorAfdrukDocumentTypes">
+<Abstract>1</Abstract>
+<FormalSpec>Tekst:%String="",AfdrukDocumentTypes...:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml
===================================================================
diff -u -r48950 -r49042
--- DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 48950)
+++ DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 49042)
@@ -341,6 +341,34 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ZetTekstVoorAfdrukDocumentTypes">
+<FormalSpec>Tekst:%String="",AfdrukDocumentTypes...:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<Implementation><![CDATA[
+	#dim AfdrukDocumentTypesIterator = ##class(TECH.ArrayOneDimIterator).%New(.AfdrukDocumentTypes)
+	While AfdrukDocumentTypesIterator.HasNext() {
+		Do ..Order.VerwijderTekstVoorAfdrukDocumentType(AfdrukDocumentTypesIterator.Next(), ..GeefID())
+	}
+	// Do ..Order.VerwijderTekstVoorAfdrukDocumentType(AfdrukDocumentType, ..GeefID())
+	
+	Quit:(Tekst="")
+	
+	#dim TekstBlokID As %String = $P($H,",",2)
+	Set Tekst = ##class(TECH.StringUtils).SplitLongWord(Tekst, ..#MaximumTekstLengte)
+	#dim TekstList As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Tekst, ..#MaximumTekstLengte)
+	#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 = ..Order.MaakNieuweTekstLijn(TekstLijn)
+		Set AfdrukDocumentTypesIterator = ##class(TECH.ArrayOneDimIterator).%New(.AfdrukDocumentTypes)
+		While AfdrukDocumentTypesIterator.HasNext() {
+			Do TekstOrderlijn.VoegToeAfdrukkenOp(AfdrukDocumentTypesIterator.Next())
+		}
+		Do TekstOrderlijn.ZetGekoppeldAanProductLijn(..GeefID())
+		Do TekstOrderlijn.ZetTekstBlokID(TekstBlokID)
+	}
+]]></Implementation>
+</Method>
 </Class>