Index: UI/MB/UGLYPicking/dlgOrderSel.cls.xml
===================================================================
diff -u -r1074 -r8070
--- UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 1074)
+++ UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 8070)
@@ -845,7 +845,7 @@
  For  Quit:'RS.Next()  Do
  . Set ConsNr=RS.Get("ConsolidatieNr")
  . Quit:((ViaConsNr'="") && (ViaConsNr'=ConsNr))
- . If $$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")") Do  Quit
+ . If $$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")") || ##class(APPS.MAG.UglyPickingService).%New().IsBonInGebruik(ConsNr) Do  Quit
  ..  Set:('$LF(LockedConsNrs,ConsNr)) LockedConsNrs=LockedConsNrs_$LB(ConsNr)
  . Set Magazijn=RS.Get("Magazijn")
  . If '$LF(..lbMagazijnen,Magazijn) Do  Quit