Index: EWTOE.mac.rou
===================================================================
diff -u -r37042 -r37209
--- EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 37042)
+++ EWTOE.mac.rou	(.../EWTOE.mac.rou)	(revision 37209)
@@ -65,7 +65,7 @@
  New TLNr,PRNr,ORDNr,OLNr,OLUNr,KLNr,HistRef,WMS,BronPal,DoelPal,RCPSDate,MPRNr,MdrIsKnd,RCPPRNr,ZRRCP,ZRKTO
  Set NoAsk=$G(NoAsk)
  If $G(CheckBo) Quit:'$$BACKORD(RCPNr,TOENr,TLUNr)
- Lock +(^RCP,^Verv):5
+ Lock +^Verv:5  E  G endTLUNR
  Set CheckDel=$G(CheckDel)
  Set R=^RCP("D",RCPNr),LEVNr=$P(R,D,2),LevRef=$P(R,D,3),RCPODate=$P(R,D,4) Set:'RCPODate RCPODate=$H
  Set R=^RCP("D",RCPNr,"D",TOENr,TLUNr),MPRNr=$P(R,D),WMSStat=$P(R,D,2)
@@ -111,7 +111,8 @@
  Do ##class(BL.MB.UGLYPicking.ReceptieOpkuis).DeleteToeLijn(RCPNr, TOENr, TLUNr) 
  Do STOCKUPDKind^ORGALUX(MPRNr)
  d WLIP^vhDBG(150,"STOCKUPDKind^ORGALUX "_MPRNr)
- Lock -(^RCP,^Verv)
+ Lock -^Verv
+endTLUNR 
  Quit
  
  ;