Index: EWORDST.mac.rou
===================================================================
diff -u -r29623 -r50347
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 29623)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 50347)
@@ -574,6 +574,8 @@
  Kill ^ORDW("IO",ORDNr,OLUNr)
  If $P(^ORDW("D",CONSNr,"D",ORDNr,OLUNr),D,2)'="B" Do
  .Set KLNr=$P(^ORDW("D",CONSNr),D,1)
+ .Do:(""=$Get(^ORD("IU",ORDNr,OLUNr))) ##class(vhLib.Logger).%New("").Warning("REMLINE^EWORDST","^ORD(IU afwezig voor ORDNr='" _ ORDNr _ "', OLUNr='" _ OLUNr _ "', CONSNr='" _ CONSNr _ "'.")
+ .Quit:(""=$Get(^ORD("IU",ORDNr,OLUNr)))
  .Set OLNr=^ORD("IU",ORDNr,OLUNr),R=^KOD(KLNr,"F",ORDNr,OLNr),OrdAant=$P(R,D,3)
  .Do:OrdAant>0 PickingAnnulatie^EWORDS2(ORDNr,OLUNr,CONSNr)
  .Set StockUpd=$P(R,D,14)'["S" Set:StockUpd StockUpd=$P(R,D,14)'["Z"
@@ -1017,4 +1019,3 @@
 
 
 
-