Index: EWORDST.mac.rou
===================================================================
diff -u -r56349 -r56351
--- EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 56349)
+++ EWORDST.mac.rou	(.../EWORDST.mac.rou)	(revision 56351)
@@ -571,7 +571,10 @@
  ;
 REMLINE(CONSNr,ORDNr,OLUNr) 
  New R,OLNr,KLNr,MPRNr,KPRNr,Aantal,OrdAant,StockUpd
- Kill:$G(^ORDW("IO",ORDNr,OLUNr))=CONSNr ^ORDW("IO",ORDNr,OLUNr)
+ If $G(^ORDW("IO",ORDNr,OLUNr))=CONSNr Do
+ . Kill ^ORDW("IO",ORDNr,OLUNr)
+ Else  Do
+ . Do ##class(vhLib.Logger).%New("").Warning("REMLINE^EWORDST","REMLINE opgeroepen voor CONSNr='"_CONSNr_"', maar waarde ^ORDW(""IO"",ORDNr,OLUNr)='"_^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 _ "'.")