Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r35592 -r40385
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 35592)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 40385)
@@ -4186,7 +4186,7 @@
  . 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  If ( ##class(DOM.PM.TBX.impl.GeleiderBeschikbaarBepaler).%New().IsGeleiderUitgefaseerd(..cboBlumotion.SelectedGetKey(), ..cboLadeDiepte.SelectedGetKey(), ..cboDraagKracht.SelectedGetKey()) ) Do  Quit 0 
+ Else  If ( ##class(DOM.PM.TBX.impl.GeleiderBeschikbaarBepaler).%New().IsBlumotion50kgUitgefaseerd(..cboBlumotion.SelectedGetKey(), ..cboLadeDiepte.SelectedGetKey(), ..cboDraagKracht.SelectedGetKey()) ) Do  Quit 0 
  . Set msg="Voor BLUMOTION 50kg is deze Ladediepte ('"_..cboLadeDiepte.SelectedGetKey()_"') niet meer beschikbaar. Wijzig naar "_$S(..cboLadeDiepte.SelectedGetKey()=400:30, 1:65)_"kg."
  ; Else
  Quit 1