verificar con procedimiento almacenado

[fedelphi]

Hola de nuevo amigos, trabajo con delphi 7 y mi idea es hacer que el servidor (firebird) me devuelva un 'si' o un 'no' si el numero que le paso como parametro esta dentro de uno de los rangos almacenados en la tabla. Esta tabla tiene un campo que identifica tickets, y rangos que determinan que si el ticket esta dentro de alguno de los mismos es robado, invalido, etc.
Puede haber varios rangos para un mismo ticket, por ejemplo
id_ticket minimo maximo
1 10 20
1 50 80
3 15 100
1 150 200
3 5 10
en este caso el ticket 1 nro 15 es invalido, el ticket1 nro 90 seria valido
Realice este procedimiento almacenado, pero al querer ver los parametros en el object inspector de delphi me tira el error: dinamic SQL error. SQL error code=-204 procedure unknown VERIFICA_ROBADO

Código SQL [-]
PROCEDURE VERIFICA_ROBADO (
    PEID_TICKET Integer,
    PENRO_TICKET Varchar(15) )
RETURNS (
    PSES_ROBADO Varchar(2) )
AS
DECLARE VARIABLE DVMInimo VARCHAR(15); 
DECLARE VARIABLE DVMaximo VARCHAR(15);
BEGIN
  PSes_robado='no';
  FOR SELECT minimo,maximo FROM RANGO_ROBADOS WHERE id_ticket=:PEId_ticket
      INTO DVMinimo,DVMaximo
  DO
  BEGIN
    SUSPEND;
    if (PEnro_ticket BETWEEN DVMinimo AND DVMaximo) THEN
    BEGIN
      PSes_robado='si';
      EXIT;
    END
  END

Alguien me puede dar una mano en que estoy metiendo la pata, recien estoy empezando con firebird y se me complico demas este SP
Gracias
Fede

[[Lepe]]

Acabo de releer el hilo y ya encuentro sentido a todo:

1º- Necesitas un SP de ejecución... nada de suspend.

Código SQL [-]
PROCEDURE VERIFICA_ROBADO (
    PEID_TICKET Integer,
    PENRO_TICKET Varchar(15) )
RETURNS (
    PSES_ROBADO Varchar(2) )
AS
DECLARE VARIABLE DVMInimo VARCHAR(15); 
DECLARE VARIABLE DVMaximo VARCHAR(15);
BEGIN
  Pses = 'no';
  FOR SELECT minimo,maximo FROM RANGO_ROBADOS WHERE id_ticket=:PEId_ticket
      INTO DVMinimo,DVMaximo
  DO
  BEGIN

    if (PEnro_ticket BETWEEN DVMinimo AND DVMaximo) THEN
    begin
      PSes_robado='si'
      Break; /* o exit... no sé bien porque no he trabajado con ellos*/
  END

2º - Para ejecutarlo, usaría un Query con la consulta:

Código Delphi [-]
query1.sql.text :=   'execute procedure verifica_Robado(:elticket, :penro)';
query1.parambyname('elticket').AsInteger := 3;
query1.parambyname('pennro').AsString := edit1.text;
query1.Execsql;
 ShowMessage(query1.FieldByname('Pses').AsString);

Lo que no entiendo es por qué usas campos varchar para PENRO_TICKET DVMInimo y DVMaximo... ¿no deberían ser enteros?... no sé, quizás no obtengas los valores esperados porque un varchar no es lo mismo (al tiempo de comparar con el operador between) que comparar con números.

Saludos

[fedelphi]

Muchisimas gracias Lepe, funciona una barbaridad pero lo hice con un IBStoredProc asi

Código Delphi [-]
 with modulodatos.IBSPEsRobado do
  begin
    Close;
    parambyname('PEID_TICKET').AsInteger:=id_ticket;
    parambyname('PENRO_TICKET').AsString:=nro_ticket; //aux;
    execproc;
    if parambyname('PSES_ROBADO').AsString='si' then
      result:=False
    else
      result:=True;
  end;

ya que al querer evaluar el parametro de salida con el IBQuery me decia que no estaba definido el parametro, y en la propiedad params no esta, pense que cuando se le hacia open al query no habia problemas pero no, no lo pude hacer funcionar con el query, como deberia definir este parametro de salida?.
Con respecto a lo de los numeros hay algunos que son de hasta 15 digitos, y en realidad no se como trabajar con ellos en firebird, lo voy a probar y luego la sigo.
Muchas gracias
Fede

[[Lepe]]

Acabo de editar mi mensaje anterior, ya que primero lo hice pensando en un SP de selección y usaba query1.Open

Al realizarlo por SP de ejecución, hay que llamar a Query1.ExecSql (o usar un IBStoreProcedure, que es exactamente lo mismo). Si no recuerdo mal, (y dado que no te funciona ) habrá que usar Fieldbyname para leer el parámetro de salida.

Saludos