Subject TIB_Query.clear error
Author pentrutine77
I'm usings this stored procedure:
CREATE PROCEDURE PF_IN_FISA_1 (
NUMAR_FISA INTEGER)
RETURNS (
ID INTEGER,
DENUMIRE VARCHAR (50),
CANTITATE FLOAT,
DENUMIRE_GEST VARCHAR (50),
GESTIUNE_PRIM INTEGER,
CULOARE INTEGER)
AS
declare variable DEN_PROD VARCHAR(50);
declare variable P_ID_OLD integer;
declare variable R_ID_OLD INTEGER;
declare VARIABLE I INTEGER;
declare variable ID_PROD integer;
declare variable den varchar(50);
declare variable CANT FLOAT;
declare variable GEST_PRIM integer;
declare variable DEN_GEST varchar(50);
declare variable id_ret integer;
declare variable den_prod_old varchar(50);
declare variable den_ret varchar(50);
declare variable gest_prim_old integer;
declare variablE den_gest_old varchar(50);
BEGIN
P_ID_OLD=-1;
R_ID_OLD=-1;
FOR
select produs.id_produs,produs.denumire,sum(cantitate),

gestiune_PRIM,gestiune.denumire,fise_cantar.ID_reteta,reteta.denumire
from fise_cantar
join capitol on fise_cantar.id_capitol=capitol.id_capitol
join produs on produs.id_produs=fise_cantar.id_produs
join gestiune on gestiune.id_gestiune=gestiune_prim
join reteta on reteta.id_reteta=fise_cantar.id_reteta
where numar_fisa=:NUMAR_FISA and gestiune_prim<>gestiune_pred and
tip=2
group by produs.id_produs,produs.denumire,gestiune_PRIM,
gestiune.denumire,fise_cantar.id_reteta,reteta.denumire
order by produs.id_produs,fise_cantar.id_reteta
into :id_prod,:den_prod,:CANTITATE,:GESTIUNE_PRIM,
:DENUMIRE_GEST,:ID,:DENUMIRE
do
BEGIN
DENUMIRE='- '||DENUMIRE;
den=DENUMIRE;
cant=CANTITATE;
gest_prim=GESTIUNE_PRIM;
den_gest=DENUMIRE_GEST;
id_ret=ID;
if (p_id_old!=id_prod) THEN
BEGIN
select id_produs,sum(cantitate)
from fise_cantar
join capitol on fise_cantar.id_capitol=capitol.id_capitol
where numar_fisa=:NUMAR_FISA AND tip=2 and
gestiune_prim<>gestiune_pred AND ID_PRODUS=:id_prod
group by id_produs
into :ID,:CANTITATE;
DENUMIRE=den_prod;
DENUMIRE_GEST='TOTAL';
CULOARE=1;
suspend;
DENUMIRE=den;
CANTITATE=cant;
GESTIUNE_PRIM=gest_prim;
DENUMIRE_GEST=den_gest;
ID=id_ret;
CULOARE=2;
end
P_ID_OLD=id_prod;
R_ID_OLD=ID;
den_prod_old=den_prod;
gest_prim_old=GESTIUNE_PRIM;
den_gest_old=DENUMIRE_GEST;
suspend;
end
END
Every time trying to clear the query with query.clear i get the
following message:
"FieldName: culoare not found'

In rest the query work just fine.