problema con parametros de un stored procedure

[ritamarkarla]

hola, estoy utilizando delphi7 y componentes zeos, mi problema es que tengo el componente tzstoredproc para conectarme a un stored procedure y le paso los parametros, pero cuando le digo active me dice null program pointer encountered procedure "rack" expects parameter '@grup' which not supllied, no se que me pasa, con otros stored procedure que tambien tienen parametros no tengo problemas, no se que pudiera pasar

[Casimiro Notevi]

Pon aquí el código fuente del prodicimiento almacenado, el código fuente de tu programa delphi, etc.
No somos adivinos ;)

[ritamarkarla]

Este es el codigo del stored procedure, este stored procedure lo usa otro programa y yo quiero utilizarlo tambien, con los otros stored procedure que usa el mismo porgrama no tengo problemas, pero este no se deja ni activar, en delphi no tengo ningun codigo puesto todavia, lo unico que estoy intentando hacer es a la propiedad active ponerle true y me sale el error, yo le puse valores a los parametros en el object inspector, pero aun asi me sigue saliendo el error
CREATE PROCEDURE Rack_Habitaciones @all int,
@filter varchar(5000),
@orden int,
@grup int,
@lprecio bit


/* Procedimiento que devuelve un cursor con la informacion requerida para el Rack de habitaciones segun parametro
@all; @all = 1 : todas las habitaciones; <> 1 solo las habit ocupadas @orden: = 1 habitacion; = 2 fecha entrada; 3 fecha salida
@grup = 1 indica si agrupo por grupo(piso) */

AS

begin
SET NOCOUNT ON

declare @id_face int,@precio money, @precio_mb money,@fecha datetime

Select face.id_face,
habi.habitacion,
habi.limpia,
nombre = LTRim( COALESCE(facn.nombre,'') ),
facn.id_naci,
nacionalidad = COALESCE(naci.nacionalidad,''),
face.id_cont,
cont.contrato,
agen.directo,
uhab.uso_hab,
face.id_ralo,
ralo.cod_ralo,
adultos = COALESCE(adult.adultos,0),
ninos = COALESCE(nin.ninos,0),
face.fecha_ent,
face.fecha_sal,
face.vip,
face.sin_equip,
precio = Convert(money, 0),
Mon_Aloj = sicla.cod_mone,
face.id_grup,
desc_grup = COALESCE(grup.desc_grup,''),
piso = COALESCE(habi.grupo,''),
face.id_vuel,
vuelo = COALESCE(vuel.vuelo, ''),
hora = COALESCE(vuel.hora, ''),
referencia = COALESCE(face.referencia, ''),
face.credito,
face.id_rese,
face.id_room,
facn.fecha_nac,
face.tar_cred
Into #temp2
From Hoteface face
Inner Join hotehabi habi on face.id_habi = habi.id_habi
Inner Join Hotecont cont on face.id_cont = cont.id_cont
Inner Join Hoteagen agen on cont.id_agen = agen.id_agen
Inner Join Hoteuhab uhab on face.id_uhab = uhab.id_uhab
Inner Join Hoteralo ralo on face.id_ralo = ralo.id_ralo
Inner Join Siclamon sicla on face.id_mone = sicla.id_mone
Left Join Hotegrup grup on face.id_grup = grup.id_grup
Left Join Hotevuel vuel on face.id_vuel = vuel.id_vuel
Left Join ( Select id_face,Count(*) adultos From hotefacn
Where adulto <> 0 Group By id_face) adult
on face.id_face = adult.id_face
Left Join ( Select id_face,Count(*) ninos From hotefacn
Where adulto = 0 Group By id_face ) nin
on face.id_face = nin.id_face
Left Join ( Select distinct id_face, id_facn = Min(id_facn) From Hotefacn Group By id_face ) facn1
on face.id_face = facn1.id_face
Left Join Hotefacn facn on facn1.id_facn = facn.id_facn
Left Join Hotenaci naci on facn.id_naci = naci.id_naci


if @lprecio = 1
begin
/* Calculo el precio de aloj y los actualizo en la tabla temporal */
DECLARE c_rack CURSOR FOR Select id_face From #temp2 FOR READ ONLY
open c_rack
fetch next from c_rack into @id_face
while @@fetch_status = 0
begin
Select @precio = 0
/* Calcula precio de aloj en la moneda de aloj y en la moneda base */
Execute Calc_Precio_Aloj_Habit @id_face, @precio output, @precio_mb output
Update #temp2 Set precio = @precio Where id_face = @id_face
fetch next from c_rack into @id_face
end
deallocate c_rack
end

if @all = 1 /* Inserto las que no estan ocupadas */
begin
Select @fecha = fecha_hotelera From Hotetabl
Insert Into #temp2
Select
0,
habi.habitacion,
habi.limpia,
nombre = Case When ford.id_habi is not null then 'Bloqueada' else '' end,
id_naci = NULL,
nacionalidad = '',
id_cont = 0,
contrato ='',
0,
thab.tipo_hab,
0,
'',
adultos = 0,
ninos = 0,
GETDATE(),
GETDATE(),
0,
0,
0,
'',
'',
'',
piso = COALESCE(habi.grupo,''),
'',
'',
'',
'',
0,
0,
0,
NULL
From Hotehabi habi
Left Join ( Select id_habi From Hoteford where DATEDIFF(day, fecha_desde, @fecha ) >= 0 and
DATEDIFF(day, @fecha, fecha_hasta ) > 0
) ford on habi.id_habi = ford.id_habi
Inner Join Hotethab thab on habi.id_thab = thab.id_thab
Where habi.eliminado = 0 and habi.id_habi not in ( select id_habi from hoteface )
end

if @orden = 2
if @grup = 1
Execute ('Select * from #temp2 ' + @filter + ' order by piso,fecha_ent')
else
Execute ('Select * from #temp2 ' + @filter + ' order by fecha_ent')
else
if @orden = 3
if @grup = 1
EXECUTE ('Select * From #temp2 ' + @filter + ' order by piso,fecha_sal' )
else
EXECUTE('Select * From #temp2 ' + @filter + ' order by fecha_sal ' )
else
if @grup = 1
EXECUTE ('Select * From #temp2 ' + @filter + ' order by piso,Rtrim(Ltrim(Convert(char(10),Len(habitacion)))),habitacion')
else
EXECUTE('Select * From #temp2 ' + @filter + ' Order by Rtrim(Ltrim(Convert(char(10),Len(habitacion)))),habitacion')
end
GO