Incrementar Store Procedure Firebird
 

Saludos a todos.

Tengo delphi 7, firebird 1.5 de que manera se puede hacer un store procedure que me actualice una tabla, donde un campo es un ID y que se va incrementando despues que la tabla esta llena. Es decir:

tengo la tabla con la suiguiente data:

Ahora necesito generarle la ruta de la siguiente manera:

Es decir, despues que la data esta en la tabla, generar la ruta incrementandose pero en un store procedure en firebird. Gracias por su atencion...;)

Podria ser algo asi:

Este asigna un id correlativo a todos los registros.

Código SQL [-]
CREATE PROCEDURE spSETID ()
    
AS                                                   
DECLARE VARIABLE id integer;
DECLARE VARIABLE nombre varchar(50); --No se el tamano...?
begin   
       id=0;                                       
       for select NOMBRE
            from TABLA
            into :nombre
       do
       begin
              id=id+1;
              update TABLA
              set ruta=:id
              where NOMBRE=:nombre;
       end
end

Espero te sirva de algo...

Con el siguiente query puedes hacer lo que buscas.

Código SQL [-]
update TABALA set RUTA=(
select coalesce(max(p.RUTA),0) + 1 from TABLA p)

Buenos dias he hecho las pruebas con las dos opciones y la opcion de cloayza la hace mucho mas rapido. Pero mi pregunta es: como quedaria si no tuviese que introducir el nombre sino que agarre todos los registro de la tabla. (Perdon no entiendo la sintanxi que dice :nombre en el select)

Código SQL [-]
 
--Traduccion: Seleccione el campo NOMBRE desde la tabla TABLA y asignelo a :Nombre
for select NOMBRE        
            from TABLA
            into :nombre 
       do
       begin
 --Traduccion: Actualize la tabla TABLA, asigne el valor de :id al campo Ruta, cuando el campo NOMBRE sea igual al valor asignado a :nombre.
       id=id+1;
       UPDATE TABLA 
       SET Ruta=:id   
       WHERE NOMBRE=:nombre;  
       end

Espero te aclare la duda...Un abrazo :D

Caso Resuelto
 

Excelente, efectiva la solucion. Gracias por el apoyo. Cuidence.....;)