problemas con consulta en un sp

[[duilioisola]]

Quizás solo faltó inicializar las variables

Código SQL [-]
SET TERM ^ ;
CREATE PROCEDURE TRAE3 (
 FECHAINI DATE,
 FECHAFIN DATE)
RETURNS (
 GS       FLOAT,
 MEC      INTEGER,
 SER      INTEGER,
 TC       INTEGER)
AS 
Declare variable Aux_GS    FLOAT;
Declare variable Aux_MEC  INTEGER;
Declare variable Aux_SER   INTEGER;
Declare variable Aux_TC    INTEGER;
BEGIN 
  GS = 0;
  MEC = 0;
  SER = 0;
  TC = 0;
Aux_GS = 0;
Aux_MEC = 0;
Aux_SER = 0;
Aux_TC = 0;
FOR SELECT 
(SELECT SUM(GS) FROM HONDATA WHERE IDHONDATA = H.IDHONDATA) AS GS,
(SELECT COUNT(R.IDRETSER) FROM RETMR R WHERE R.IDHONDATA = H.IDHONDATA AND  R.IDRETSER = 1) AS MEC,
(SELECT COUNT(R.IDRETSER) FROM RETMR R WHERE R.IDHONDATA = H.IDHONDATA AND  R.IDRETSER = 2) AS SER,
(SELECT COUNT(R.IDRETSER) FROM RETMR R WHERE R.IDHONDATA = H.IDHONDATA AND R.IDRETSER = 3) AS TC
FROM ENCAOR E, HONDATA H
WHERE E.TIPO <> 'C' AND E.FECH BETWEEN :FECHAINI AND :FECHAFIN AND E.ORDE = H.ORDE AND EXTRACT(MONTH FROM (H.FECHORDE)) = EXTRACT(MONTH FROM(:FECHAFIN))
INTO :Aux_GS, :Aux_MEC, :Aux_SER, :Aux_TC
DO 
Begin
  GS = :GS + :Aux_GS;
  MEC = :MEC + :Aux_MEC;
  SER = :SER + :Aux_SER;
  TC = :TC + :Aux_TC;
  SUSPEND;
end
END^
SET TERM ; ^

[[Lepe]]

Estuve mirando este hilo ayer pero no sabía por donde cogerlo.

El problema que veo es que haces un For select, y eso es un for para cada registro de la tabla, después, en su select vuelves a realizar otro select que suma:

Código SQL [-]
SELECT SUM(GS) FROM HONDATA WHERE IDHONDATA = H.IDHONDATA) AS GS

No sé, pero quizás fuese mejor realizar 3 selects distintos obteniendo las sumas:

Código SQL [-]
CREATE PROCEDURE TRAE3 (
 FECHAINI DATE,
 FECHAFIN DATE)
RETURNS (
 GS       FLOAT,
 MEC      INTEGER,
 SER      INTEGER,
 TC       INTEGER)
AS 
BEGIN 

SELECT SUM(GS) FROM HONDATA WHERE IDHONDATA = H.IDHONDATA) as GS
FROM ENCAOR E, HONDATA H
WHERE E.TIPO <> 'C' AND E.FECH BETWEEN :FECHAINI AND :FECHAFIN 
AND E.ORDE = H.ORDE AND EXTRACT(MONTH FROM (H.FECHORDE)) = EXTRACT(MONTH FROM(:FECHAFIN)) 

  and GS is not null
INTO :GS

...
-----------la otra sqls aqui -------

SELECT COUNT(R.IDRETSER) FROM RETMR R AS TC
FROM ENCAOR E, HONDATA H
WHERE R.IDHONDATA = H.IDHONDATA AND R.IDRETSER = 3)  
and E.TIPO <> 'C' AND E.FECH BETWEEN :FECHAINI AND :FECHAFIN 
AND E.ORDE = H.ORDE AND EXTRACT(MONTH FROM (H.FECHORDE)) = EXTRACT(MONTH FROM(:FECHAFIN))
into :TC

--- y después de tener todos los datos, devolvemos un único registro -----
 SUSPEND;
END^
SET TERM ; ^

Saludos

[Milperrimo]

Saludos, estoy intentando hacer eso de tener un select por cada cosa, pero aun soy novato y tengo problemas con la sintaxis de sql en firebird, ya corregi los selects porke aqui en el copypaste que hiciste aparecen con 2 from y eso, ya corregi para que quedara cada select con su INTO :XXX, pero me marca un error justo arriba del segundo select, no se si va algo entre un select y otro, le intente con un ; pero no, no se que instruccion valla o ke, y otra cosa a que te refieres con:

--- y después de tener todos los datos, devolvemos un único registro -----

tengo ke poner alguna instruccion para esto??

Gracias por su ayuda!!!

[[Lepe]]

Con tu permiso, empiezo citando desde el fin de tu mensaje:

Empezado por Milperrimo

Gracias por su ayuda!!!

Hombreeeee, que en la vida cotidiana todos me hablan "de usted" porque estoy medio calvo.... vale, le doy un pase, pero que aquí también me hablen "de usted", no eso no .

Empezado por Milperrimo

Saludos, estoy intentando hacer eso de tener un select por cada cosa, pero aun soy novato y tengo problemas con la sintaxis de sql en firebird, ya corregi los selects porke aqui en el copypaste que hiciste aparecen con 2 from y eso

Pues sí, se ve que me hice un lío, lo importante es que has entendido lo que quise decir .

Empezado por Milperrimo

[...]para que quedara cada select con su INTO :XXX, pero me marca un error justo arriba del segundo select, no se si va algo entre un select y otro, le intente con un ; pero no, no se que instruccion valla o ke

No va nada, debería ir un punto y coma, algo así:

Código SQL [-]
select  bla bla 
from  blabla
where blabla
into :GS;

select  bla bla 
from  blabla
where blabla
into :GS;

Como ves las instrucciones se separan por ";", aunque una sentencia puede ocupar varias líneas de texto.
Revisa también los paréntesis abiertos y cerrados, que yo estaba hambriento y me he comido varios. Si no es eso, pon el SP final a ver que vemos entre todos.

Empezado por Milperrimo

y otra cosa a que te refieres con:

--- y después de tener todos los datos, devolvemos un único registro -----

tengo ke poner alguna instruccion para esto??

No, lo puse como un pensamiento en voz alta, se refiere a que la siguiente línea (el "SUSPEND") lo que hace es eso, devolver un único registro.

Saludos

[Milperrimo]

AL FINNNNNNNNNNNNNNNN!!!!!!!!!!!!!!!!!!!! ya funciono a la perfeccion asi haciendo un select por cada cosa y poniendo los ';' que faltaban, ya me saca un solo registro como debe ser, Muchisimas Gracias a todosss