Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r57276 -r59405
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 57276)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 59405)
@@ -1576,7 +1576,8 @@
  Do Product.BuildLookUp($LB("PL"))
  Quit
 bwvCalcStaffel(Qty)
- Quit $S(Qty<10:1,Qty>50:Qty,1:Qty\10*10)   ;Qty tussen 1 en 50 in stappen van 10
+ ;Quit $S(Qty<10:1,Qty>50:Qty,1:Qty\10*10)   ;Qty tussen 1 en 50 in stappen van 10
+ Quit Qty
 bwvAddToDataItem(PL,BTVal)
  Do:($L(PL)&&$L(BTVal)) Product.SetItemValByPL(PL,BTVal)
  Quit