Index: EWRCPF.mac.rou
===================================================================
diff -u -r734 -r948
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 734)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 948)
@@ -363,7 +363,10 @@
  .....Quit:LEVNr'=6332  ; Order is klaar verwittigen via mail - enkel indien Halux
  ..... ; Indien de receptie volledig is ingeboekt, het order is voor vandaag en het order kan niet automatisch doorgestuurd worden,
  ..... ; dan het orden opnemen om te werwittigen via mail.
- .....If KLNr,$P(^RCP("D",RCPNr),D,20)="I",$$IsVoorVandaagOfMorgen^EWORDS6(ORDNr)=1,'$$CheckAutoSend^EWORDS6(ORDNr) Set KlantId=^KK1(KLNr),Mail("I",KlantId,ORDNr)=""
+ .....If KLNr,$P(^RCP("D",RCPNr),D,20)="I" Do
+ ......If $$GetPickDatum^EWORDS6(ORDNr)'<$H Quit:$$IsVoorVandaagOfMorgen^EWORDS6(ORDNr)'=1
+ ......Quit:$$CheckAutoSend^EWORDS6(ORDNr)
+ ......Set KlantId=^KK1(KLNr),Mail("I",KlantId,ORDNr)=""
  ....Else  Set:LEVNr=6332 Mail("E",RCPNr)="" ; Enkel indien Halux
  ....Kill ^RCP("AUTO",RCPNr,TOENr,TLUNr)
  Do:$D(Mail) MAILHAL(.Mail)