Index: EWORDST.mac.rou
===================================================================
diff -u -r67289 -r69296
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 67289)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 69296)
@@ -506,7 +506,7 @@
  
  If Delete Do
  . Set (ORDNr,ORDNrs)=""
- . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Set ORDNrs=ORDNrs_";"_ORDNr
+ . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Set ORDNrs=ORDNrs_";"_ORDNr,^ORDW("NOSEND",ORDNr)=$H // Na het terugtreekken mag het order de eerste x min. niet terugdoorgestuurd worden
  . Set $E(ORDNrs)=""
  . Do STORE^LOG("ORDW",CONSNr,"V",ORDNrs)
  . if $G(blnTerugTrekkenVanuitWMS) Do