Autonumericos

[crc2005]

Amigos:
Gracias a todas las ideas resolvi mi problema
Primero cree una Consulta:SQL1
Select max(campokey) from tabla
------
var
ValorAnterior: string;
ParteNumerica: Integer;
begin
En el boton de Nuevo
SQL1.OPEN;
SQL1.SQL.Text := 'select max(campokey) from tabla';
ValorAnterior := Fields[0].AsString;
ParteNumerica := StrToInt(Copy(ValorAnterior, 2, 4));
Inc(ParteNumerica);
Result := Format('A%.4d', [ParteNumerica]);
DBEDIT1.TEXT:=Result;
SQL1.REFRESH;
SQL1.CLOSE;
tabla.insert;
end;
------
En un boton Guardar
tabla.post;
tabla.refresh;
Gracias
Saludos
Carlos