Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r44047 -r44053
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44047)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44053)
@@ -50,6 +50,16 @@
 	Quit Order
 ]]></Implementation>
 </Method>
+
+<Method name="VoegtoeDocumentReferenties">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Order:vhTest.Mock.DOM.VKP.Order,DocumentReferenties:DOM.VKP.DocumentReferenties</FormalSpec>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	Do Order.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Quit Order
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml
===================================================================
diff -u -r44048 -r44053
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 44048)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 44053)
@@ -6,6 +6,9 @@
 <Method name="Test Belgisch LeverAdres">
 <Implementation><![CDATA[
 	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofdingMetLeverAdres(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	Set DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.KlantOrderNummer = "KlantOrderNummer"
+	Set Order = ##class(vhTest.Utils.DOM.VKP.Order).VoegtoeDocumentReferenties(Order,DocumentReferenties)
 
 	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New()
 		
@@ -20,18 +23,14 @@
 	do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId")
 	do $$$AssertEquals(OrderHeader.class,"entity")
 	do $$$AssertEquals(OrderHeader.MessageId,"MessageId")
+	
+	Do $$$AssertEquals(OrderHeader.PurchOrderFormNum,"KlantOrderNummer")
 
 	Do $$$AssertEquals(OrderHeader.DeliveryName,"Een Belg")
 	Do $$$AssertEquals(OrderHeader.DlvAddrCountry ,"BE")
 	Do $$$AssertEquals(OrderHeader.DlvAddrCity,"Sint-Niklaas")
 	Do $$$AssertEquals(OrderHeader.DlvAddrZipCode,"9100")
 	Do $$$AssertEquals(OrderHeader.DlvAddrStreet1,"Ankerstraat 91")
-	/*
-	do LeverAdres.ZetLandNr(1019)
-	Do LeverAdres.ZetPostcode("9100")
-	Do LeverAdres.ZetStraat("Ankerstraat 91")
-	Do LeverAdres.ZetGemeente("Sint-Niklaas")
-	*/
 ]]></Implementation>
 </Method>
 </Class>
Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml
===================================================================
diff -u -r44048 -r44053
--- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 44048)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 44053)
@@ -18,6 +18,8 @@
 	Set OrderHeader.class = "entity"
 	Set OrderHeader.MessageId = MessageId
 	
+	Set OrderHeader.PurchOrderFormNum = Order.GeefDocumentReferenties().KlantOrderNummer
+	
 	#dim Leveradres as DOM.VKP.LeverAdres = Order.GeefAfleveradres()
 	Set OrderHeader.DeliveryName = Leveradres.GeefNaam()
 	Set OrderHeader.DlvAddrCountry = Leveradres.GeefLand().GeefCode()