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
Código:
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