Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml
===================================================================
diff -u -r46287 -r46291
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 46287)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 46291)
@@ -11,6 +11,9 @@
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeDocumentReferenties(Order,DocumentReferenties)
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeLeveradres(Order,##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Faktuur(),"")
+	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon(),"")
+	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering(),"")
+
 	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New()
 		
 	#dim OrderHeader as AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader = OrderHoofdingConverteerder.Converteer(Order,"MessageId")
@@ -48,14 +51,16 @@
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeLeveradres(Order,##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
 	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Faktuur(),"FaktuurTekst")
-	
+	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon(),"LeverbonTekst")
+	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeTekst(Order,##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering(),"ToeleveringTekst")
+		
 	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New()
 		
 	#dim OrderHeader as AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader = OrderHoofdingConverteerder.Converteer(Order,"MessageId")
 	
-	
-	
 	Do $$$AssertEquals(OrderHeader.InvoiceBody,"FaktuurTekst")
+	Do $$$AssertEquals(OrderHeader.PackingSlipBody,"LeverbonTekst")
+	Do $$$AssertEquals(OrderHeader.ProdBody,"ToeleveringTekst")
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml
===================================================================
diff -u -r46287 -r46291
--- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 46287)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 46291)
@@ -29,7 +29,9 @@
 	
 	;Tekstlijnen
 	Set OrderHeader.InvoiceBody = Order.GeefTextVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).Faktuur())
-	
+	Set OrderHeader.PackingSlipBody = Order.GeefTextVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
+	Set OrderHeader.ProdBody = Order.GeefTextVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).Toelevering())
+		
 	Quit OrderHeader
 ]]></Implementation>
 </Method>