Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r56130 -r56856
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 56130)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 56856)
@@ -521,6 +521,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetVerzendingWijze">
+<FormalSpec>Order:DOM.VKP.Order,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderVerzendWijze As %String = Order.GeefVerzendingWijze()
+	#dim Verzendwijze As %String = ..MaakVerzendingWijze(OrderHeader)
+
+	Quit:((OrderVerzendWijze = "DD1") && ##class(TECH.StringUtils).Equals(Verzendwijze,"DI1","GL4"))
+	
+	Do Order.ZetVerzendingWijze(Verzendwijze)
+]]></Implementation>
+</Method>
+
 <Method name="ZetOrderHoofding">
 <FormalSpec>Order:DOM.VKP.Order,OrderHeader:AXif.Dynamics.SalesOrderIn.MessageParts.AxdEntityOrderHeader</FormalSpec>
 <Private>1</Private>
@@ -534,7 +547,9 @@
 	Do Order.ZetOorsprong(##class(AXimpl.AxToAdminUtils).ConvertOorsprong(OrderHeader.SalesOriginId))
 	Do Order.ZetStatus(##class(AXimpl.AxToAdminUtils).ConvertOrderStatus(""))
 	Do Order.ZetAfleveradres(..LeverAdresMaker.MaakLeverAdres(OrderHeader))
-	Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader))
+	
+	Do ..ZetVerzendingWijze(Order, OrderHeader)
+	
 	Do Order.ZetAxSalesId(OrderHeader.SalesId)
 
 	#dim PackingSlipBody As %String = $Replace(OrderHeader.PackingSlipBody,$char(13),"")