Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r21360 -r33952
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 21360)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 33952)
@@ -37,6 +37,12 @@
 <Default>9999</Default>
 </Parameter>
 
+<Parameter name="MaximumIBxTOB">
+<Description>
+Maximaal toegelaten Interne Breedte voor TIP-ON Blumotion (in mm)</Description>
+<Default>1368</Default>
+</Parameter>
+
 <Parameter name="MinimumIB">
 <Description>
 Minimaal toegelaten Interne breedte voor een lade (in mm)</Description>
@@ -87,6 +93,12 @@
 <Default>212</Default>
 </Parameter>
 
+<Parameter name="MinimumIBxTOB">
+<Description>
+Maximaal toegelaten Interne Breedte voor TIP-ON Blumotion (in mm)</Description>
+<Default>238</Default>
+</Parameter>
+
 <Parameter name="TiponMinIB">
 <Default>260</Default>
 </Parameter>
@@ -1903,7 +1915,7 @@
  ;      Width = 104
  ;      Height = 21
  ;      AutoSize = False
- ;      Caption = 'Blumotion'
+ ;      Caption = 'Geleider technologie'
  ;      Layout = tlCenter
  ;    end
  ;    object zzLabel23: CLabel
@@ -2872,7 +2884,7 @@
  d %this.cboVulstukKleur.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clBlack,-11,"MS Sans Serif",$lb()))
  d %this.grpAcces.SetMultiProperty($lb("Left","Top","Width","Height","Caption","ParentFont","TabOrder","OnEnter","OnExit"),$lb(313,309,297,225," ACCESSOIRES ","False",4,$lb(%this,"grpAccesEnter"),$lb(%this,"OnGroupBoxExit")))
  d %this.grpAcces.Font.SetMultiProperty($lb("Charset","Color","Height","Name","Style"),$lb($$$DEFAULTCHARSET,$$$clWindowText,-11,"MS Sans Serif",$lb()))
- d %this.zzLabel21.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,21,104,21,"False","Blumotion","tlCenter"))
+ d %this.zzLabel21.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,21,104,21,"False","Geleider technologie","tlCenter"))
  d %this.zzLabel23.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,141,104,20,"False","Hangmap boring(en)","tlCenter"))
  d %this.zzLabel24.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,45,104,20,"False","Anti-slipmat","tlCenter"))
  d %this.zzLabel25.SetMultiProperty($lb("Left","Top","Width","Height","AutoSize","Caption","Layout"),$lb(19,69,104,20,"False","Greep vr. binnenlade","tlCenter"))
@@ -4141,9 +4153,15 @@
 <Implementation><![CDATA[
  ; Blumotion "Beide" : min. interne breedte is 240 mm
  ; TIP ON            : min. interne breedte is 260 mm
+ ; TIP-ON Blumotion  : min. interne breedte is 238 mm
+ ; TIP-ON Blumotion  : max. interne breedte is 1368 mm
  Set msg=""
  If (..cboBlumotion.SelectedGetKey()="LR")&&(..txtNutBreedte.Text>0)&&(..txtNutBreedte.Text< ..#BlumotionMinIB) Do  Quit 0
  . Set msg="Voor Blumotion ""Beide"" is de nuttige (interne) breedte minimum "_..#BlumotionMinIB_" mm."
+ Else  If (..cboBlumotion.SelectedGetKey()="TOB") && (..txtNutBreedte.Text>0) && (..txtNutBreedte.Text < ..#MinimumIBxTOB) Do  Quit 0
+ . Set msg="Voor TIP-ON BLUMOTION is de nuttige (interne) breedte minimum "_..#MinimumIBxTOB_" mm."
+ Else  If (..cboBlumotion.SelectedGetKey()="TOB") && (..txtNutBreedte.Text > ..#MaximumIBxTOB) Do  Quit 0
+ . Set msg="Voor TIP-ON BLUMOTION is de nuttige (interne) breedte maximum "_..#MaximumIBxTOB_" mm."
  Else  If (..cboBlumotion.SelectedGetKey()="T")&&(..txtNutBreedte.Text>0)&&(..txtNutBreedte.Text< ..#TiponMinIB) Do  Quit 0
  . Set msg="Voor TIP-ON is de nuttige (interne) breedte minimum "_..#TiponMinIB_" mm."
  ; Else