Procedure

[ozegarra]

Hola, estoy tratando de crear un store procedure que me devuelva varios registros pero no se como.
Favor alguien me pueda ayudar.
Estoy usando "Sql Manager 2005 lite for InterBase/FireBird"
Esto es lo que tengo y me da un error.

Muchas gracias.
Oscar

Código SQL [-]
 
CREATE PROCEDURE VER_ALMACENES_X_PLANTA(
  PLANTA CHAR(2))
RETURNS(
  CODIGO CHAR(2),
  DESCRIPCION VARCHAR(100))
AS
begin
    for select a.ALM_CODIGO, b.ALM_DESCRIPCION
    from planta_almacenes a, almacenes b
    where a.PLAN_CODIGO = :Planta
    and a.ALM_CODIGO = b.ALM_CODIGO
    into :Codigo, escripcion;
    do Suspend;
end;

[RolphyReyes]

Saludos.

Prueba a utilizar las etiquetas para que tu codigo se vea mejor.

Lo que te hace falta es BEGIN END despues del DO y el SUSPEND dentro del bloque anterior.

Hasta luego.

[ozegarra]

Gracias RolphyReyes por la respuesta pero la verdad que no entendi que me quisiste decir.

La verdad soy nuevo en Delphi y FireBird y lo poco que se es lo que encuentro en internet.

[RolphyReyes]

Saludos.

Cambie un poco tu sentencia y a esto es que me refiero

Código SQL [-]
FOR SELECT A.ALM_CODIGO, B.ALM_DESCRIPCION
FROM PLANTA_ALMACENES A
INNER JOIN ALMACENES B ON A.ALM_CODIGO = B.ALM_CODIGO
WHERE A.PLAN_CODIGO = :PLANTA
INTO :CODIGO, ESCRIPCION
DO
BEGIN
  SUSPEND;
END;

Hasta luego.

[ozegarra]

gracias por el intento pero tampoco funciona. Sigue saliendo el mismo error. Lo raro es que antes que le ponga el for...do no salio error al compilar, solo salia error al compilar por querer mostrar multiples filas.

Si alguien sabes que puedo estar haciendo mal, por favor ayudenme, sino voy a tener que renunciar al trabajo.
:_(

Saludos y Gracias
Oscar

[ozegarra]

soy un vurro, gracias rony, el ultimo ";" no iba por eso el error.

Gracias.
Oscar