Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r59422 -r59614
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 59422)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 59614)
@@ -1617,7 +1617,7 @@
  }
  
  Set BT="Staffel"
- Set BTVal=$$bwvCalcStaffel(..Qty)       
+ Set BTVal=1
  Do bwvAddToDataItem(BT,BTVal)
  
  Set BT="PRO"        ; IsPRO
@@ -1627,9 +1627,7 @@
  
  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 1
+
 bwvAddToDataItem(PL,BTVal)
  Do:($L(PL)&&$L(BTVal)) Product.SetItemValByPL(PL,BTVal)
  Quit