Parsing Error en un Stored Procedure

[[FGarcia]]

Pues sigo tratando de aprender firebird

Es correcta mi declaracion de este Stored procedure?

Código SQL [-]
create or alter procedure CUENTATOTAL_3X_1 (
    P_DT_FINAL timestamp not null,
    P_DT_INICIO timestamp not null)
returns (
    P_TOTAL_DIA_3X_1 float,
    P_CUENTA_DIA_3X_1 integer)
as
begin
  /* Procedure Text */
  SELECT COUNT(*) AS p_cuenta_dia_3x_1,
    SUM (Peso) AS p_total_dia_3x_1
    FROM Datos WHERE ((horafecha BETWEEN : p_dt_inicio AND : p_dt_final)
    AND (Equipo = 6)
    OR (Equipo = 7)
    OR (Equipo = 8))
  suspend;
end

Al intentar compilar me manda el error

"Parsing Error"

Ya revise la guia de faq's de firebird y me dice que IBExpert es tan "inteligente" que trata de hacer un "parsing" aun antes de tener acceso a Firebird. ¿Entonces que sigue? Tal vez estoy enfocando mal la creacion del SP

Win7 64 bits, Delphi XE2, Firebird 2.5.3.26778

Gracias por su tiempo!!

[ecfisa]

Hola Fidel.

Según entiendo deseas que devuelva en P_TOTAL_3X_1 la cantidad de filas y en P_CUENTA_3X1 la sumatoria de la columna PESO.

Si no me equivoqué, creo que deberías hacer algo similar a esto:

Código SQL [-]
SET TERM ^ ;

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;
END^

SET TERM ; ^

Saludos

Nota: Para no andar sacando la lengua (costumbre muy fea ) podes usar las etiquetas noparse, Ej.: [noparse]:p[/noparse]_dt_inicio

[[FGarcia]]

Ciertamente estas en lo correcto de cual es el proposito del SP. Como dije el enfoque de la creacion del procedure lo tenia mal.

Dejame probar que todo funcione ok y si no funciona te estare dando mas "molestias"