Patch level :10.0 198

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001074: Impostazione gruppo-specie
Descrizione  il gruppo specie viene richiesto ogni volta, la 3.2 proponeva quello dei parametri ditta

idem per l'inserimento movimenti. CE1.exe -4.


git-svn-id: svn://10.65.10.50/trunk@17951 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-12-18 16:11:22 +00:00
parent ac071c435d
commit c8cbb69aa8
3 changed files with 32 additions and 8 deletions

View File

@ -262,10 +262,23 @@ bool TQuery_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
switch (o.dlg())
{
case F_ESERCIZIO:
if (e == fe_init || e == fe_modify)
{
int esercizio = get_int(F_ESERCIZIO);
TString4 gruppo, specie;
TDitta_cespiti& dc = ditta_cespiti();
dc.set_attivita(esercizio, atoi(gruppo), specie);
dc.get_attivita(esercizio, gruppo, specie);
if (gruppo.full())
{
set(F_GRUPPO, gruppo);
set(F_SPECIE, specie);
}
} //niente break!!!!! è fatto apposta per far scattare i successivi controlli su gruppo e specie
case F_GRUPPO:
case F_SPECIE:
if (e == fe_init || e == fe_modify)
{
{
const bool can_create = calcola_stato_attivita() != 3; // Bollato non stampato
enable(DLG_NEWREC, can_create && !field(F_SPECIE).empty() && !field(F_CATEGORIA).empty());
enable(DLG_DELREC, can_create);

View File

@ -282,12 +282,11 @@ void TConversione_cespiti::close_log()
int TConversione_cespiti::conv_file(const TFilename& ofname, int nflogicnum)
{
long oldditta = -1;
TDir d;
d.get(nflogicnum);
d.eod() = 0L;
TDir d(nflogicnum);
d.set_eod(0);
d.put(nflogicnum);
TExternisamfile oldfile(ofname,(bool) FALSE,(bool) FALSE);
TExternisamfile oldfile(ofname, false, false);
TLocalisamfile* newfile = NULL;
const TRectype& oldrec = oldfile.curr();
@ -665,9 +664,8 @@ int TConversione_cespiti::conv_inifile(const TFilename& ofname, const char* ofpa
{
long oldditta = -1;
long ditta;
TDir d;
d.get(nflogicnum);
d.eod() = 0L;
TDir d(nflogicnum);
d.set_eod(0);
d.put(nflogicnum);
TSystemisamfile f(nflogicnum);
int err = f.pack();

View File

@ -158,6 +158,19 @@ bool TMov_qmask::on_field_event(TOperable_field& o, TField_event e, long jolly)
case F_ESERCIZIO:
if ((e == fe_close || e == fe_modify) && efield(F_INIZIO_ES).empty())
return error_box("Inserire un esercizio valido");
if (e == fe_init || e == fe_modify)
{
int esercizio = get_int(F_ESERCIZIO);
TString4 gruppo, specie;
TDitta_cespiti& dc = ditta_cespiti();
dc.set_attivita(esercizio, atoi(gruppo), specie);
dc.get_attivita(esercizio, gruppo, specie);
if (gruppo.full())
{
set(F_GRUPPO, gruppo);
set(F_SPECIE, specie);
}
} //niente break!!!!! è fatto apposta per far scattare i successivi controlli su gruppo e specie
case F_GRUPPO:
case F_SPECIE:
calcola_stato_attivita();