Index: BL/Flow/Offerte/Convert2Order.cls.xml
===================================================================
diff -u -r31574 -r31584
--- BL/Flow/Offerte/Convert2Order.cls.xml	(.../Convert2Order.cls.xml)	(revision 31574)
+++ BL/Flow/Offerte/Convert2Order.cls.xml	(.../Convert2Order.cls.xml)	(revision 31584)
@@ -46,11 +46,11 @@
 </Method>
 
 <Method name="CorrigeerDocumentHoofding">
-<FormalSpec>Order:DOM.VKP.Order,DocumentReferentiesID:%String</FormalSpec>
+<FormalSpec>Order:DOM.VKP.Order,OfferteDocumentReferentiesID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim OrderDocumentReferenties As DOM.VKP.DocumentReferenties = Order.GeefDocumentReferenties()
-	#dim OfferteDocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).OpenId(DocumentReferentiesID)	
+	#dim OfferteDocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).OpenId(OfferteDocumentReferentiesID)	
 	Set OrderDocumentReferenties.KlantOrderNummer = OfferteDocumentReferenties.KlantOrderNummer
 	Do OrderDocumentReferenties.Save()
 ]]></Implementation>
@@ -70,21 +70,24 @@
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VerzendingWijze As %String = Order.GeefVerzendingWijze()
-	
 	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
 	#dim PasAanVerzendingWijze As Boolean = $$$False
+	#dim VerzendingWijze As %String = Order.GeefVerzendingWijze()
 	If $L(VerzendingWijze) && ($$$Not(VerkoopAPI.BestaatVerzendwijze(VerzendingWijze))) {
 		Set PasAanVerzendingWijze = $$$True
+		Do ##class(vhLib.Logger).%New("OV").WarningMail("BL.Flow.Offerte.Convert2Order","CorrigeerVerzendwijze voor ongeldige (!) verzendwijze '"_VerzendingWijze_"' (order "_Order.GeefID()_" (KlantID: "_Order.GeefKlantID()_"). Wordt aangepast, zie log.")
 	}
-	ElseIf (VerzendingWijze="") && (Order.GeefKlantID() = "K||3451") {
+	ElseIf (VerzendingWijze="") && (Order.GeefKlantID() = "K||3451") {   // Sowieso fixen voor klant HOUTWERK (3451) 
 		Set PasAanVerzendingWijze = $$$True
+		Do ##class(vhLib.Logger).%New("OV").Warning("BL.Flow.Offerte.Convert2Order","CorrigeerVerzendwijze voor order "_Order.GeefID()_" (KlantID: "_Order.GeefKlantID()_" - verzendwijze: '"_VerzendingWijze_"').")
 	}
 	
 	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)
+		Do Order.Save()
+		Do ##class(vhLib.Logger).%New("OV").Warning("BL.Flow.Offerte.Convert2Order","Verzendwijze aangepast naar '"_NieuweVerzendingWijze_"' (order "_Order.GeefID()_" KlantID: "_Order.GeefKlantID()_").")
 	}
 ]]></Implementation>
 </Method>