Crear procedure en Firebird desde delphi

[[duilioisola]]

Supongo que se podrá, utilizando un componente para pasar scripts, pero tendrás el problema de que deberás hacer que todos los demás usuarios salgan de la aplicación.

Yo creo que deberías hacer un procedimiento y una tabla auxiliar que te devuelva el siguiete número de una serie

Tabla

Numeros_segun_serie
tipo  serie  numero
'FAC'   'A'        1
'ALB'   'A'        1
'PED'   'A'        1

Código SQL [-]
procedure dame_numero (tipo varchar(3), serie varchar(10)) returns (numero integer)
begin
   numero = null;
   select max(numero) from Numeros_segun_serie
   where tipo=:tipo and serie=:serie
   into :numero;

   if ((numero is null) or (numero=0)) then numero=1;

   update Numeros_segun_serie
   set numero=:numero
   where tipo=:tipo and serie=:serie;
end