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)
Index: EWBON.mac.rou
===================================================================
diff -u -r66221 -r67253
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 66221)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 67253)
@@ -70,7 +70,7 @@
  .If $$GETEXTRA^REMBOURS(KLNr) Do
  ..Do BONEXTRA^REMBOURS(KLNr,CONSNr,0)
  .Else  If $$ISREMB^REMBOURS(KLNr) Do REMBBON^REMBOURS(KLNr,CONSNr)
- .Do MAILEXP^EWBON4(KLNr,CONSNr,LevAdr)
+ .;Do MAILEXP^EWBON4(KLNr,CONSNr,LevAdr)
  .Do RCP(CONSNr)
  .Do ##class(BL.Flow.RecuPak.Main).AddVerpakToBon(CONSNr)
  Else  Do:TransfWV  ; Verwerking transfertorders
Index: ULTOER.mac.rou
===================================================================
diff -u -r66653 -r67253
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 66653)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 67253)
@@ -446,7 +446,7 @@
  .Set Txt(1)="Leveringsbon "_BONNr_" van "_KlNaam_"~is gewijzigd van "
  .Set Txt(1)=Txt(1)_$P(OldVerzW," ")_" naar "_$P(NewVerzW," ")_"."
  .Set Ref(1)="KL\"_KLNr_"\R\L",Ref(2)="BON\"_BONNr_"\R"
- .Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Wijziging verzendwijze",TUserId,.Txt,.Ref,1,1)
+ .;Set MailId=$$SYSTEM^vhMAIL("KL",KLNr,"Wijziging verzendwijze",TUserId,.Txt,.Ref,1,1)
  Quit
  ;
 DisplayTerugnOfBeloofd(FL)
Index: EWTOE.mac.rou
===================================================================
diff -u -r65923 -r67253
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 65923)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 67253)
@@ -53,7 +53,7 @@
  ..Set R=$$PI^vhPOPUP("C;C","-O1","Halux order "_ORDNr_" voor "_$P(^KKL(^KK1(KLNr),0),D,2),"EWTOE","HALUX")
  ..If $L(R) Set R=^RES("EWTOE","PI","HALUX","D",R,"N"),Text(4)="~~"_R
  ..Set Link(1)="KL\"_KLNr_"\R\O",Link(2)="ORD\"_ORDNr_"\R"
- ..Set MailId=$$SYSTEM^vhMAIL("","Order","Halux..","HALORDOK",.Text,.Link,"U","A")
+ ..;Set MailId=$$SYSTEM^vhMAIL("","Order","Halux..","HALORDOK",.Text,.Link,"U","A")
  .Set TLUNr=""
  .For  Set TLUNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr)) Quit:TLUNr=""  Do TLUNR(RCPNr,TOENr,TLUNr,,,NoAsk)
  .Do CHKDEL^FLOWTOE(TOENr)