Index: EWORDF.mac.rou
===================================================================
diff -u -r66860 -r67253
--- EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 66860)
+++ EWORDF.mac.rou	(.../EWORDF.mac.rou)	(revision 67253)
@@ -286,8 +286,8 @@
  .
  . Set ^ORDW("D",CONSNr)=CONSRec
  . If $G(^EWLOG("DEBUG"))=2 Write !,CONSRec
- . If "AF;EX"[$E($P(CONSRec,D,2),1,2) Do  ; Bij Afhaling OV verwittigen
- .. Do MAILAFH($P(CONSRec,D),CONSNr,$P(CONSRec,D,21))
+ . ;If "AF;EX"[$E($P(CONSRec,D,2),1,2) Do  ; Bij Afhaling OV verwittigen
+ .. ;Do MAILAFH($P(CONSRec,D),CONSNr,$P(CONSRec,D,21))
  . Do OPBON^EWORDF2(CONSNr) ; Klaarzetten om enkele min. later op bon te zetten
  Else  Set ^ORDW("D",CONSNr)=CONSRec
  Lock -^ORDW("D",CONSNr)