execute block
as
/* куча переменных в которые сохраняю выводы селектов*/
declare variable USL FDB$INT;
/* тут я нахожу старый ид, пока по одному клиенту*/
begin
  for select distinct CUSTOMERUTILITIES.ID
      from CUSTOMERUTILITIES
      join CUSTOMERUTILITIES_HISTORY on CUSTOMERUTILITIES.ID = CUSTOMERUTILITIES_HISTORY.CUSTOMERUTILITIES_ID
      where CUSTOMERUTILITIES_HISTORY.SERVICEPROVIDER_ID = 3 and
            CUSTOMERUTILITIES_HISTORY.IS_DISABLED = 0 and
            CUSTOMERUTILITIES.CUSTOMER_ID = 1030211
      into :OLD_CUSTOMERUTILITIES_ID

/* выбираю записи по старому ид, смотрю значение генератора, записываю его, потом вставляю записи(в триггере BI значение генератора увеличивается на один, если его не подаём, что я и делаю в инсерте.)*/
 do
  begin
    select CUSTOMERUTILITIES.CUSTOMER_ID, CUSTOMERUTILITIES.PUBLICUTILITIES_ID,
           CUSTOMERUTILITIES.DEPENDS_ON_CUSTOMERUTILITIES_ID
    from CUSTOMERUTILITIES
    where CUSTOMERUTILITIES.ID = :OLD_CUSTOMERUTILITIES_ID
    into :CLIENT_ID, :USL, :ZAVISIT;

    select gen_id(CUSTOMERUTILITIES_ID_GEN, 0)
    from RDB$DATABASE
    into :NEW_CUSTOMERUTILITIES_ID;

    insert into CUSTOMERUTILITIES (CUSTOMERUTILITIES.SUPPLIER_ID, CUSTOMERUTILITIES.CUSTOMER_ID,
                                   CUSTOMERUTILITIES.PUBLICUTILITIES_ID,
                                   CUSTOMERUTILITIES.DEPENDS_ON_CUSTOMERUTILITIES_ID)
    values (4, :CLIENT_ID, :USL, :ZAVISIT);

/* Дальше мне нужно найти записи со старым ИД и скопировать их в таблицу с новым ИД, но т.к. запись не появляется в бд до коммита, то мне выдаёт что нет такой записи с ид которой ты пытаешься вставить. вот.*/
begin
      for select ...
          from CUSTOMERUTILITIES_HISTORY
          where CUSTOMERUTILITIES_HISTORY.CUSTOMERUTILITIES_ID = :OLD_CUSTOMERUTILITIES_ID
          into :START_PERIOD_USL, :END_PERIOD_USL, :NORMA

      do
      begin
        insert into CUSTOMERUTILITIES_HISTORY (CUSTOMERUTILITIES_HISTORY.CUSTOMERUTILITIES_ID)
        values (:NEW_CUSTOMERUTILITIES_ID);

declare old_customerutilities_id integer;

for select
a.z
from a
join b on a.z = b.z
where b.y = x
into :old_customerutilities_id
begin
end

execute block as
declare old_customerutilities_id integer;
for select customerutilities.id from customerutilities into :old_customerutilities_id
do
begin
suspend;
end