Corretti errori 1128, 1231 e in parte 1229
git-svn-id: svn://10.65.10.50/trunk@406 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
22ee1b6b43
commit
701c4f8b2e
@ -68,7 +68,7 @@ protected:
|
||||
|
||||
public:
|
||||
virtual TRelation* get_relation() const {return (TRelation*)_rel;}
|
||||
CG0200_application() {}
|
||||
CG0200_application(){}
|
||||
};
|
||||
|
||||
inline CG0200_application& app() { return (CG0200_application&)main_app(); }
|
||||
@ -183,6 +183,19 @@ HIDDEN bool no_dup_iva(TMask_field& f, KEY key)
|
||||
return TRUE ;
|
||||
}
|
||||
|
||||
HIDDEN bool autoexit_rsoc_handler(TMask_field& f, KEY key)
|
||||
|
||||
{
|
||||
if (f.mask().query_mode() && key == K_TAB)
|
||||
{
|
||||
TArray parms;
|
||||
parms.add((TString)format("%d", F_RAGSOC));
|
||||
parms.add((TString)format("%d", F_RAGSOCA));
|
||||
::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
HIDDEN bool autoexit_handler(TMask_field& f, KEY key)
|
||||
|
||||
{
|
||||
@ -193,14 +206,24 @@ HIDDEN bool autoexit_handler(TMask_field& f, KEY key)
|
||||
TArray parms;
|
||||
parms.add((TString)format("%d", f.dlg()));
|
||||
::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
if (f.dlg() == F_COFI && key == K_TAB && f.focusdirty())
|
||||
{
|
||||
const TString s1(f.get());
|
||||
|
||||
if (s1.not_empty())
|
||||
f.mask().set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F");
|
||||
}
|
||||
if (f.to_check(key) && f.mask().get(F_ALLEG) != "4")
|
||||
{
|
||||
if (f.dlg() == F_COFI) return no_dup_fis(f, key);
|
||||
else return no_dup_iva(f, key);
|
||||
else
|
||||
if (f.dlg() == F_PAIV) return no_dup_iva(f, key);
|
||||
}
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
@ -360,6 +383,9 @@ void CG0200_application::init_query_mode(TMask& m)
|
||||
init_pages(m);
|
||||
if (gest_vend())
|
||||
reset_sheet();
|
||||
|
||||
if (argc() > 2 && *argv(2) == 'F')
|
||||
m.set(F_TIPOCF, "F");
|
||||
}
|
||||
|
||||
int CG0200_application::read(TMask& m)
|
||||
@ -568,8 +594,10 @@ bool CG0200_application::user_create() // initvar e arrmask
|
||||
_comuni = new TLocalisamfile(LF_COMUNI);
|
||||
_msk = new TMask("cg0200a") ;
|
||||
_msk->set_handler(F_OCCASIONALE, occas_handler);
|
||||
_msk->set_handler(F_RAGSOCA, autoexit_rsoc_handler);
|
||||
_msk->set_handler(F_COFI, autoexit_handler);
|
||||
_msk->set_handler(F_PAIV, autoexit_handler);
|
||||
_msk->set_handler(F_RICALT, autoexit_handler);
|
||||
_msk->set_handler(F_CODANAGPER, percip_handler);
|
||||
_msk->set_handler(F_TIPOPERS, tipo_handler);
|
||||
_msk->set_handler(F_ALLEG, alleg_handler);
|
||||
@ -599,7 +627,12 @@ bool CG0200_application::user_destroy() // releasev e arrmask
|
||||
|
||||
int cg0200(int argc, char* argv[])
|
||||
{
|
||||
CG0200_application a ;
|
||||
CG0200_application a;
|
||||
|
||||
a.run(argc, argv, "Clienti/Fornitori");
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user