Index: EWORDS.mac.rou
===================================================================
diff -u -r29059 -r37124
--- EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 29059)
+++ EWORDS.mac.rou	(.../EWORDS.mac.rou)	(revision 37124)
@@ -475,6 +475,9 @@
  .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 ORDNr=$O(^HULP(%J,KLNr,"M","A",""))
+ .If VerzW="" Do
+ ..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 _ "'.")
  .Set OLU = ""
  . // 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.
@@ -981,3 +984,4 @@
 
 
 
+