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 } else
if (key == K_F8 && f.get().empty()) if (key == K_F8)
{ {
real imponibile(f.mask().get(101)); real imposta(f.get());
const real& percent = cod2IVA(f.mask()); if (imposta.is_zero())
const real imposta = scorpora(imponibile, percent); {
f.mask().set(101, imponibile.string()); real imponibile(f.mask().get(101));
f.set(imposta.string()); 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; return TRUE;

View File

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