Crear secuencia numerica con un procedimiento almacenado

[PeLuCa]

Hola que tal, si es que entendi bien, o por lo que veo en la tabla el estado 6 del que tu hablas no existe, por eso que ese select

select cod_inf, estado, descri_1
from scginf
where estado = 6 /* si quito esta linea obtengo una secuencia */
order by cod_inf
into :cod_inf, :estado, :descri_1

no obtendrias resultado alguno, creo que deberias hacerlo sin tener en cuenta el estado, es decir, quitar esa linea que dices.
Podrias optar por hacer un cursor ordenado por COD_INF y recorrerlo verificando el numero actual con el anterior, si es que son correlativos no haces nada, en caso contrario, ves la diferencia entre ellos para saber cuanto numeros agregar a la secuencia. Me parece mas general el procedemiento de esta forma.

Saludos.

[DobleSiete]

Empezado por PeLuCa

Hola que tal, si es que entendi bien, o por lo que veo en la tabla el estado 6 del que tu hablas no existe, por eso que ese select

select cod_inf, estado, descri_1
from scginf
where estado = 6 /* si quito esta linea obtengo una secuencia */
order by cod_inf
into :cod_inf, :estado, :descri_1

no obtendrias resultado alguno, creo que deberias hacerlo sin tener en cuenta el estado, es decir, quitar esa linea que dices.
Podrias optar por hacer un cursor ordenado por COD_INF y recorrerlo verificando el numero actual con el anterior, si es que son correlativos no haces nada, en caso contrario, ves la diferencia entre ellos para saber cuanto numeros agregar a la secuencia. Me parece mas general el procedemiento de esta forma.

Saludos.

Hola...

Nunca he usado cursores, tal vez me sirva en otro caso... pero el caso es que necesito obligatoriamente una clausula WHERE ... el asunto entonces es como generar la secuencia númerica si el SELECT devuelve un resultado NULL...

¿Tal vez con un WHEN...DO?
¿como podría hacerlo?

