Stored Procedure

[Casimiro Notevi]

¿Puedes poner un metadata simplificado con algunos datos para probar?

Un script con su create table y los mínimos campos necesarios y algunos datos extraidos con ibexpert, por ejemplo, o el que uses.

[[gluglu]]

Voy a cambiar la tabla de nombre para simplicarlo todo. Introducimos un único registro con un único valor = 1. Creamos el Stored Procedure.

Código Delphi [-]
CREATE TABLE PRUEBA(
    RANDOMNO DECIMAL(12,0)
);
 
INSERT INTO PRUEBA (RANDOMNO)
            VALUES (1);
COMMIT WORK;
 
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
 declare variable aux_rand decimal(12,0);
 declare variable aux_rand2 decimal(12,0);
 declare variable aux_true integer;
begin
 
  AUX_TRUE  = 0;
 
  while (:"AUX_TRUE" = 0) do begin

    Select RANDOMNO from PRUEBA
      where RANDOMNO = :"IN_RANDOM"
      rows 1 into AUX_RAND;

    if (:"AUX_RAND" is null) then begin
      Leave;
    end
    else begin
      IN_RANDOM = IN_RANDOM + 1;
      if (IN_RANDOM > 200) then Leave;
    end

  end
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end
^
SET TERM ; ^

Y por último ejecutamos :

Código Delphi [-]
Select * from NEW_PROCEDURE2(1)

Esta sentencia me devuelve el valor 201.

Esta otra

Código Delphi [-]
Select * from NEW_PROCEDURE2(2)

me devuelve el valor 2.

Si pruebo con lo siguiente :

Código Delphi [-]
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
 declare variable aux_rand decimal(12,0);
 declare variable aux_rand2 decimal(12,0);
 declare variable aux_true integer;
begin
 
  AUX_TRUE  = 0;
 
  while (:"AUX_TRUE" = 0) do begin

    Select RANDOMNO from PRUEBA
      where RANDOMNO = :"IN_RANDOM"
      rows 1 into AUX_RAND;

    if (:"AUX_RAND" is null) then begin
      Leave;
    end
    else begin
      IN_RANDOM = IN_RANDOM + 1;
      if (IN_RANDOM > 200) then Leave;
    end

  end
 
  OUT_RANDOM = AUX_RAND;
 
  suspend;
 
end
^
SET TERM ; ^

para ver qué valor queda en Aux_Rand, entonces

Código Delphi [-]
Select * from NEW_PROCEDURE2(1)

me devuelve el valor 1
y

Código Delphi [-]
Select * from NEW_PROCEDURE2(2)

me devuelve null.

P.D. La versión de Firebird es la 2.1

[[gluglu]]

... parece como si una vez que Aux_Rand no ha tomado el valor null, ya no lo volviera a tomar más en el bucle y en su comprobación correspondiente If (:"Aux_Rand" is null) porque no hace el Leave adecuado, pero en cambio, al comprobar el valor con OUT_RANDOM, entonces sí que aparece el null.

... no lo entiendo ...

[Casimiro Notevi]

Me parece que está claro:

Si lo llamas con el valor 1, que existe, entonces como aux_rand no es null aumenta in_random en 1 hasta que llega a 200+1 y sale, devolviendo 201
Sin embargo, cuando lo llamas con 2, que no existe, no lo encuentra, entonces aux_rand es null y sale con el valor pasado, el 2 en este caso.

[Casimiro Notevi]

Si lo que quieres es simplemente el número siguiente al mayor existente, entonces vale con hacer algo simple como:

Código SQL [-]
select max(randomno)+1 from latabla where loquesea into :lavariableadevolver

Y si no pueden existir repetidos entonces mejor un generador.

Y si es otra cosa, entonces es que no me he enterado todavía porque después de comer me está dando sueño y voy a por un café...

[[gluglu]]

Exactamente !

.... pero eso no es lo que está programado !!

Porque si el valor que le paso es '2', que no existe, y por lo tanto Aux_Rand es null, entonces correctamente sale. Pero si le paso '1', en la siguiente pasada por el bucle While, se incremeta 1 al 2, y debería de volver a comprobarlo, y ahora que el valor es 2 y no existe, me debería devolver 2 (!!) y no 201 ya que entra de nuevo en la suma !!

[[gluglu]]

Acabo de leer tu último comentario.

El problema surge que hay muchos usuarios que acceden a esa tabla, y tengo que saber si cada usuario va a tener un número único. Para eso genero un número aleatorio cualquiera, y compruebo si existe ya previamente. Si no existe, perfecto, devuelvo ese mismo número aleatorio que le pasé de entrada, como salida.

Pero si el número aleatorio (por p... casualidad) ya existiera, tengo que buscar otro que no exista para que cada usuario diferente tenga garantizado que su número obtenido es único en la tabla.

Generalmente la tabla estará vacía, porque es una tabla para unos cálculos temporales, que después se muestran en un StringGrid. Una vez que salga del Form con ese StringGrid, los datos se vuelven a borrar de la tabla.

[[gluglu]]

Código Delphi [-]
SET TERM ^ ;
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (
    in_random decimal(12,0))
returns (
    out_random decimal(12,0))
as
 declare variable aux_rand decimal(12,0);
 declare variable aux_rand2 decimal(12,0);
 declare variable aux_true integer;
begin
 
  Select RANDOMNO from PRUEBA
    where RANDOMNO = :"IN_RANDOM"
    rows 1
  into AUX_RAND;
 
  if (:"AUX_RAND" is not null) then
    IN_RANDOM = IN_RANDOM + 1;
 
  Select RANDOMNO from PRUEBA
    where RANDOMNO = :"IN_RANDOM"
    rows 1
  into AUX_RAND;
 
  if (:"AUX_RAND" is not null) then
    IN_RANDOM = IN_RANDOM + 1;
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end
^
SET TERM ; ^

Por qué esta modificación, si ejecuto con el valor de entrada 1, entonces me devuelve 3 (!!! ) y si el valor de entrada es 2, entonces me devuelve 2 !!

Parece como si no gestionase correctamente la Suma + 1 del parámetro de Entrada In_Random. Pero es que como ya dije anteriormente lo he probado incluso con variables propias del procedimiento, sin tocar la variable de entrada, y tampoco ....

[Casimiro Notevi]

Prueba esto:

Código SQL [-]
CREATE OR ALTER PROCEDURE NEW_PROCEDURE2 (in_random decimal(12,0))
returns (out_random decimal(12,0))
as
  declare variable aux_rand decimal(12,0);
  declare variable aux_true integer;
begin
  AUX_TRUE  = 0;
 
  while (:AUX_TRUE = 0) do
  begin

    aux_rand = null;   /*   <------------------------------- */

    Select RANDOMNO from PRUEBA
      where RANDOMNO = :IN_RANDOM
      rows 1 into AUX_RAND;

    if (:AUX_RAND is null) then
    begin
      Leave;
    end
    else
    begin
      IN_RANDOM = :IN_RANDOM + 1;
      if (:IN_RANDOM > 200) then
        Leave;
    end

  end
 
  OUT_RANDOM = IN_RANDOM;
 
  suspend;
 
end

[Casimiro Notevi]

Voy a probar con fb2.1, es que tenía ahora mismo la 1.5 y lo he adaptado porque no funcionaba las comillas, el rows 1, etc.
Ahora vuelvo...