Correzioni per evitare CHECK sul pagamento NULLO.

git-svn-id: svn://10.65.10.50/trunk@4128 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-02-11 16:02:03 +00:00
parent 0e1b3f9382
commit 194923a005

View File

@ -26,8 +26,10 @@ TPagamento& TPrimanota_application::pagamento() const
bool TPrimanota_application::pag_notify(TSheet_field& ps, int r, KEY k)
{
TPagamento& pag = app().pagamento();
TMask* msk = &(ps.mask());
if (!msk->is_running()) return TRUE; // Necessario per evitare il CHECK sul pagamento nullo
TPagamento& pag = app().pagamento();
TString_array& rws = app().pag_rows();
const int rdiff = msk->get_int(FS_RDIFFER);
@ -612,12 +614,13 @@ bool TPrimanota_application::codcab_handler(TMask_field& f, KEY key)
bool TPrimanota_application::ratalit_handler(TMask_field& f, KEY key)
{
if (key == K_F8 || (key == K_TAB && f.get().empty()))
TMask& m = app().curr_mask();
if (key == K_F8 || (key == K_TAB && f.get().empty() && m.is_running()))
{
const TPagamento& pag = app().pagamento();
if (pag.in_valuta())
{
const TValuta v(app().curr_mask(), FS_VALUTA, FS_DATACAMBIO, FS_CAMBIO);
const TValuta v(m, FS_VALUTA, FS_DATACAMBIO, FS_CAMBIO);
const real other(f.mask().get(103));
const char* s = v.val2lit(other).string();
f.set(s);