Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r47071 -r47087
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47071)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 47087)
@@ -1050,16 +1050,18 @@
 </Method>
 
 <Method name="ZetTextVoorAfdrukDocumentType">
-<FormalSpec>Tekst:%String,AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<FormalSpec>Tekst:%String="",AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwijderTextVoorAfdrukDocumentType(AfdrukDocumentType)
 	
+	Quit:(Tekst="")
+
 	#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)
+		#dim TekstOrderlijn As DOM.VKP.impl.DataM.DataMTekstOrderlijn = ..MaakNieuweTekstLijn(TekstLijn)
 		Do TekstOrderlijn.ZetAfdrukkenOp(AfdrukDocumentType)
 		Do TekstOrderlijn.ZetGekoppeldAanProductLijn(..#NietGekoppeld)
 		Do TekstOrderlijn.ZetTekstBlokID(TekstBlokID)
Index: DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml
===================================================================
diff -u -r47070 -r47087
--- DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 47070)
+++ DOM/VKP/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 47087)
@@ -269,10 +269,12 @@
 </Method>
 
 <Method name="ZetTextVoorAfdrukDocumentType">
-<FormalSpec>Tekst:%String,AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
+<FormalSpec>Tekst:%String="",AfdrukDocumentType:DOM.VKP.enu.TekstAfdrukDocumentType</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwijderTextVoorAfdrukDocumentType(AfdrukDocumentType)
 	
+	Quit:(Tekst="")
+	
 	#dim TekstBlokID As %String = $P($H,",",2)
 	#dim TekstList As %ListOfDataTypes = ##class(TECH.StringUtils).WordWrap(Tekst, ..#MaximumTekstLengte)
 	#dim TekstListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(TekstList)
Index: DOM/VKP/impl/DataM/DataMTekstOrderlijn.cls.xml
===================================================================
diff -u -r47070 -r47087
--- DOM/VKP/impl/DataM/DataMTekstOrderlijn.cls.xml	(.../DataMTekstOrderlijn.cls.xml)	(revision 47070)
+++ DOM/VKP/impl/DataM/DataMTekstOrderlijn.cls.xml	(.../DataMTekstOrderlijn.cls.xml)	(revision 47087)
@@ -70,7 +70,7 @@
 	} else {
 		Set $Piece(AanduidingTekstBlok,";",2) = "P"
 	}
-	Do ..ZetPiece(AanduidingTekstBlok)
+	Do ..ZetPiece(18, AanduidingTekstBlok)
 ]]></Implementation>
 </Method>
 
@@ -96,7 +96,7 @@
 <Implementation><![CDATA[
 	#dim AanduidingTekstBlok As %String = ..GeefPiece(18)
 	Set $Piece(AanduidingTekstBlok,";",4) = AfdrukDocumentType
-	Do ..ZetPiece(AanduidingTekstBlok)
+	Do ..ZetPiece(18, AanduidingTekstBlok)
 ]]></Implementation>
 </Method>
 
@@ -111,7 +111,7 @@
 <Implementation><![CDATA[
 	#dim AanduidingTekstBlok As %String = ..GeefPiece(18)
 	Set $Piece(AanduidingTekstBlok,";",1) = TekstBlokID
-	Do ..ZetPiece(AanduidingTekstBlok)
+	Do ..ZetPiece(18, AanduidingTekstBlok)
 ]]></Implementation>
 </Method>
 </Class>