Как получить значение пользовательской функции в ADOQuery?

sgg
Дата: 13.11.2008 10:47:24
Есть функция Возвращаемое значение Number. Как получить ее значение в программе через ADoQuery?
Создаю функцию:
PROCEDURE Check_val
( fact6 in char,
fact8 in char,
fact10 in char,
fact30 in char,
fact31 in char,
kodpodr in char,
dper in date,
dcreate in date,
res IN OUT number)
IS
type f is ref cursor;
f6 f;
f8 f;
f10 f;
f30 f;
f31 f;
BEGIN
open f6 for
select g_fact6
from ggraf
where g_kodpodr = kodpodr
and g_fact6=fact6;
open f8 for
select g_fact8
from ggraf
where g_kodpodr = kodpodr
and g_fact8=fact8;
open f10 for
select g_fact10
from ggraf
where g_kodpodr = kodpodr
and g_fact10=fact10;
open f30 for
select g_fact6
from ggraf
where g_kodpodr = kodpodr
and g_fact30=fact30;
open f31 for
select g_fact6
from ggraf
where g_kodpodr = kodpodr
and g_fact31=fact31;

if f6%found then close f6;res:= 6;
elsif f8%found then close f8;res:=8;
elsif f10%found then close f10;res:=10;
elsif f30%found then close f30;res:=30;
elsif f31%found then close f31;res:=31;
else res:=0;
end if;
END;

потом в программе
ADOQuery.Parameters.CreateParameter('res',ftInteger,pdOutPut,0,0);
ADOQuery.SQL.Text:='Begin check_VAL(''1'',''1'',''1'',''1'',''1'',''2'',''01.01.01'',''01.01.01'', :res_par); end;';
ADOQuery.Open;
выдает ошибку " Текущий проводник не поддерживает возврат нескольких наборов записей в результатt одной операции"