Incrementar un campo numerio

[edwin1]

Hola...

Que rutina puedo inplementar en el Evento OnNewRecord o en el Evento BeforePost de mi tabla para incrementar un Campo numerico de la tabla (Codigo)...

Lo que quiero es cuando presione el boton de insertar si el codigo es igual a 1 le sume otro y seran 2 y asi sucesibamente o puede ser cuando grabe.


mucha Graciasssssssssssssss

[jachguate]

Procedure Form1.Table1BeforePost(losparametros);

begin
  if Table1.State = dsInsert Then
  Begin
    Query1.sql := 'Select max(codigo) maximo from tabla'; 
    Query1.Open;
    Table1.Codigo := Query1.FieldByName('Maximo').AsInteger  + 1;
    Query1.Close;
  end;
end;

Por supuesto, esto podria dar lugar a problemas con usuarios concurrentes, cuando el evento BeforePost se genere exactamente al mismo tiempo en dos clientes distintos.
Hasta luego.