Tengo problemas con el ZStoreProc necesito ejecutar el store pero tengo el siguiente error "Unsopported Operation"
estoy con mysql 5.1 y este es el store
DROP PROCEDURE IF EXISTS SHOW_CORRIDAS;
DELIMITER $$
CREATE PROCEDURE SHOW_CORRIDAS(IN IN_ORIGEN VARCHAR(5), IN IN_DESTINO VARCHAR(5), IN FECHA_INPUT DATE)
BEGIN
DECLARE LD_FECHA2 DATE;
DECLARE LT_HORA2 TIME;
IF DATE_FORMAT(FECHA_INPUT,'%Y %m %d') = DATE_FORMAT(NOW( ),'%Y %m %d') THEN
SET LD_FECHA2 = CAST(CURRENT_DATE() + 1 AS DATE);
SET LT_HORA2 = CAST(NOW() AS TIME);
SELECT
(SELECT P.TIPO_CORRIDA FROM PDV_T_CORRIDA P WHERE P.ID_CORRIDA = D.ID_CORRIDA),
D.FECHA, TR.DESTINO, D.HORA,
(SELECT S.ABREVIACION FROM SERVICIOS S INNER JOIN PDV_T_CORRIDA C ON S.TIPOSERVICIO = C.TIPOSERVICIO
WHERE C.ID_CORRIDA = D.ID_CORRIDA)AS ABREVIA,
TR.ID_TRAMO
FROM PDV_T_CORRIDA_D D INNER JOIN T_C_TERMINAL T ON D.ID_TERMINAL = T.ID_TERMINAL
INNER JOIN T_C_RUTA_D R ON D.ID_RUTA = R.ID_RUTA
INNER JOIN T_C_TRAMO TR ON R.ID_TRAMO = TR.ID_TRAMO
WHERE T.ID_TERMINAL = IN_ORIGEN AND D.HORA >= LT_HORA2
AND D.FECHA BETWEEN CAST(NOW() AS DATE) AND LD_FECHA2
AND TR.DESTINO = IN_DESTINO
ORDER BY D.FECHA, D.HORA;
END IF;
IF DATE_FORMAT(FECHA_INPUT,'%Y %m %d') != DATE_FORMAT(NOW( ),'%Y %m %d') THEN
SET LD_FECHA2 = CAST(CAST(FECHA_INPUT AS DATE) + 1 AS DATE);-- EL SIGUIENTE DIA
SELECT
(SELECT P.TIPO_CORRIDA FROM PDV_T_CORRIDA P WHERE P.ID_CORRIDA = D.ID_CORRIDA),
D.FECHA, TR.DESTINO, D.HORA,
(SELECT S.ABREVIACION FROM SERVICIOS S INNER JOIN PDV_T_CORRIDA C ON S.TIPOSERVICIO = C.TIPOSERVICIO
WHERE C.ID_CORRIDA = D.ID_CORRIDA)AS ABREVIA,
TR.ID_TRAMO
FROM PDV_T_CORRIDA_D D INNER JOIN T_C_TERMINAL T ON D.ID_TERMINAL = T.ID_TERMINAL
INNER JOIN T_C_RUTA_D R ON D.ID_RUTA = R.ID_RUTA
INNER JOIN T_C_TRAMO TR ON R.ID_TRAMO = TR.ID_TRAMO
WHERE T.ID_TERMINAL = IN_ORIGEN AND D.FECHA BETWEEN FECHA_INPUT AND LD_FECHA2
AND TR.DESTINO = IN_DESTINO
ORDER BY D.FECHA, D.HORA;
END IF;
END $$
DELIMITER ;
y asi lo invoco en delphi 7
try
ZStoredProc1.Close;
ZStoredProc1.Active := true;
ZStoredProc1.StoredProcName := 'CALL SHOW_CORRIDAS';
ZStoredProc1.Params[0].Value := 'MEX';
ZStoredProc1.Params[0].Value := 'XOX';
ZStoredProc1.Params[0].Value := '2009-10-30';
ZStoredProc1.Open;
except
on E:Exception do begin
ShowMessage(e.Message);
end;
end;
Puedes ayudarme por que esta marcando el error