Index: EWRCPF.mac.rou
===================================================================
diff -u -r29059 -r37209
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 29059)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 37209)
@@ -336,11 +336,12 @@
  Quit
  
 CHKAUTO(RCPNr) 
- New R,LRec,WaitTime,LEVNr,TOENr,TLUNr,SetTime,Mail,KlantId,KLNr,ORDNr,OneRCP
+ New R,LRec,WaitTime,LEVNr,TOENr,TLUNr,SetTime,Mail,KlantId,KLNr,ORDNr,OneRCP,%TC
  If $G(^RCP("AUTO")) Do
  .Set WaitTime=$$WAITTIME(),RCPNr=$G(RCPNr),OneRCP=''RCPNr
  .For  Set:'OneRCP RCPNr=$O(^RCP("AUTO",RCPNr)) Quit:RCPNr=""  Do  Quit:OneRCP
  ..Set R=^RCP("D",RCPNr),LEVNr=$P(R,D,2),TOENr=""
+ ..Do ADD^vhLock($NA(^RCP("D",RCPNr))) Quit:'%TC
  ..For  Set TOENr=$O(^RCP("D",RCPNr,"D",TOENr)) Quit:TOENr=""  Do
  ...If '$D(^KTO(LEVNr,TOENr)) Do  Quit  ;Onbestaande
  .... Kill ^RCP("AUTO",RCPNr,TOENr)
@@ -366,6 +367,7 @@
  ......Set KlantId=^KK1(KLNr),Mail("I",KlantId,ORDNr)=""
  ....Else  Set:LEVNr=6332 Mail("E",RCPNr)="" ; Enkel indien Halux
  ....Kill ^RCP("AUTO",RCPNr,TOENr,TLUNr)
+ ..Do REMOVE^vhLock($NA(^RCP("D",RCPNr)))
  Do:$D(Mail) MAILHAL(.Mail)
  Quit
  
@@ -419,3 +421,4 @@
 DIFFQTY ;"Qty verschil bij stockage tov. controle:"_$G(C("VOLGNR"))_";"_C("RCPNR")_";"_C("BONNR")_";"_C("RCPLNR")_";Ctr:"_$P(SubRec,D,4)_";Stock:"_Qty
 
 
+
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
  
  ;