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
 
 
+