Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r36576 -r41396
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 36576)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41396)
@@ -1744,11 +1744,14 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set NewDK=""
-	If BM="T" Do
-	. If ('LD) Set NewDK=""
-	. Else  If LD<350 Set NewDK=$S(DK'=20:20, 1:"")
-	. Else  If LD<450 Set NewDK=$S(DK'=30:30, 1:"")
-	. Else  If 1 Set NewDK=$S(DK'=50:50, 1:"")
+	If BM="I" Do
+	. If LD = 600 Set NewDK=$S(DK'=65:65, 1:"")
+	Else  If BM="T" Do
+	. ; Tipon is DEPRECATED ! 
+	. ;If ('LD) Set NewDK=""
+	. ;Else  If LD<350 Set NewDK=$S(DK'=20:20, 1:"")
+	. ;Else  If LD<450 Set NewDK=$S(DK'=30:30, 1:"")
+	. ;Else  If 1 Set NewDK=$S(DK'=50:50, 1:"")
 	Else  Do
 	. Set NewDK=$S(DK=20:30, 1:"")
 	Quit NewDK
Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r40387 -r41396
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 40387)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 41396)
@@ -4151,11 +4151,9 @@
  New NewDK,msg
  Set NewDK=..blTBox.UpdateDraagKracht()
  Quit:(NewDK="") 1
- If (..blTBox.BTValues.GetAt("TBBlumotion")="T") Do
- . Set msg="De draagkracht bij   ladediepte "_(..blTBox.BTValues.GetAt("TBLadeDiepte"))_"mm met TIP-ON   is beperkt tot : "_NewDK_"kg."
+ If (..blTBox.BTValues.GetAt("TBBlumotion")="I") Do
+ . Set msg="Draagkracht bij  ladediepte "_(..blTBox.BTValues.GetAt("TBLadeDiepte"))_"mm BLUMOTION  is beperkt tot : "_NewDK_"kg."
  . Set msg=msg_$$$CRLF_"De waarde wordt automatisch aangepast."
- . ;Set msg="Ladediepte "_(..blTBox.BTValues.GetAt("TBLadeDiepte"))_"mm met TIP-ON is alleen met "_NewDK_"kg mogelijk. "
- . ;Set msg=msg_$$$CRLF_"De draagkracht wordt automatisch aangepast."
  . Do MApplication.MessageBox(msg,..Form.Caption,$$$MBICONEXCLAMATION)
 
  ; Update controls: