root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Evidenziati con un error_box gli errori nella ricostruzione di un indice.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@122 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-09-01 13:59:21 +00:00
parent 56b27dc6bd
commit 9f263fd48a
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
include/isreorg.c
View File

@ -129,6 +129,7 @@ int *err; /* codice errore */
RecType rec;
int junk, j;
char s[80];
int werr = NoErr;
*err = NoErr;
getisfd(&wisfd, logicname);
@ -158,16 +159,22 @@ int *err; /* codice errore */
{
wisfd->RecNo++;
CRead(&wisfd->f, rec, wisfd->RecNo, NoLock);
if ((*err = wisfd->f.IOR)) break ;
werr = wisfd->f.IOR;
if (!IRecIsDeleted(rec))
if (addkeys(wisfd,rec,1,err)) break ;
addkeys(wisfd,rec,1,&werr);
if (vis && (wisfd->d->EOD > 0) && (!(wisfd->RecNo % 10)))
progind_set_status(wisfd->RecNo);
if (werr != NoErr && *err == NoErr)
*err = werr;
}
if (vis && (wisfd->d->EOD > 0))
progind_set_status(wisfd->RecNo);
junk = cisclose(&wisfd, &rec, &junk);
if (vis)
progind_destroy();
if (*err != NoErr)
error_box("Si e' verificato almeno un errore n. %d\nVerificare l'archivio e ripetere il compattamento", *err);
return(*err);
}