Evidenziati con un error_box gli errori nella ricostruzione di un indice.
git-svn-id: svn://10.65.10.50/trunk@122 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
56b27dc6bd
commit
9f263fd48a
@ -129,6 +129,7 @@ int *err; /* codice errore */
|
|||||||
RecType rec;
|
RecType rec;
|
||||||
int junk, j;
|
int junk, j;
|
||||||
char s[80];
|
char s[80];
|
||||||
|
int werr = NoErr;
|
||||||
|
|
||||||
*err = NoErr;
|
*err = NoErr;
|
||||||
getisfd(&wisfd, logicname);
|
getisfd(&wisfd, logicname);
|
||||||
@ -158,16 +159,22 @@ int *err; /* codice errore */
|
|||||||
{
|
{
|
||||||
wisfd->RecNo++;
|
wisfd->RecNo++;
|
||||||
CRead(&wisfd->f, rec, wisfd->RecNo, NoLock);
|
CRead(&wisfd->f, rec, wisfd->RecNo, NoLock);
|
||||||
if ((*err = wisfd->f.IOR)) break ;
|
werr = wisfd->f.IOR;
|
||||||
if (!IRecIsDeleted(rec))
|
if (!IRecIsDeleted(rec))
|
||||||
if (addkeys(wisfd,rec,1,err)) break ;
|
addkeys(wisfd,rec,1,&werr);
|
||||||
if (vis && (wisfd->d->EOD > 0) && (!(wisfd->RecNo % 10)))
|
if (vis && (wisfd->d->EOD > 0) && (!(wisfd->RecNo % 10)))
|
||||||
progind_set_status(wisfd->RecNo);
|
progind_set_status(wisfd->RecNo);
|
||||||
|
if (werr != NoErr && *err == NoErr)
|
||||||
|
*err = werr;
|
||||||
}
|
}
|
||||||
if (vis && (wisfd->d->EOD > 0))
|
if (vis && (wisfd->d->EOD > 0))
|
||||||
progind_set_status(wisfd->RecNo);
|
progind_set_status(wisfd->RecNo);
|
||||||
junk = cisclose(&wisfd, &rec, &junk);
|
junk = cisclose(&wisfd, &rec, &junk);
|
||||||
if (vis)
|
if (vis)
|
||||||
progind_destroy();
|
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);
|
return(*err);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user