crear Stored Procedure desde delphi

[Milperrimo]

Saludos, tengo un gran problemon, ojala alguien me pueda ayudar, en la base de datos de una empresa tengo que correr un sp, el problema es que no me dejan instalar un programa administrador de base de datos como el iboconsole o el firebird maestro. entonces lo que siempre hemos hecho es crear aplicaciones en delphi que me corran todos los querys como los de crear tablas y alterarlas y eso. Pero se me presenta el problema con un sp, corriendolo desde un administrador d base de datos jala perfectamente pero a la hora de correrlo desde delphi me genera errores por la sintaxis del sql para firebird, entonces que es lo que le tengo que corregir o como arreglar el sp para que corra desde delphi.

SET TERM ^ ;

RECREATE PROCEDURE SP_REP_ANUAL4 (
FECHAFIN DATE)
RETURNS (
MN INTEGER,
MUH INTEGER,
MUO INTEGER,
REC INTEGER,
ACU INTEGER,
MAHN INTEGER,
MAHU INTEGER,
OAHN INTEGER,
AMOPH FLOAT,
AMOPO FLOAT,
AMOGH FLOAT,
AMOGO FLOAT,
AMOIH FLOAT,
AMOIO FLOAT,
ARPH FLOAT,
ARPO FLOAT,
AOH FLOAT,
AOO FLOAT,
RORPU FLOAT,
AORPU FLOAT,
RORPI FLOAT,
AORPI FLOAT,
RORG FLOAT,
AORG FLOAT,
RORI FLOAT,
AORI FLOAT,
RMEN FLOAT,
AMEN FLOAT,
RMAY FLOAT,
AMAY FLOAT,
ROT FLOAT,
AOT FLOAT,
CMOP FLOAT,
CMOI FLOAT,
CMOG FLOAT,
GF FLOAT,
GS FLOAT,
MPH INTEGER,
SPH INTEGER,
RGH INTEGER,
IPEH INTEGER,
IAH INTEGER,
OT1H INTEGER,
RGAH INTEGER,
TPH INTEGER,
OT2H INTEGER,
MPO INTEGER,
SPO INTEGER,
RGO INTEGER,
SIO INTEGER,
TPO INTEGER,
OT3O INTEGER,
MEC INTEGER,
SER INTEGER,
TC INTEGER)
AS
BEGIN
FOR
SELECT
(SELECT COUNT(IDVTAS) FROM HONDATA WHERE IDVTAS = 1 AND EXTRACT(YEAR FROM(FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))) AS MN,
(SELECT COUNT(IDVTAS) FROM HONDATA WHERE IDVTAS = 2 AND EXTRACT(YEAR FROM(FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))) AS MUH,
(SELECT COUNT(IDVTAS) FROM HONDATA WHERE IDVTAS = 3 AND EXTRACT(YEAR FROM(FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))) AS MUO,
COUNT(H.RECOR) AS REC,
COUNT(H.ACUDIO) AS ACU,
(SELECT COUNT(IDVISITA) FROM HONDATA WHERE IDVISITA = 1 AND EXTRACT(YEAR FROM(FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))) AS MAHN,
(SELECT COUNT(IDVISITA) FROM HONDATA WHERE IDVISITA = 2 AND EXTRACT(YEAR FROM(FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))) AS MAHU,
(SELECT COUNT(IDVISITA) FROM HONDATA WHERE IDVISITA = 3 AND EXTRACT(YEAR FROM(FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))) AS OAHN,
SUM(H.AMOPH) AS AMOPH,
SUM(H.AMOPO) AS AMOPO,
SUM(H.AMOGH) AS AMOGH,
SUM(H.AMOGO) AS AMOGO,
SUM(H.AMOIH) AS AMOIH,
SUM(H.AMOIO) AS AMOIO,
SUM(H.ARPH) AS ARPH,
SUM(H.ARPO) AS ARPO,
SUM(H.AOH) AS AOH,
SUM(H.AOO) AS AOO,
SUM(H.RORPU) AS RORPU,
SUM(H.AORPU) AS AORPU,
SUM(H.RORPI) AS RORPI,
SUM(H.AORPI) AS AORPI,
SUM(H.RORG) AS RORG,
SUM(H.AORG) AS AORG,
SUM(H.RORI) AS RORI,
SUM(H.AORI) AS AORI,
SUM(H.RMEN) AS RMEN,
SUM(H.AMEN) AS AMEN,
SUM(H.RMAY) AS RMAY,
SUM(H.AMAY) AS AMAY,
SUM(H.ROT) AS ROT,
SUM(H.AOT) AS AOT,
SUM(H.CMOP) AS CMOP,
SUM(H.CMOI) AS CMOI,
SUM(H.CMOG) AS CMOG,
SUM(H.GF) AS GF,
SUM(H.GS) AS GS,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =1) AS MPh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =2) AS SPh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =3) AS RGh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =4) AS IPEh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =5) AS IAh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =6) AS OT1h,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =7) AS RGAh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =8) AS TPh,
(SELECT COUNT(S.IDSERVH) FROM SERVMH S WHERE S.IDSERVH =9) AS OT2h,
(SELECT COUNT(S.IDSERVO) FROM SERVMO S WHERE S.IDSERVO = 1) AS MPo,
(SELECT COUNT(S.IDSERVO) FROM SERVMO S WHERE S.IDSERVO = 2) AS SPo,
(SELECT COUNT(S.IDSERVO) FROM SERVMO S WHERE S.IDSERVO = 3) AS RGo,
(SELECT COUNT(S.IDSERVO) FROM SERVMO S WHERE S.IDSERVO = 4) AS SIo,
(SELECT COUNT(S.IDSERVO) FROM SERVMO S WHERE S.IDSERVO = 5) AS TPo,
(SELECT COUNT(S.IDSERVO) FROM SERVMO S WHERE S.IDSERVO = 6) AS OT3o,
(SELECT COUNT(R.IDRETSER) FROM RETMR R WHERE R.IDRETSER = 1) AS MEC,
(SELECT COUNT(R.IDRETSER) FROM RETMR R WHERE R.IDRETSER = 2) AS SER,
(SELECT COUNT(R.IDRETSER) FROM RETMR R WHERE R.IDRETSER = 3) AS TC
FROM ENCAOR E, HONDATA H
WHERE E.TIPO <> 'C' AND E.ORDE = H.ORDE AND EXTRACT(YEAR FROM (H.FECHORDE)) = EXTRACT(YEAR FROM(:FECHAFIN))
INTO :MN, :MUH, :MUO, :REC, :ACU, :MAHN, :MAHU, :OAHN,
:AMOPH, :AMOPO, :AMOGH, :AMOGO, :AMOIH, :AMOIO, :ARPH,
:ARPO, :AOH, :AOO, :RORPU, :AORPU, :RORPI, :AORPI, :RORG,
:AORG, :RORI, :AORI, :RMEN, :AMEN, :RMAY, :AMAY, :ROT,
:AOT, :CMOP, :CMOI, :CMOG, :GF, :GS, :MPh, :SPh, :RGh,
:IPEh, :IAh, :OT1h, :RGAh, :TPh, :OT2h, :MPo, :SPo,
:RGo, :SIo, :TPo, :OT3o, :MEC, :SER, :TC
DO SUSPEND;
END^

