Index: BL/Flow/Offerte/Convert2Order.cls.xml
===================================================================
diff -u -r31571 -r31572
--- BL/Flow/Offerte/Convert2Order.cls.xml	(.../Convert2Order.cls.xml)	(revision 31571)
+++ BL/Flow/Offerte/Convert2Order.cls.xml	(.../Convert2Order.cls.xml)	(revision 31572)
@@ -20,6 +20,7 @@
 	Do REFRESH^vhTERMINA()
 	Do ..ControleerOfferteData(.Offerte)
 	Do ..CorrigeerDocumentHoofding(.Offerte)
+	Do ..CorrigeerVerzendwijze(.Offerte)
 	Quit
 ]]></Implementation>
 </Method>
@@ -53,6 +54,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CorrigeerVerzendwijze">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Offerte:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OrderID As %String = $Get( Offerte("F") )
+	Quit:(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID))
+	
+	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	#dim VerzendingWijze As %String = Order.GeefVerzendingWijze()
+	
+	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	#dim PasAanVerzendingWijze As Boolean = $$$False
+	If $L(VerzendingWijze) && ($$$Not(VerkoopAPI.BestaatVerzendwijze(VerzendingWijze))) {
+		Set PasAanVerzendingWijze = $$$True
+	}
+	ElseIf (VerzendingWijze="") && (Order.GeefKlantID() = "K||3451") {
+		Set PasAanVerzendingWijze = $$$True
+	}
+	
+	If PasAanVerzendingWijze {
+		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
+		#dim NieuweVerzendingWijze As %String = $$DEFAULT^KLVERZW(,KlantNr)
+		Do Order.ZetVerzendingWijze(NieuweVerzendingWijze)
+	}
+]]></Implementation>
+</Method>
 </Class>