Index: EWORDS.mac.rou
===================================================================
diff -u -r48105 -r48107
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48105)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 48107)
@@ -480,14 +480,10 @@
 	 
 	 Set CONSNr=$$GETNUM^FLOW("KUL","KU1") ; Tijdelijk
 	 Set R=$G(^HULP(%J,KLNr,"V"))
-	 Set VerzW=$P(R,D),DOutDate=$P($P(R,D,2),","),DOutTime=$P(R,D,3),VerzZ=$P(R,D,4),VerzDat=$P(R,D,5)
+	 Set DOutDate=$P($P(R,D,2),","),DOutTime=$P(R,D,3),VerzZ=$P(R,D,4),VerzDat=$P(R,D,5)
 	 Set ORDNr=$O(^HULP(%J,KLNr,"M","A",""))
+	 Set VerzW = ##class(BL.Legacy.EWORDS.Save).GeefVerzendWijze(.KLNr, OrderNummer, R)
 	 
-	 If VerzW="" {
-	 	Set VerzW=$$DEFAULT^KLVERZW(,KLNr,ORDNr)
-	 	Do ##class(vhLib.Logger).%New().Warning("Order doorsturen voor picking", "Verzendwijze was leeg bij order '" _ ORDNr _ "', en wordt ingesteld op '" _ VerzW _ "'.")
-	 }
-	 
 	 // We gaan nagaan of er backorderlijnen moeten gesplitst worden. Indien de 2de piece is ingevuld moet die gebruikt worden als BO aantal.
 	 // Achteraf maken we die piece leeg zodat de rest van de code zijn werk blijft doen.
 	 Set OLU = ""