Index: EWORDST.mac.rou
===================================================================
diff -u -r69296 -r69743
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 69296)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 69743)
@@ -571,6 +571,7 @@
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D,1),MailId=$P(R,D,7)
  Kill ^ORDW("IK",KLNr,CONSNr),^ORDW("IW",CONSNr)
  For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
+ .Set ^ORDW("NOSEND",ORDNr)=$H ;aut opnieuw doorsturen uitstellen
  .For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do REMLINE(CONSNr,ORDNr,OLUNr)
  Kill ^ORDW("D",CONSNr)
  Do UNLOCK(CONSNr)