Fórum Campo código como inteiro #185953

Utilize autoincremento, idependente do BD.

Caro Colega
Pode-se usar o auto incremento,
mas pelo que noto ele quer reutilizar o número excluido
neste caso não daria,
vc pode fazer o seguinte,
eis a rotina

function TDM.GeraCodigo( Tabela: String; Campo:String ):Integer;
var
Codigo : Integer;
begin

Codigo := 1;
// qCodigo é uma Query
with qCodigo do
begin
Close;
SQL.Clear;
SQL.Add(´ Select * From ´ + Tabela );
SQL.Add(´ Order by ´+ Campo );
Prepare;
Open;

if RecordCount <> 0 then
begin
First;
while not Eof do
begin
if FieldByName(Campo).Value <> Codigo then
break
else
begin
inc(codigo);
Next;
end;
end;
end;
Close;
end;

Result := Codigo;
end;