Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml
===================================================================
diff -u -r43139 -r44047
--- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 43139)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 44047)
@@ -17,6 +17,9 @@
 	Set OrderHeader.SalesIdAX = Order.GeefAxSalesId()
 	Set OrderHeader.class = "entity"
 	Set OrderHeader.MessageId = MessageId
+	
+	Set OrderHeader.DeliveryName = Order.GeefAfleveradres().GeefNaam()
+	
 	Quit OrderHeader
 ]]></Implementation>
 </Method>
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r43015 -r44047
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 43015)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 44047)
@@ -38,6 +38,18 @@
 	Quit Order
 ]]></Implementation>
 </Method>
+
+<Method name="StandaardOrderHoofdingMetLeverAdres">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Leveradres:DOM.VKP.LeverAdres</FormalSpec>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..StandaardOrderHoofding()
+	Do Order.IndienMethodCall("GeefAfleveradres").DanReturn(Leveradres)
+	
+	Quit Order
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml
===================================================================
diff -u -r43139 -r44047
--- vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 43139)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 44047)
@@ -3,9 +3,9 @@
 <Class name="vhUnitTest.AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="Test Belgisch LeverAdres">
 <Implementation><![CDATA[
-	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofding()
+	#dim Order as DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderHoofdingMetLeverAdres(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 
 	Set OrderHoofdingConverteerder = ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New()
 		
@@ -20,6 +20,8 @@
 	do $$$AssertEquals(OrderHeader.SalesIdAX,"AXSalesId")
 	do $$$AssertEquals(OrderHeader.class,"entity")
 	do $$$AssertEquals(OrderHeader.MessageId,"MessageId")
+
+	Do $$$AssertEquals(OrderHeader.DeliveryName,"Een Belg")
 ]]></Implementation>
 </Method>
 </Class>