[__cadetill]

bueno, y como muestra un botón

CREATE PROCEDURE NUEVA_LINEA (
    TABLA VARCHAR(15),
    CAMPO VARCHAR(15))
RETURNS (
    COD_INT INTEGER)
AS
begin
  EXECUTE STATEMENT 'SELECT MAX(' || :CAMPO || ') FROM ' || :TABLA INTO :COD_INT;

  if (:COD_INT is NULL) then
    COD_INT = 1;

  suspend;
end

Utilizando FB RC6. Compilado y funcionando

Gracias