Set GENERATOR em Execute Block
Firebird

Este comando atualiza o generator de uma tabela com base no valor máximo de sua ID.

execute block
as
 declare variable i integer;
 declare variable g integer;
begin
 select max(t.ID) from TABELA t into :i;
 g = GEN_ID(GEN_CONTRATO_ITENS_ID, 0);   --retorna o valor atual
 g = GEN_ID(GEN_CONTRATO_ITENS_ID, -:g); --zera o generator
 g = GEN_ID(GEN_CONTRATO_ITENS_ID, :i);  --seta o valor atual com o max(id)
end;