Index: UI/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r40385 -r40387 --- UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 40385) +++ UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 40387) @@ -4188,6 +4188,8 @@ . Set msg="Voor TIP-ON is de nuttige (interne) breedte minimum "_..#TiponMinIB_" mm." 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 If ( ##class(DOM.PM.TBX.impl.GeleiderBeschikbaarBepaler).%New().IsTiponUitgefaseerd(..cboBlumotion.SelectedGetKey(), ..cboLadeDiepte.SelectedGetKey()) ) Do Quit 0 + . Set msg="Voor TIP-ON is deze Ladediepte ('"_..cboLadeDiepte.SelectedGetKey()_"') niet meer beschikbaar. Wijzig naar BLUMOTION of TIP-ON BLUMOTION." ; Else Quit 1 ]]>