begin
 v_time1 = iif(i_time_1 is null, '01.01.2000', i_time_1);
 v_time2 = iif(i_time_2 is null, cast(dateadd(day, 1, current_date) as timestamp_info), i_time_2);

 for select et.device_id, sum(coalesce(et.dend - et.dbegin, 0)), count(et.event_id)
       from events_tbl et join users_ref ur using(user_id) join get_shop_childs(:i_dep_id) ds on ur.dep_id = ds.o_dep_id
      where et.dbegin >= :v_time1
        and et.dbegin < :v_time2
      group by 1
       into :v_dev_id, :o_sum_raw_time, :o_count_events
 do
 begin
  o_dev_id = null;
  with recursive dev_table as (
       select dev_id, parent_dev_id, dev_type, dev_name
         from devices_ref
        where dev_id = :v_dev_id
       union all
       select dr.dev_id, dr.parent_dev_id, dr.dev_type, dr.dev_name
         from devices_ref dr join dev_table dt on dr.dev_id = dt.parent_dev_id
  )
  select d.dev_id, trim(decode(d.dev_type, 1, '', dtr.dev_type_name) || ' ' || d.dev_name)
    from dev_table d join dev_type_ref dtr on d.dev_type = dtr.dev_type_id
   where parent_dev_id = :i_device_id
    into :o_dev_id, :o_dev_name;

  if (o_dev_id is not null) then
   suspend;
 end
end

select o_dev_id, o_dev_name, sum(o_sum_raw_time), sum(o_count_events)
from get_device_summary(входные значения ограничения)
group by 1, 2

begin
 if (i_time_1 is null) then
  v_time_1 = '01.01.2000';
 else
  v_time_1 = i_time_1;

 if (i_time_2 is null) then
  v_time_2 = dateadd(day, 1, current_date);
 else
  v_time_2 = i_time_2;

 for select zr.zip_id, zr.zip_name, zr.sap_n, uz.zip_sum
       from zip_ref zr, (select z.zip_id, sum(z.zip_count) zip_sum
                           from use_zip z join events_tbl et using(event_id)
                                join users_ref ur using(user_id) join get_shop_childs(:i_dep_id) ds
                                on ur.dep_id = ds.o_dep_id
                                join (with recursive dev_table as (
                                            select dev_id
                                              from devices_ref
                                             where parent_dev_id = :o_dev_id
                                            union all
                                            select dr1.dev_id
                                             from devices_ref dr1 join dev_table dt on dr1.parent_dev_id = dt.dev_id)
                                      select dev_id
                                        from dev_table) gde on et.device_id = gde.o_dev_elem_id
                                       where et.dbegin >= :v_time_1 and et.dbegin < :v_time_2
                         group by 1) uz
      where zr.zip_id = uz.zip_id
       into :o_zip_id, :o_zip_name, :o_sap_no, :o_count
 do
  suspend;
end

unsuccessful metadata update.
STORE RDB$RELATION_FIELDS failed.
attempt to store duplicate value (visible to active transactions) in unique index "RDB$INDEX_15".
Problematic key value is ("RDB$FIELD_NAME" = 'ID', "RDB$RELATION_NAME" = 'COMMON_RESUME_TABLE').