Corretto aggiornamento tracciati record

git-svn-id: svn://10.65.10.50/trunk@731 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-12-05 18:52:37 +00:00
parent 4f161fd289
commit 49627f2b18

View File

@ -219,6 +219,8 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
dir.get(i, _nolock, _nordir, _sysdirop);
rec.get(i);
prefhndl->set_codditta(codditta);
dir.put(i, _nordir, _sysdirop);
rec.put(i);
const char* name = dir.name();
dir.flags() = 0L;
const bool valid_file = *name > ' ' && dir.len() > 0;
@ -226,8 +228,6 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
if (valid_file && create_now)
{
dir.put(i, _nordir, _sysdirop);
rec.put(i);
TSystemisamfile f(i);
f.build(30);
}