Cita:
|
tengo que bsucar la forma de que se genere el procedimiento
|
Pues no es el enfoque correcto.
Yo tengo una aplicación que trabaja con series. Las series las define el usuario y están en una tabla.
Tengo otra tabla que tiene la serie y un número.
Hago dos cosas:
En los triggers Before Insert verifico si el número es 0 o es nulo.
Si lo es, busco el número siguiente con un procedimiento como el que te he enviado..
En la parte Delphi tengo el método BeforePost del dataset.
Ahí hago algo parecido a esto:
Código Delphi
[-]
begin
if (DataSet.State=dsInsert) then
begin
DataSet.FieldByName('NUMERO').AsInteger := DameNumero(DataSet.FieldByName('SERIE'));
end;
end;
DameNuero es un función que llama al procedimiento de la base que te envié antes.