Para controlar el autoincremento especialmente al vaciar tablas, yo me he creado un procedimiento que me regula la numeración:
Código Delphi
[-]Procedure SetAutoInc(filename : string; Value : Longint);
Procedure SetAutoInc(filename : string; Value : Longint);
var
mystream : tfilestream;
begin
mystream := tfilestream.create(filename,
fmOpenWrite + fmShareExclusive);
try
mystream.Seek(73, soFromBeginning);
mystream.Writebuffer(Value, SizeOf(Value));
finally
mystream.Free;
end;
end;
DmComPedi.LinCompras.Close;
SetAutoInc('\\Facturacion\facturas\XXXXXX\AniPdx\LinCompras.db',0);
Un Saludo.