Index: EWRECA.mac.rou
===================================================================
diff -u -r47927 -r66222
--- EWRECA.mac.rou	(.../EWRECA.mac.rou)	(revision 47927)
+++ EWRECA.mac.rou	(.../EWRECA.mac.rou)	(revision 66222)
@@ -82,7 +82,7 @@
  Do CLNDIR(10,"DIRSARCHIVE") ; Send
  Do CLNREC("R",30)
  Do CLNREC("S",30)
- Do CLNORDW(90)
+ Do CLNORDW(60)
  Do CLNRCP(90)
  Quit
  
@@ -104,7 +104,8 @@
  .Set:Datum="" Datum=$P(Rec,D,19)
  .Set:Datum="" Datum=$P(Rec,D,3)
  .Set:Datum="" Datum=$P(Rec,D,5)
- .Quit:Datum+$S($P(Rec,D,1)=$$$KlantHalux:10,1:Dagen)>+$H  ; Minder dan x dagen gepickt
+ .;Quit:Datum+$S($P(Rec,D,1)=$$$KlantHalux:10,1:Dagen)>+$H  ; Minder dan x dagen gepickt
+ .Quit:Datum+Dagen>+$H  ; Minder dan x dagen gepickt
  .Do REMWMS^EWORDST(CONSNr)
  Quit