Index: EWORDS6.mac.rou
===================================================================
diff -u -r67866 -r69296
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 67866)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 69296)
@@ -276,6 +276,7 @@
  Set:Check Check=##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(ORDNr)
  ;w:$G(io)=1015 1,Check," "
  Set:Check Check=$$OrderGesloten(ORDNr) 
+ Set:Check Check=$$OrderNotNOSEND(ORDNr) 
  ;w:$G(io)=1015 2,Check," "
  Set:Check Check='$$IsContractOfAfroep(ORDNr)
  ;w:$G(io)=1015 3,Check," "
@@ -316,7 +317,7 @@
 VerzendwDD1(ORDNr)
  New R,KLNr
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,"\",1)
- Quit $$DEFAULT^KLVERZW(,KLNr,ORDNr)'="DD1"
+ Quit $$DEFAULT^KLVERZW(,KLNr,ORDNr)="DD1"
   
  ; Do orders moeten gesloten zijn
 OrderGesloten(ORDNr)
@@ -325,6 +326,9 @@
  Set OrderGesloten=$P(^KOD(KLNr,"F",ORDNr,1),"\",22)
  Quit OrderGesloten
  
+OrderNotNOSEND(ORDNr)
+ Quit '($D(^ORDW("NOSEND",ORDNr))&&($$DIFFTIME^vhLib.DataTypes(^ORDW("NOSEND",ORDNr),$H)<1800))   ;Orders die door het terugtrekken uit ORDW op NOSEND gekomen zijn moeten 30min. wachten
+
  ; Contract- en afroeporders niet toegestaan
 IsContractOfAfroep(ORDNr)
  New R,KLNr,ORDNrs,IsContractOfAfroep,OrderType