Corretto errore MI3620 :

Forzato il passaggio in modifica dopo la ricerca per descrizione


git-svn-id: svn://10.65.10.50/trunk@5557 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1997-11-05 14:06:34 +00:00
parent d991c780a5
commit b818020d46

View File

@ -63,6 +63,7 @@ protected:
static bool tipo_handler(TMask_field& f, KEY key);
static bool percip_handler(TMask_field& f, KEY key);
static bool fax_handler(TMask_field& f, KEY k);
static bool rsoc_handler(TMask_field& f, KEY k);
public:
virtual TRelation* get_relation() const {return (TRelation*)_rel;}
@ -311,6 +312,20 @@ bool TClifo_application::fax_handler(TMask_field& f, KEY k)
return ok;
}
bool TClifo_application::rsoc_handler(TMask_field& f, KEY k)
{
if (k == K_TAB && f.focusdirty())
{
TMask & m = f.mask();
if (m.query_mode() && m.key_valid(2) && app().find(2))
{
f.set_focusdirty(FALSE);
m.stop_run(K_AUTO_ENTER);
}
}
return TRUE;
}
HIDDEN bool alleg_handler(TMask_field& f, KEY key)
@ -623,6 +638,7 @@ bool TClifo_application::user_create() // initvar e arrmask
_msk->set_handler(F_ALLEG, alleg_handler);
_msk->set_handler(F_CODALLEG, codalleg_handler);
_msk->set_handler(DLG_FAX, fax_handler);
_msk->set_handler(F_RAGSOC, rsoc_handler);
TSheet_field& ind = (TSheet_field&) _msk->field(F_SHEET_G_VEN);
ind.set_notify(indsp_notify);