Index: EWORDST.mac.rou
===================================================================
diff -u -r63468 -r66860
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 63468)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 66860)
@@ -468,8 +468,12 @@
  Quit:'CONSNr
  Set R=$G(^ORDW("D",CONSNr))
  Set KLNr=$P(R,D)
+ 
+ If $D(^ORDW("D",CONSNr,"S","V")) Do  Quit:R'=1 ; OBJT  order manueel te verwijderen uit OBJT
+ .Set R=$$^vhTXTPOP("EWORDST","DELOBJT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),$G(^ORDW("D",CONSNr)))
+
  If $L($P(R,D,20)),$P(R,D,20)'="W",$P(R,D,20)'="K" Quit  ; Alleen indien nog niets verwerkt door WMS
- . Set R=$$^vhTXTPOP("EWORDST","NODELBADSTAT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),$P(R,D,20))
+ . Set R=$$^vhTXTPOP("EWORDST","NODELBADSTAT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),$P(^KKL(^KK1(KLNr),0),D,2),$G(^ORDW("D",CONSNr)))
  
  If $G(blnTerugTrekkenVanuitWMS) Do
  . Set R=0 // default false - vraagstelling enkel indien status = "W"