Index: EWORDS6.mac.rou
===================================================================
diff -u -r63188 -r66095
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 63188)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 66095)
@@ -178,7 +178,7 @@
  
  ; Geeft de DUEOUT picking. Als die gisteren of ouder is, wordt de eerste zinvolle teruggegeven.
 GetPickDatum(ORDNr,GevraagdOLNr)
- New R,KLNr,blVerzendWijze,blLeveringsTermijn,LeverDag
+ New R,KLNr,blVerzendWijze,blLeveringsTermijn,LeverDag,PickDatum
  Set PickDatum=""
  Set LeverDag=$LG($$GetLeverDagen(ORDNr,$G(GevraagdOLNr))) // = De vroegste leverdag van alle lijnen van het order en zijn gekoppelde orders.
  if $length(LeverDag) {