Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r57266 -r59349
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 57266)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 59349)
@@ -1628,7 +1628,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