Не проходит commit в процедуре
Добавлено: 23 дек 2008, 18:07
Вот процедура:
Insert не проходит, где поставить Commit, чтобы не ругался?
Код: Выделить всё
begin
select max(tk.TYEAR) from type_kart tk
into :YEAR_ID;
DT = 'now';
tek_year = extract(year from DT);
if (year_id <> tek_year) then
begin
insert into type_kart(id)
values(gen_id(gen_type_kart_id,1));
nomer = gen_id(gen_kart_nomer_vhod, -gen_id(gen_kart_nomer_vhod,1))+1;
end
else
begin
nomer = gen_id(gen_kart_nomer_vhod,1);
end
suspend;
end