Index: EWBON.mac.rou
===================================================================
diff -u -r49939 -r50737
--- EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 49939)
+++ EWBON.mac.rou	(.../EWBON.mac.rou)	(revision 50737)
@@ -52,9 +52,10 @@
  For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
  .Set VerpTyp=$$ADDTYPE^VERPAK(VerpTyp,$$ORDER^VERPAK(ORDNr))
  .Do ORDER(KLNr,CONSNr,ORDNr,.BonLijnTeller,BonMaxTeller)
- Do SORT(KLNr,CONSNr),UNLOCK(CONSNr)
+ Do SORT(KLNr,CONSNr)
  Do STATBON(CONSNr)
  Kill ^ORDW("IW",CONSNr)
+ Do UNLOCK(CONSNr)
  Set R=^KUL(KLNr,"F",CONSNr,1),TransfWV=$P(R,D,25)="T"
  If 'TransfWV,'$$EMPTY(KLNr,CONSNr) Do
  .Set ^KU2("F",KLNr,CONSNr)="",^KUB(CONSNr,"F")=KLNr_D
@@ -719,4 +720,3 @@
  Quit
 
 
-