IB problemas por acceso simultaneo al mismo campo

[jachguate]

hola. Si no es parte de la llave primaria, no veo inconveniente en que hagas la asignación directamente desde delphi.

Sbore el verificar que se encuentre en modo de inserción, lo dije, porque el Evento BeforePost también se lanza cuando el registro está en modo de edición, y en ese caso, supongo que no querras generar un nuevo número de registro, sino mantener el ya existente.

Yo, para generar números de secuencia desde delphi, siempre creo un stored procedure en la bd que se encargue de generar y devolver el número correspondiente para cada secuencia, para luego desde delphi invocar a este sp; algo similar a lo siguiente:

/*en interbase*/

Create Procedure GetSgRegionID
Returns (anId Integer) AS
Begin
  AnID = GEN_ID(sgRegion_GEN, 1);
End ^

luego en delphi, defino un Stored procedure que apunte a este, cuyo parámetro de salida es llamado 'id'.

Luego lo ejecuto de la forma ya explicada para asignar los números.

Para añadir una literal, yo lo haría con la función Format, pues asi puedo añadir ceros entre la literal y el número generado, y obtener algo como 'A000104' o 'C0010784'.

Var
  id : Integer;

Begin
  if tRecibo.State = dsInsert Then
  Begin
    if tReciboEmpresa.AsString = 'C' then
    Begin
      spGen_ReciboC.ExecProc;
      id := spGen_ReciboC.ParamByName('id').AsInteger;
    end
    else Begin
      spGen_ReciboA.ExecProc;
      id := spGen_ReciboA.ParamByName('id').AsInteger;
    end;
    tReciboNumero.AsString := Format('%s%6.6d', [tReciboEmpresa.AsString, id]);
  end;

Hasta luego.