Index: AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml
===================================================================
diff -u -r48187 -r48379
--- AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 48187)
+++ AXimpl/Dynamics/SalesOrderOut/Converter/OrderHoofdingConverteerder.cls.xml	(.../OrderHoofdingConverteerder.cls.xml)	(revision 48379)
@@ -3,6 +3,20 @@
 <Class name="AXimpl.Dynamics.SalesOrderOut.Converter.OrderHoofdingConverteerder">
 <Super>TECH.Mockable</Super>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Converteer">
 <FormalSpec>Order:DOM.VKP.Order,MessageId:%String</FormalSpec>
 <ReturnType>AXif.Dynamics.SalesOrderOut.MessageParts.AxdEntityOrderHeader</ReturnType>
@@ -30,6 +44,7 @@
 	Set OrderHeader.DlvAddrCity = Leveradres.GeefGemeente()
 	Set OrderHeader.DlvAddrZipCode = Leveradres.GeefPostcode()
 	Set OrderHeader.DlvAddrStreet1 = Leveradres.GeefStraat()
+	Set OrderHeader.DlvMode = ..MaakDlvMode(Order)
 	
 	Set OrderHeader.InvoiceBody = Order.GeefTekstVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).Faktuur())
 	Set OrderHeader.PackingSlipBody = Order.GeefTekstVoorAfdrukDocumentType(##class(DOM.VKP.enu.TekstAfdrukDocumentType).LeverBon())
@@ -46,6 +61,27 @@
 <Implementation><![CDATA[	quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="MaakDlvMode">
+<FormalSpec>Order:DOM.VKP.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DlvMode = ""
+	Try {
+		Set DlvMode = ##class(AXimpl.AdminToAxUtils).ConvertVerzendingWijze(Order.GeefVerzendingWijze())
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("AXimpl.AxToAdminUtils.ConvertVerzendingWijze.NeemDI1IndienNietGevondenActief") {
+			Do ..Logger.ErrorMail("MaakVerzendingWijze gefaald", "Order='"_Order.GeefID()_"', Probleem: "_Exception.ToString())
+		} Else {
+			Do ..Logger.Warning("MaakVerzendingWijze gefaald", "Order='"_Order.GeefID()_"', Probleem: "_Exception.ToString())
+		}
+		Set DlvMode = "DI1"
+	}
+	Quit DlvMode
+]]></Implementation>
+</Method>
 </Class>