Index: EWORDST.mac.rou
===================================================================
diff -u -r63468 -r69743
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 63468)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 69743)
@@ -328,6 +328,7 @@
  ;
 SHOWVERW(CONSNr) 
  Do SHOWVERW^EWORDST2(CONSNr)
+ Do ShowObjtLPN^EWORDST2(CONSNr)
  Quit
  ;
 SHOWSEL 
@@ -464,12 +465,20 @@
  Quit
  ;
 UNMARK(CONSNr,blnTerugTrekkenVanuitWMS) 
- New Delete,KLNr,SoftV,MultiGrp,ORDNr,ORDNrs
+ New Delete,KLNr,SoftV,MultiGrp,ORDNr,ORDNrs,Status
  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 Status=##class(OBJTimpl.WMSOrder.OphalenOrderInOBJT).%New().GeefStatusVertaald(CONSNr)
+ .If Status="Niet in OBJT" Set R=1 Quit
+ .If Status="Geannuleerd" Set R=1 Quit
+ .Set:(Status="Gealloceerd")||(Status="Niet actief") R=$$^vhTXTPOP("EWORDST","DELOBJT","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),Status)
+ .Set:Status'="Gealloceerd" R=$$^vhTXTPOP("EWORDST","DELOBJTNODEL","",$$EXTNUM^vhLib.DataTypes(CONSNr,0,".",0),Status)
+
  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"
@@ -497,7 +506,7 @@
  
  If Delete Do
  . Set (ORDNr,ORDNrs)=""
- . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Set ORDNrs=ORDNrs_";"_ORDNr
+ . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Set ORDNrs=ORDNrs_";"_ORDNr,^ORDW("NOSEND",ORDNr)=$H // Na het terugtreekken mag het order de eerste x min. niet terugdoorgestuurd worden
  . Set $E(ORDNrs)=""
  . Do STORE^LOG("ORDW",CONSNr,"V",ORDNrs)
  . if $G(blnTerugTrekkenVanuitWMS) Do
@@ -562,6 +571,7 @@
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D,1),MailId=$P(R,D,7)
  Kill ^ORDW("IK",KLNr,CONSNr),^ORDW("IW",CONSNr)
  For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
+ .Set ^ORDW("NOSEND",ORDNr)=$H ;aut opnieuw doorsturen uitstellen
  .For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do REMLINE(CONSNr,ORDNr,OLUNr)
  Kill ^ORDW("D",CONSNr)
  Do UNLOCK(CONSNr)