Patch level :2.0 470

Files correlati     :ba1.exe
Ricompilazione Demo : [ ]
Commento            :
AO20002 (errore veramente cretino)
Se si compattano, modificano, azzerano, caricano gli archivi di un qualsiasi files,
in visualizzazione dei records usati e dei records occupati tali modifiche non vengono
riportate in visualizzazione fintanto che non si entra proprio nel file e lo si Edita,
le modifiche però vengono comunque effettuate.


git-svn-id: svn://10.65.10.50/trunk@11151 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2003-05-19 11:14:24 +00:00
parent 025e76b88a
commit 18baaa29d0

View File

@ -656,10 +656,10 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
strcpy (dep.FCalc,_mask->get (FLD_FORMULA));
const TRecnotype eox = _mask->get_bool(FLD_EXTEND) ? _mask->get_long(FLD_EOX) : oldeox;
_browse->dir()->get(logicnum, _lock, _nordir, _sysdirop);
_browse->dir()->set(dep.SysName, dep.EOD, dep.Flags,
dep.Des, dep.FCalc);
_browse->dir()->put(logicnum, _nordir, _sysdirop);
TDir& dir = *_browse->dir();
dir.get(logicnum, _lock, _nordir, _sysdirop);
dir.set(dep.SysName, dep.EOD, dep.Flags, dep.Des, dep.FCalc);
dir.put(logicnum, _nordir, _sysdirop);
{
TSystemisamfile f(logicnum);
@ -671,13 +671,18 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
f_name.ext("dbf");
if (!f_name.exist()) f.build(eox);
else f.extend(eox);
_browse->dir()->get(logicnum, _nolock, _nordir, _sysdirop);
}
if (tasto == K_F5 && logicnum > 1)
{
f.packfile();
f.packindex();
// le 4 righe seguenti servono per allineare i valori di EOD ed EOX dopo una compattazione forzata
dir.get(logicnum, _lock, _nordir, _sysdirop);
dir.set(dep.SysName, dep.EOD, dep.Flags, dep.Des, dep.FCalc);
dir.set_eox(_browse->dir()->eod());
dir.put(logicnum, _nordir, _sysdirop);
}
else
if (tasto == K_F6)