Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml
===================================================================
diff -u -r48536 -r48662
--- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 48536)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 48662)
@@ -8,16 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopApi">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Logger = ##class(vhLib.Logger).%New()
+	
+	Set ..VerkoopApi = ##class(DOM.VKP.impl.VerkoopAPI).%New()
 		
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Converteer">
+<Description>
+Write ##class(AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder).%New().Converteer(##class(DOM.VKP.impl.DataM.DataMOrder).OpenId(180091),"MyMessageId")</Description>
 <FormalSpec>Order:DOM.VKP.Order,MessageId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader</ReturnType>
 <Implementation><![CDATA[
@@ -46,6 +55,7 @@
 	Set OrderHeader.DlvAddrZipCode = Leveradres.GeefPostcode()
 	Set OrderHeader.DlvAddrStreet1 = Leveradres.GeefStraat()
 	Set OrderHeader.DlvMode = ..MaakDlvMode(Order)
+	Set OrderHeader.LocationId = ..ZoekAxLocationId(Order, Leveradres)
 	
 	Set OrderHeader.InvoiceBody = Order.GeefTekstVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).Faktuur())
 	Set OrderHeader.PackingSlipBody = Order.GeefTekstVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
@@ -83,6 +93,30 @@
 	Quit DlvMode
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekAxLocationId">
+<Description>
+Geeft de AxLocationId, of lege string indien leveradres niet gekoppeld.</Description>
+<FormalSpec>Order:DOM.VKP.Order,LeverAdres:DOM.VKP.LeverAdres</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim AxLocationId = LeverAdres.GeefAxLeveradresId()
+	If ("" = AxLocationId) {
+		If ($$$Not("" = LeverAdres.GeefID())) {
+			#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(Order.GeefKlantID())
+			#dim KlantLeverAdres As DOM.VKP.LeverAdres = Klant.GeefSpecifiekAdres( LeverAdres.GeefID() )
+			If $IsObject(KlantLeverAdres) {
+				If KlantLeverAdres.%Extends("DOM.VKP.LeverAdres") {
+					Set AxLocationId = KlantLeverAdres.GeefAxLeveradresId()
+				}
+			}
+		}
+	}
+	
+	Quit AxLocationId
+]]></Implementation>
+</Method>
 </Class>