Parametros de salida de un stored procedure y valor por defecto

[[FGarcia]]

HOLA!!

Hoy es un buen día para llegar a los 1100 mensajes así que hay que aprovechar!!!!

¿Es posible asignar un valor por defecto a un parámetro de salida de un Stored Procedure?

En un parámetro de entrada se que si es posible, pero no he visto esta característica en un parámetro de salida. En mi mensaje anterior declaraba:

Código Delphi [-]
CREATE OR ALTER PROCEDURE CUENTATOTAL_3X_1 (
  P_DT_INICIO TIMESTAMP NOT NULL,
  P_DT_FINAL TIMESTAMP NOT NULL  
)
RETURNS (
  P_TOTAL_3X_1 INTEGER,
  P_CUENTA_3X_1 TYPE OF COLUMN DATOS.PESO

sin embargo si el valor de cuenta es Null me registra un error al tratar de asignarlo a algún componente -label, text, stringGrid, etc-

¿Es posible evitar eso? ¿Hay alguna técnica alternativa?

¡¡Saludos y Gracias por su atencion!!

[[maeyanes]]

Hola...

Solo se me ocurre asignar el valor predeterminado dentro del código del procedimiento:

Código SQL [-]
as
begin
  P_CUENTA_3X_1 = 0;
  // ...
  IF ('ALGUNA CONDICIÓN') THEN
    P_CUENTA_3X_1 = 100;
end;

saludos...

[[FGarcia]]

Gracias Maeyanes, pero la verdad no le capisco.....

Código SQL [-]
CREATE OR ALTER PROCEDURE CUENTATOTAL_3X_1 (
  P_DT_INICIO TIMESTAMP NOT NULL,
  P_DT_FINAL TIMESTAMP NOT NULL  
)
RETURNS (
  P_TOTAL_3X_1 INTEGER,
  P_CUENTA_3X_1 TYPE OF COLUMN DATOS.PESO
)
AS
BEGIN
  FOR SELECT 
      COUNT(*),
      SUM(PESO)
  FROM DATOS
  WHERE (FECHA >= :P_DT_INICIO AND FECHA <= :P_DT_FINAL) 
        /* resto de la condición ... */
  INTO
    P_TOTAL_3X_1, 
    P_CUENTA_3X_1
  DO
   SUSPEND;

La condición que me propones seria después del INTO?

[[maeyanes]]

Hola...

En tu caso, al obtener el resultado directamente desde un query, podrías hacerlo así:

Código SQL [-]
CREATE OR ALTER PROCEDURE CUENTATOTAL_3X_1 (
  P_DT_INICIO TIMESTAMP NOT NULL,
  P_DT_FINAL TIMESTAMP NOT NULL  
)
RETURNS (
  P_TOTAL_3X_1 INTEGER,
  P_CUENTA_3X_1 TYPE OF COLUMN DATOS.PESO
)
AS
BEGIN
  FOR SELECT 
      COUNT(*),
      SUM(PESO)
  FROM DATOS
  WHERE (FECHA >= :P_DT_INICIO AND FECHA <= :P_DT_FINAL) 
        /* resto de la condición ... */
  INTO
    P_TOTAL_3X_1, 
    P_CUENTA_3X_1
  DO
  BEGIN
    IF (P_CUENTA_3X_1 IS NULL) THEN
      P_CUENTA_3X_1 = 0;
    SUSPEND;
  END;

Saludos...

[[FGarcia]]

Bueno al menos me compilo sin errores, sin embargo -y esta es harina de otro costal- no me respeta la condición dada en Where.

Seguiré buscando.

[[Al González]]

Hola Fidel, que bueno verte más activo.

Estoy lejos de ser un experto en Firebird, pero me gustaría recordar que se usa Suspend cuando el procedimiento almacenado devolverá un cursor, es decir, cuando se va a consultar como si fuera una tabla (Select / subselect). Y cada vez que se ejecuta la instrucción Suspend se está "creando" y contestando al cliente una fila de resultados (con los valores que en ese momento tengan los parámetros de devolución).

En cambio, si el procedimiento ha de devolver un sólo dato o grupo de datos (no varias filas de datos), entonces basta con asignar los valores correspondientes a los parámetros de devolución, sin usar Suspend. Pero, en este caso, naturalmente el procedimiento no puede ser tratado como si fuera una tabla.

De manera predeterminada, los parámetros de devolución siempre tienen un valor de Null.

Por otra parte, Fidel, el "NOT NULL" en la cabecera no es para indicar valor predeterminado. Según entiendo es, como en el caso de la definición de tablas, para indicar que el parámetro de entrada en cuestión no debe ser Null.

Este artículo de la Fundación explica cómo de declaran realmente los parámetros con valor predeterminado (buscar ahí el apartado Default argument values).

Finalmente, dos cosas más. Enhorabuena por los 1100 mensajes , y algo igual de importante: No es buena práctica tratar de adaptar elementos de una base de datos a los elementos del lado cliente (como etiquetas o rejillas de la interfaz de usuario), ya que la capa de base de datos desconoce (y así debe ser) para qué clientes trabaja. Es la capa cliente la que tiene que adaptarse a la base de datos. Si un parámetro de devolución viene nulo, siempre habrá algún evento o propiedad en Delphi para convertirlo en una cosa aceptable.

Saludos.

[[FGarcia]]

Hola Al!

Los dos primeros puntos deberé de digerirlos mas lento.

El NOT NULL si lo entiendo y se aplica al parámetro de entrada, si a alguno de ellos le das un valor por defecto deberás dárselo a los que siguen.

La pregunta original se refería a parámetros de salida.

Con respecto al ultimo punto, se que lo ideal es aislar la capa de datos de la gui, y pues "El flojo trabaja dos veces"

Saludos!!!

[cloayza]

Yo propondría usar una función como COALESCE(valor, Valor_Defecto_Si_Es_Nulo).

Código SQL [-]
CREATE OR ALTER PROCEDURE CUENTATOTAL_3X_1 (
  P_DT_INICIO TIMESTAMP NOT NULL,
  P_DT_FINAL TIMESTAMP NOT NULL  
)
RETURNS (
  P_TOTAL_3X_1 INTEGER,
  P_CUENTA_3X_1 TYPE OF COLUMN DATOS.PESO
)
AS
BEGIN
  FOR SELECT 
      COUNT(*),
      COALESCE(SUM(PESO),0)
  FROM DATOS
  WHERE (FECHA >= :P_DT_INICIO AND FECHA <= :P_DT_FINAL) 
        /* resto de la condición ... */
  INTO
    :P_TOTAL_3X_1, 
    :P_CUENTA_3X_1;

  SUSPEND;
END

Eso sería...

[[FGarcia]]

GRRRRRRRR!

Me acabas de echar a perder 24 lineas de código y un montón de neuronas muertas.