Index: AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml
===================================================================
diff -u -r56856 -r56862
--- AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 56856)
+++ AXimpl/Dynamics/SalesOrderIn/Converter/SalesOrderConverter.cls.xml	(.../SalesOrderConverter.cls.xml)	(revision 56862)
@@ -521,19 +521,6 @@
 ]]></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>
@@ -547,9 +534,8 @@
 	Do Order.ZetOorsprong(##class(AXimpl.AxToAdminUtils).ConvertOorsprong(OrderHeader.SalesOriginId))
 	Do Order.ZetStatus(##class(AXimpl.AxToAdminUtils).ConvertOrderStatus(""))
 	Do Order.ZetAfleveradres(..LeverAdresMaker.MaakLeverAdres(OrderHeader))
-	
-	Do ..ZetVerzendingWijze(Order, OrderHeader)
-	
+	#dim SkipVerzendwijzeUpdatesFromTo As TECH.KeyValue.List = ##class(TECH.KeyValue.List).CreateKeyValueListFromListbuild( $LB("DD1","DI1"), $LB("DD1","GL4") )
+	Do Order.ZetVerzendingWijze(..MaakVerzendingWijze(OrderHeader), SkipVerzendwijzeUpdatesFromTo)
 	Do Order.ZetAxSalesId(OrderHeader.SalesId)
 
 	#dim PackingSlipBody As %String = $Replace(OrderHeader.PackingSlipBody,$char(13),"")