в оракле есть функция:newkart
return number is
idd number;
begin
select max(extract(year from d_reg)) into idd from pg.karta;
if idd = extract(year from sysdate) then
select max(r_n) into idd from pg.karta WHERE extract(year from d_reg)= extract(year from sysdate);
insert into pg.karta(r_n,d_reg) values (idd+1,sysdate);
else insert into pg.karta(r_n,d_reg) values (1,sysdate);
end if;
select ks.currval into idd from dual;
return idd;
end;

как ее в фоксе запустить и получить результат?
пробовал так:
?SQLEXEC(t,'declare k number;begin k:=newkart end;')
?SQLEXEC(t,'declare k number;begin k:=newkart;return k; end;')
?SQLEXEC(t,'var k number;exec :k:=newkart;')
?SQLEXEC(t,'exec :k:=newkart;')
?SQLEXEC(t,'exec @k:=newkart;')
?SQLEXEC(t,'exec ?@k:=newkart;')
?SQLEXEC(t,'exec newkart;')
?SQLEXEC(t,'exec newkart();')

не работает,
в SQL+ работает:

SQL> exec :k:=newkart();

Ïðîöåäóðà PL/SQL óñïåøíî çàâåðøåíà.

SQL> print k

K
----------
2902
работает....

спасибо раскопал....