Correzione test sulle deleghe

git-svn-id: svn://10.65.10.50/trunk@1504 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-06-26 16:52:33 +00:00
parent e3ae807075
commit 35eb7a757b

View File

@ -118,15 +118,16 @@ HIDDEN bool impdel_handler(TMask_field& f, KEY k)
if (!m.query_mode() && k == K_ENTER)
{
const int tipo_del = m.get_int(F_TIPODEL) - 1;
const int tipo_del = m.get_int(F_TIPODEL);
if (tipo_del < 2)
{
if (tipo_del == 1 || tipo_del == 7)
{
const int t = tipo_del == 1 ? 0 : 1;
const real imp(m.get(F_IMPORTO));
const double lim[2] = { 50000.0, 200000.0};
if (imp < lim[tipo_del])
return yesno_box("Importo inferiore a Lit. %s. Vuoi registrare lo stesso ?", real(lim[tipo_del]).string("."));
if (imp < lim[t])
return yesno_box("Importo inferiore a Lit. %s. Vuoi registrare lo stesso ?", real(lim[t]).string("."));
}
}
return TRUE;