8-(

Gracias de todas formas.

[jachguate]

No se si valga en tu caso, pero en lugar de un procedimiento almacenado podrias tener una tabla que ya contenga la secuencia de números que te interesa, y luego enlazarla via outer join (por ejemplo en una vista)

Supongamos que creamos la tabla Secuencia y que la rellenamos con los números del 1000 al 7000.

Luego podriamos hacer:

Código SQL [-]
select sec.Numero, s.estado, s.descri_1
  from secuencia sec
       left outer join scginf s on s.cod_inf = sec.Numero
 order by sec.Numero;

Al menos a mi esta solución me parece mas elegante...

Hasta luego.

[DobleSiete]

Supongo que funcionaría en el caso de la secuencia siempre fuese la misma.

El ejemplo que les coloqué es solo eso, un ejemplo, el caso real es cuatro veces más complejo. En ese caso, la secuencia es hasta 31 (los 31 días del mes)... de modo que tu idea funcionaría perfectamente (teoricamente, porque todavía no la he probado).

Pero me sigue intrigando algo: ¿como sería generar esa secuencia de 31 o 3000 numeros usando un contador, cuando el resultado es nulo?

Se supone que se puede atrapar con un WHEN SQLCODE 100 DO sin embargo he probado con esa setencia y no funciona... (esa es al razón por la que postee el mensaje).

[jachguate]

Hola.

Hay varias formas de conseguir el resultado desde un sp. Me he dado a la tarea de codificar una de ellas y en mis pruebas todo ha sido satisfactorio.

Aqui dejo el script para que lo probes por vos mismo y que lo adaptes a tus necesidades.

Código SQL [-]
Create table tabla1 (
  contador  integer not null primary key,
  campo1 varchar(50),
  campo2 varchar(50)
);

insert into tabla1
values (10, 'diez', 'diez');

insert into tabla1
values (20, 'veinte', 'veinte');

Set term ^ ;

create procedure Tabla_Secuenciada as Begin exit; end^

set term ; ^

commit;

Set term ^ ;

Alter procedure Tabla_Secuenciada
(
  contador_ini integer,
  contador_fin integer
)
returns
(
  contador integer,
  Campo1 Varchar(50),
  Campo2 VarChar(50)
)
AS
  declare variable contador_temp integer;
  declare variable campo1_temp varchar(50);
  declare variable campo2_temp varchar(50);

Begin
/* retornar :contador, :campo1 y :campo2 */
  contador = contador_ini - 1;
  for Select contador, campo1, campo2
        from tabla1
       where contador between :contador_ini and :contador_fin
        into :contador_temp, :campo1_temp, :campo2_temp
  do
  Begin
    contador = contador + 1;
    if (contador_temp > contador) Then
    begin
      campo1 = null;
      campo2 = null;
      while (contador < contador_temp) do
      Begin
        suspend;
        contador = contador + 1;
      end
    end
    /* cuando llegamos a este punto, :contador siempre será igual a :contador_temp */
    contador = contador_temp;
    campo1 = campo1_temp;
    campo2 = campo2_temp;
    suspend;
  end
  /* al llegar a este punto es probable que no se halla alcanzado el contador final, rellenar */
  if (contador_fin > contador) Then
  begin
    campo1 = null;
    campo2 = null;
    while (contador < contador_fin) do
    Begin
      contador = contador + 1;
      suspend;
    end
  end
end
^

set term ; ^

commit;


select * from tabla_secuenciada(1, 5);
select * from tabla_secuenciada(10, 10);
select * from tabla_secuenciada(10, 20);
select * from tabla_secuenciada(5, 25);
select * from tabla_secuenciada(15, 20);
select * from tabla_secuenciada(15, 25);
select * from tabla_secuenciada(21, 25);
select * from tabla_secuenciada(25, 25);

Espero sea de ayuda para vos y para la comunidad.

Hasta luego.

[DobleSiete]

Hola Jachguate !!

...prove tu código y funcionó perfectamente !!! muchisimas gracias...

Ahora lo que no entiendo es porque mi humilde programita no solo no funciona, sino que ademas provoca un bloqueo que el IBConsole (tengo que terminar el proceso en el administrador de tareas de windows)... he aquí mi código:

Código SQL [-]
   SET TERM !!;
   CREATE PROCEDURE proc_rellenar
   RETURNS (cod_inf  CHAR(4),
            estado   CHAR(1),
            descri_1 CHAR(40))
   AS
   DECLARE VARIABLE cont INT;
   BEGIN
       cont = 1000;
       WHILE (cont <= 7000) DO
       BEGIN
           FOR
               SELECT   cod_inf, estado, descri_1
               FROM     scginf
               WHERE    cod_inf = :cont
                        AND estado = 6
               ORDER BY cod_inf
               INTO     :cod_inf, :estado, :descri_1
           DO
           BEGIN
               SUSPEND;
               cont = cont + 1;
           END
       END
   
       /* cuando la consulta no retorne resultados */
   
       WHEN SQLCODE 100 DO
       BEGIN
           cont = 1000;
           WHILE (cont <= 7000) DO
           BEGIN
               cod_inf  = cont;
               estado   = '';
               descri_1 = '';
               cont = cont + 1;
               SUSPEND;
           END
       END
   END!!
   SET TERM ;!!

[jachguate]

Creo que no has comprendido la idea completamente y pues solo has complicado tu código... eso de comprender la idea ya te toca a vos, dado que aqui venimos para aprender a programar y afinar nuestra lógica, mas que para encontrar quien programe por nosotros...

Realmente no es tan dificil la tarea de adaptar el código de mi sp para que funcione bajo tus condiciones... pero no te vas a ir de aqui sin ensuciarte las manos, asi que ¡a picar piedra!.

Tratá de comprender la lógica del sp, y luego bastará con sustituir un par de cosas para que funcione en tu caso.

Hasta luego.