In prima nota non chiede l'incasso immediato se c'e' il saldaconto

git-svn-id: svn://10.65.10.50/trunk@354 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-10-12 13:00:01 +00:00
parent b35804cf0e
commit 33d18d8089
2 changed files with 14 additions and 8 deletions

View File

@ -649,13 +649,19 @@ bool TPrimanota_application::imposta_handler(TMask_field& f, KEY key)
}
}
} else
if (key == K_F8 && f.get().empty())
if (key == K_F8)
{
real imponibile(f.mask().get(101));
const real& percent = cod2IVA(f.mask());
const real imposta = scorpora(imponibile, percent);
f.mask().set(101, imponibile.string());
f.set(imposta.string());
real imposta(f.get());
if (imposta.is_zero())
{
real imponibile(f.mask().get(101));
const real& percent = cod2IVA(f.mask());
imposta = scorpora(imponibile, percent);
f.mask().set(101, imponibile.string());
f.set(imposta.string());
}
else
f.warning_box("Cancellare l'imposta (tasto F2) prima di effettuare lo scorporo");
}
return TRUE;

View File

@ -17,8 +17,8 @@ bool CG4300_App::recalc_all()
long firm = TApplication::get_firm();
_prind = new TProgind(_selected.ones()*2,
" Calcolo liquidazioni... "
"\n Preparazione archivi ",
" Calcolo liquidazioni... \n"
" Preparazione archivi ",
TRUE,TRUE,45);
for (l = 0l, _nditte->first(); !_nditte->eof(); l++, _nditte->next())