Parámetro VarChar de búsqueda, ¿es válido aumentar su tamaño para evitar error?

[[Luis M.]]

Hola Al.
Tienes razón en lo que comentas.
Pero curiosamente a mi me pasaba lo siguiente:
Declaro este SP:

Código Delphi [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE ULTIMO_RECIBO (
    anyo varchar(2))
returns (
    ultimo varchar(10))
as
begin
  /* Procedure Text */
  EXECUTE STATEMENT 'SELECT max(NUMERO) FROM RECIBOS where ANYO = '||:anyo
  INTO :ultimo;
  suspend;
end^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE ULTIMO_RECIBO TO SYSDBA;

Desde Delphi lo llamo así:

Código Delphi [-]
//--- Introduce último recibo ---
  SP.StoredProcName := 'ULTIMO_RECIBO';
  SP.Prepare;
  try
    SP.Params.ParamValues['ANYO'] := QuotedStr(RecibosANYO.AsString);
    SP.ExecProc;
    cText := IntToStr(SP.ParamByName('ULTIMO').AsInteger + 1);
    RecibosNUMERO.AsString := Copy('00000', 1, 5 - Length(cText)) + cText;
  finally
    SP.UnPrepare;
  end;

RecibosANYO es VarChar(2).
Al ejecutarlo me da el error que describes.
Si cambio en el SP

Código Delphi [-]
CREATE OR ALTER PROCEDURE ULTIMO_RECIBO (
    anyo varchar(2))

por:

Código Delphi [-]
CREATE OR ALTER PROCEDURE ULTIMO_RECIBO (
    anyo varchar(10))

Funciona bien.
A eso me refería.
Un saludo y encantado de leerte.

[[maeyanes]]

Hola...

Luis M., ¿por qué haces tu procedimiento de esa forma?

Eso que tu haces lo puedes lograr así:

Código SQL [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE ULTIMO_RECIBO (
    anyo varchar(2))
returns (
    ultimo integer)
as
begin
  /* Procedure Text */
  SELECT max(NUMERO) FROM RECIBOS where ANYO = :anyo
  INTO :ultimo;
  suspend;
end^

SET TERM ; ^

GRANT EXECUTE ON PROCEDURE ULTIMO_RECIBO TO SYSDBA;

Y no vas a recibir el error que mencionas...


Saludos...

[[Lepe]]

No quería entrometerme en el hilo, pero ¡¡ ya estoy !!

Intuyo que el error viene porque el año son 4 dígitos. Tú quizás le pasas 2 dígitos al procedimiento almacenado, pero él quizás devuelva 4 letras y el procedimiento de salida sólo tenía 2 espacios.

Quizás estoy suponiendo mucho... no lo sé, entran en juego muchas variables y no está todo dicho:
- declaración de campos
- valores que tiene en la BBDD
- lo que se le pasa desde delphi
- lo que interpreta el SP (puede ser aquí la traducción de 2 dígitos a 4 para el campo numero)
- lo que devuelve
- etc.

Saludos

[[Luis M.]]

Hola.

Empezado por Lepe

No quería entrometerme en el hilo, pero ¡¡ ya estoy !!

Ni mucho menos Lepe, todo lo contrario, es un honor.
Te comento, el año son 2 dígitos, capturo solo los dos últimos.
Tengo algunos SP hechos como lo comentas en tú post y funcionan bien siempre y cuando no les pase parámetros; En el momento que le paso algún parámetro, tengo que implementarlo con EXECUTE STATEMENT, si no, no funcionan.
También comento que solo funciona con EXECUTE STATEMENT cuando hay
comandos como SUM,MAX, etc.
Este funciona perfectamente sín parámetros:

Código Delphi [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE ULTIMO_CARNET 
returns (
    ultimo varchar(10))
as
begin
  /* Procedure Text */
  select max(CODIGO) FROM CARNETS INTO :ultimo;
  suspend;
end^

SET TERM ; ^

GRANT SELECT ON CARNETS TO PROCEDURE ULTIMO_CARNET;

GRANT EXECUTE ON PROCEDURE ULTIMO_CARNET TO SYSDBA;

Espero haberme explicado bien

Un saludo.

[[maeyanes]]

Hola...

Vaya, eso si es muy raro. ¿Será que haces algo mal?

Yo hasta ahora no he tenido ningún tipo de problema haciendo procedimientos almacenados recibiendo y devolviendo parámetros.

De la forma en que te lo puse te debería funcionar sin problemas...


Saludos...

[[Al González]]

Intuyo que Luis se ve obligado a usar Execute Statement porque el parámetro Anyo llega con un par de comillas laterales como parte del valor en sí. Lo cual significaría que desde Delphi lo forma él de esa extraña manera.

[[Al González]]

Empezado por Luis M.

...Desde Delphi lo llamo así:

Código Delphi [-]
//--- Introduce último recibo ---
  SP.StoredProcName := 'ULTIMO_RECIBO';
  SP.Prepare;
  try
    SP.Params.ParamValues['ANYO'] := QuotedStr(RecibosANYO.AsString);
    SP.ExecProc;
    cText := IntToStr(SP.ParamByName('ULTIMO').AsInteger + 1);
    RecibosNUMERO.AsString := Copy('00000', 1, 5 - Length(cText)) + cText;
  finally
    SP.UnPrepare;
  end;

...

¡Ah, pues sí! De hecho ahí se las está metiendo.

[[Luis M.]]

Si le paso el parámetro sin el QuotedStr, no funciona, no me devuelve el valor requerido.
Cosa rara.

[[maeyanes]]

Hola...

Por que así como lo estás haciendo estás concatenando cadenas para poder hacer el Execute Statement; si lo haces de la forma en que te puse, no deberías tener problemas...



Saludos...

[[Al González]]

Empezado por Luis M.

Si le paso el parámetro sin el QuotedStr, no funciona, no me devuelve el valor requerido.
Cosa rara.

Eso es porque usas Execute Statement. Prueba como te dice maeyanes y sin emplear QuotedStr. Verás que te funciona como esperas.

[[Lepe]]

Pues ese tipo de fallo me parece los típicos que cometemos a altas horas de la noche o cuando estás muy agobiado. Modificas una cosa, no sale, ahora modificas otra.... hasta que todo "cuadra", eso sí, terminas sin saber cómo lo hiciste .

Saludos y me alegro que se aclarase el tema.

[[Luis M.]]

Empezado por Lepe

Pues ese tipo de fallo me parece los típicos que cometemos a altas horas de la noche o cuando estás muy agobiado. Modificas una cosa, no sale, ahora modificas otra.... hasta que todo "cuadra", eso sí, terminas sin saber cómo lo hiciste .

Saludos y me alegro que se aclarase el tema.

Me parece que tienes toda la razón