Index: EWMS/Inventory.cls.xml
===================================================================
diff -u -r5060 -r8070
--- EWMS/Inventory.cls.xml	(.../Inventory.cls.xml)	(revision 5060)
+++ EWMS/Inventory.cls.xml	(.../Inventory.cls.xml)	(revision 8070)
@@ -1373,6 +1373,7 @@
 	For  Quit:('RS.Next())  Do
 	. Set ConsNr=RS.Get("ConsolidatieNr")
 	. Quit:($$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")"))   //Indien locked: nu actief, niet meetellen
+	. Quit:##class(APPS.MAG.UglyPickingService).%New().IsBonInGebruik(ConsNr)
 	. Set ConsStr=$S(ConsStr="":"",1:ConsStr_",")_$$FormatNumber^vhLib(".",ConsNr)   // '.': Thousand Sep
 
 	Quit ConsStr