И пиши запрос на здоровье.
вот, блин, помощники Хотелось халявы...
Задача не универсальная, много нюансов может быть.
Вот заготовка, может поможет чем:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
create or alter procedure REFRESH_GENERATORS
returns (
MSG varchar(255))
as
declare variable BIGTMP bigint;
declare variable TMP integer;
declare variable SOURCE varchar(31);
declare variable GENERATOR_NAME varchar(31);
declare variable KODS varchar(4096) = '';
begin
for select j.rdb$relation_name, trim(g.rdb$generator_name) from rdb$relations j join rdb$generators g on
'GEN_' || trim(j.rdb$relation_name) || '_ID' = g.rdb$generator_name
where j.rdb$system_flag = 0
into :source, :generator_name do
begin
kods = <<получение ключа>>(:source);
tmp = null;
execute statement 'select max(' || kods || '), gen_id(' || generator_name || ', 0) from ' || source || ' where ' || kods || '<2147483647' into :tmp, :bigtmp;
if (tmp is null) then tmp = 0;
if (tmp <> bigtmp) then
begin
execute statement 'select gen_id(' || generator_name || ', ' || tmp || '- gen_id(' || generator_name || ', 0)) from rdb$database' into :bigtmp;
MSG = 'Изменен генератор для таблицы ' || source;
suspend;
end
end
if (msg is null) then
begin
MSG = 'Ok';
suspend;
end
end
Где <<получение ключа>> - процедура получения ключа. Оригинал содержит вызовы UDF, поэтому выложить не могу. Но смысл - получение первичного ключа или юника и если он не составной и целочисленный, то обновить генератор.
