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