Index: EWORDF2.mac.rou
===================================================================
diff -u -r31924 -r41121
--- EWORDF2.mac.rou	(.../EWORDF2.mac.rou)	(revision 31924)
+++ EWORDF2.mac.rou	(.../EWORDF2.mac.rou)	(revision 41121)
@@ -76,10 +76,10 @@
  Set CONSNr=""
  For  Set CONSNr=$O(^ORDW("BON",CONSNr)) Quit:CONSNr=""  Do
  .Set CONSRec=$G(^ORDW("D",CONSNr))
- .Set DiffTime=$S(("AF;EX"[$E($P(CONSRec,D,2),1,2))!($P($H,",",2)>(16*60*60)):1,1:180)  ; Voor afhalingen of na 16:00 onmiddellijk verwerken, anders na 3 minuten
+ .Set DiffTime=$S(("AF;EX;DD"[$E($P(CONSRec,D,2),1,2))!($P($H,",",2)>(16*60*60)):1,1:180)  ; Voor afhalingen of na 16:00 onmiddellijk verwerken, anders na 3 minuten
  .Quit:$$DIFFTIME^vhLib.DataTypes(^ORDW("BON",CONSNr),$H)<DiffTime  ;minder dan x min
  .Kill ^ORDW("BON",CONSNr)
- .Set HighPrio=("AF;EX"[$E($P(CONSRec,D,2),1,2))||($$DIFFTIME^vhLib.DataTypes($H,$P(CONSRec,D,3))<0) ; Afhaling of expediteur OF DueOutTime is verstreken
+ .Set HighPrio=("AF;EX;DD"[$E($P(CONSRec,D,2),1,2))||($$DIFFTIME^vhLib.DataTypes($H,$P(CONSRec,D,3))<0) ; Afhaling of expediteur OF DueOutTime is verstreken
  .If $P(CONSRec,D,20)="C",$P(CONSRec,D,21)="" Do  ; Op bon zonder interaktie
  ..Do ##class(vhLib.Logger).%New().Info("VerwerkConsolidatieNaarBon Start","CONSNr "_CONSNr)
  ..Do ##class(BL.Legacy.EWBON).VerwerkConsolidatieNaarBon(CONSNr,1)
@@ -120,3 +120,4 @@
 NOBON ;"Kan niet meer op bon gezet worden:"_CONSNr
 COMPL ;"Completeren van bon:"_CONSNr
 
+