Index: EWRECA.mac.rou
===================================================================
diff -u -r29059 -r47927
--- EWRECA.mac.rou	(.../EWRECA.mac.rou)	(revision 29059)
+++ EWRECA.mac.rou	(.../EWRECA.mac.rou)	(revision 47927)
@@ -1,4 +1,5 @@
 #include vhLib.Macro
+#include BL.Derde.KlantSpecifiek
 
 EWRECA ;E'WMS Archive opkuis en controle EWRECR [ 12/06/2003  10:22 AM ]
  Quit
@@ -99,7 +100,11 @@
  Set CONSNr=""
  For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
  .Set Rec=^ORDW("D",CONSNr)
- .Quit:$P(Rec,D,3)+Dagen>+$H  ; Minder dan x dagen gepickt
+ .Set Datum=$P(Rec,D,18)
+ .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
  .Do REMWMS^EWORDST(CONSNr)
  Quit