SET TERM ; ^

por ejemplo me da error con lo del set term, me dice ke no existe. Ojala alguien me pueda ayudar, no se si explique bien lo que me pasa, hagan preguntas para esclarecer algo que no me halla explicado bien.

[jachguate]

Set term no es un comando SQL válido.

Cuando usas isql, este interpreta el comando para saber donde termina la instrucción SQL. En el caso de los triggers o stored procedures, esto es necesario, pues de otra manera el interprete detectaría que la instrucción termina en el primer punto y coma y enviaría solamente ese trozo al servidor, que tiene capacidad únicamente para procesar comandos uno a uno.

En otras palabras, un servidor Firebird no ejecutará un script. Es el interprete (isql, por ejemplo) el encargado de ir sacando las instrucciones y enviarlas una a una al servidor.

La gran mayoría de las herramientas para ib/fb que han surgido posteriormente (IBConsole, IBExpert, IBManager, etc), han tomado este comportamiento como "estándar" y lo han implementado.

Después de toda esta explicación, comprenderás que si estas enviando la instrucción con un TQUery, lo único que falta es que quites las dos sentencias set term del mismo, y todo funcionará a la perfección.

Hasta luego.

;)

[Milperrimo]

Saludos, gracias por la explicacion, ya me kedo un poco mas claro eso, pero sigo teniendo el problema, quite los dos set term como dijiste, y no funciono, le quito el ^ al end ultimo y no funciona, me marca error en la linea 120, es decir donde esta el into, solo dice error on line 120 no dice de ke tipo, sabes que mas le puedo hacer???

[jachguate]

Has intentado ejecutar la sentencia desde isql?

Supongo que ese si te dejan instalarlo, ¿no?

[PepeLolo]

Hola.

te falta el ; al final del INTO.

Saludos.