Index: UI/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r18198 -r19763 --- UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 18198) +++ UI/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 19763) @@ -4165,19 +4165,19 @@ New DC,MinIB Set DC=..blTBox.BTValues.GetAt("TBDesignCode") Set blnBinL=(..cboLadeType.SelectedGetKey()?1(1"B",1"X")) - Set MinIB=$S((DC="I")&&(blnBinL):..#MinimumIBintivoBinL, 1:..#MinimumIB) ; voor niet-binnenlade : MinimumIBintivo = MinimumIB + Set MinIB=$S((DC?1(1"I",1"A"))&&(blnBinL):..#MinimumIBintivoBinL, 1:..#MinimumIB) ; voor niet-binnenlade : MinimumIBintivo = MinimumIB If (+..txtNutBreedte.Text..#MaximumIB) Do Quit 0 - . Set msg="De nuttige (interne) breedte van de"_$S(DC="I":" "_"intivo"_" ", 1:" ")_$S(blnBinL:"binnen-",1:"")_"lade moet minimum "_MinIB_" mm en maximum "_..#MaximumIB_" mm zijn." + . Set msg="De nuttige (interne) breedte van de"_$S(DC="I":" "_"intivo"_" ", DC="A":" "_"antaro"_" ", 1:" ")_$S(blnBinL:"binnen-",1:"")_"lade moet minimum "_MinIB_" mm en maximum "_..#MaximumIB_" mm zijn." ; Else If (blnBinL)&&(+..txtNutBreedte.Text>..#MaximumIBBinL) Do Quit 0 . Set msg="De nuttige (interne) breedte van de binnenlade mag maximum "_..#MaximumIBBinL_" mm zijn." ; Else If (..SpoelbakCtrlsInvullen(..cboKlasse.SelectedGetKey()))&&(+..txtNutBreedte.Text<..#MinimumIBSP) Do Quit 0 . Set msg="De nuttige (interne) breedte van de spoelbaklade moet minimum "_..#MinimumIBSP_" mm zijn." ; Else - If (DC="I")&&(..cboKlasse.SelectedGetKey()?1(1"SP2"))&&(+..txtNutBreedte.Text<..#MinimumIBSPintivo) Do Quit 0 - . Set msg="De nuttige (interne) breedte van de intivo spoelbaklade moet minimum "_..#MinimumIBSPintivo_" mm zijn." + If (DC?1(1"I",1"A"))&&(..cboKlasse.SelectedGetKey()?1(1"SP2"))&&(+..txtNutBreedte.Text<..#MinimumIBSPintivo) Do Quit 0 + . Set msg="De nuttige (interne) breedte van de intivo/antaro spoelbaklade moet minimum "_..#MinimumIBSPintivo_" mm zijn." ; Else Quit 1 ]]>