Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r59424 -r59620
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 59424)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 59620)
@@ -1565,7 +1565,7 @@
  ;Do Product.SetItemValByPL(BT,BTVal)   ;Do bwvAddToDataItem(BT,BTVal)
  
  Set BT="Staffel"
- Set BTVal=$$bwvCalcStaffel(..Qty)       
+ Set BTVal=1
  Do bwvAddToDataItem(BT,BTVal)
  
  Set BT="PRO"        ; IsPRO
@@ -1575,9 +1575,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