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>