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:
Código:
/*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'.
Código:
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.