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:
parent
025e76b88a
commit
18baaa29d0
@ -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)
|
||||
|
Loading…
x
Reference in New Issue
Block a user