3.0.5.33141 валится на сложной процедуре

Есть сложная процедура. При ее создании служба firebird валится без сообщений в firebird.log

IBExpert дает такую ошибку:

Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements. Error reading data from the connection. Connection will be closed immediately
Проверял на 3.0.4 и на последнем снапшоте. Win10
+ Таблица
+ Процедура
create or alter procedure CALC_ITEM_SUMMA (
    ID_FIRMA integer,
    D1 date,
    D2 date,
    MAND_CAT integer,
    BL_CAT integer,
    ID_NPRICE integer = null,
    OST integer = 1,
    MAND_CAT2 integer = null)
returns (
    ID_SESSION integer)
AS
declare variable vid1 int = 1; -- Выпуск
declare variable vid2 int = 2; -- Расход сырья по изделиям (рецепт)
declare variable vid3 int = 3; -- Закупка ГИ
declare variable vid4 int = 4; -- Переработка в сырье
declare variable vid5 int = 5; -- Расход по документам
declare variable vid6 int = 6; -- Переработка приход
declare variable vid7 int = 7; -- Переработка расход
declare variable vid8 int = 8; -- Остаток на начало
declare variable vid9 int = 9; -- Свернутые Выпуск + остатки + расход по изделию
declare variable vid10 int = 10; -- Реализация
declare variable vid11 int = 11; -- Н/р по реализации
declare variable vid12 int = 12; -- Остаток на конец
declare variable vid99 int = 99; -- Накладные расходы
declare variable vid20 int = 20; -- Готовые расчеты
declare variable vid22 int = 22; -- Прочие движения по ГИ (сведенный)
declare variable vid23 int = 23; -- Промежуточные расчеты (расчет расхода сырья)
declare variable vid24 int = 24; -- Промежуточные расчеты (расчет переработки)
declare variable vid25 int = 25; -- Промежуточные расчеты (перераспределение переработки)
declare variable id_item int;
declare variable items numeric(18,3);
declare variable summa numeric(18,2);
declare variable items0 numeric(18,3);
declare variable summa0 numeric(18,2);
declare variable summa1 numeric(18,2);
declare variable items1 numeric(18,3);
declare variable items2 numeric(18,3);
declare variable summa2 numeric(18,2);
declare variable items3 numeric(18,3);
declare variable items4 numeric(18,3);
declare variable items5 numeric(18,3);
declare variable id0 int;
declare variable id1 int;
declare variable k int;
declare variable n int;
declare variable type_v int;
begin
  -- Получаем данные из документов
--select id_session from calc_item_summa_save(:id_firma, :d1, :d2, :mand_cat, :bl_cat, :id_nprice, :ost, :mand_cat2)
--into id_session;

  -- распределение прочего расхода сырья
  for select id_item, n1, n2, id from session_edit
      where id_session = :id_session and vid = :vid5
  into id_item, items0, summa0, id0 do
  begin
    items1 = 0; summa1 = 0;
    select sum(n1+n4), sum(n2) from session_edit
    where id_session = :id_session and vid = :vid2 and id_item = :id_item and i5 = 0
    into items1, summa1;

    if (items1 <> 0) then
    begin
      for select n1+n4, n2, id from session_edit
          where id_session = :id_session and vid = :vid2 and id_item = :id_item and i5 = 0
          order by 2, 1
      into items, summa, id1 do
      begin
        items2 = 1e0 * items0 * items / items1;
        if (items0 <> 0) then
          summa2 = 1e0 * items2 * summa0 / items0;
        else
          summa2 = coalesce(1e0 * summa0 * summa / nullif(summa1, 0), 0);

        update session_edit set
          n5 = :items2,
          n6 = :summa2
        where id = :id1;
      end

      items2 = 0; summa2 = 0;
      select sum(n5), sum(n6) from session_edit
      where id_session = :id_session and vid = :vid2 and id_item = :id_item and i5 = 0
      into items2, summa2;

      if (items2 <> items0 or summa2 <> summa0) then
      update session_edit set
        n5 = n5 + :items0 - :items2,
        n6 = n6 + :summa0 - :summa2
      where id = :id1;

      update session_edit set
        i4 = 1
      where id = :id0;
    end
  end

  -- распределение стоимости расхода сырья вне рецептов
  for select sum(n2) from session_edit
      where id_session = :id_session and vid = :vid5 and i4 is null
      having sum(n2) <> 0
  into summa0 do
  begin
    summa1 = 0;
    select sum(n2+n6) from session_edit
    where id_session = :id_session and vid = :vid2
    into summa1;

    if (summa1 <> 0) then
    update session_edit set
      n7 = cast(1e0*(n2+n6)*:summa0/:summa1 as numeric(12,2))
    where id_session = :id_session and vid = :vid2;

    summa2 = 0;
    select sum(n7) from session_edit where id_session = :id_session and vid = :vid2
    into summa2;

    if (summa2 <> summa0) then
    update session_edit set
      n7 = n7 + :summa0 - :summa2
    where id_session = :id_session and vid = :vid2
    order by n2 desc
    rows 1;

    update session_edit set
      i4 = 1
    where id_session = :id_session and i2 = :vid5;
  end

  -- Списываем остаток из расхода изделий
  for select id, id_item, n1, n2 from session_edit s
      where id_session = :id_session and vid = :vid8 and n1 > 0
  into id0, id_item, items0, summa0 do
  begin
    items2 = 0;
    select sum(n1) from session_edit
    where id_session = :id_session and vid = :vid2 and id_item = :id_item
    into items2;

    -- Убираем из выпуска
    items1 = minvalue(items0, items2);
    if (items1 > 0) then
    begin
      summa1 = iif(items1 = items0, summa0, 1e0*items1*summa0/items0);

      for select id, n1 from session_edit
          where id_session = :id_session and vid = :vid2 and id_item = :id_item
          order by 2
      into id1, items do
      begin
        items = 1e0*items1*items/items2;
        summa = 1e0*items*summa0/items0;

        update session_edit set
          n11 = :items,
          n12 = :summa,
          n1 = n1 - :items
        where id = :id1;
      end

      select sum(n11), sum(n12) from session_edit
      where id_session = :id_session and vid = :vid2 and id_item = :id_item
      into items, summa;

      if (items <> items1 or summa <> summa1) then
      update session_edit set
        n11 = n11 + :items1 - :items,
        n12 = n12 + :summa1 - :summa,
        n1 = n1 - :items1 + :items
      where id = :id1;

      update session_edit set
        n3 = :items1,
        n4 = :summa1
      where id = :id0;

      items0 = items0 - items1;
      summa0 = summa0 - summa1;
    end

    if (items0 <> 0) then
    begin
      items2 = 0;
      select sum(n1) from session_edit
      where id_session = :id_session and vid = :vid7 and id_item = :id_item
      into items2;

      -- Убираем из переработки
      items1 = minvalue(items0, items2);
      if (items1 > 0) then
      begin
        summa1 = iif(items1 = items0, summa0, 1e0*items1*summa0/items0);

        for select id, n1 from session_edit
            where id_session = :id_session and vid = :vid7 and id_item = :id_item
            order by 2
        into id1, items do
        begin
          items = 1e0*items1*items/items2;
          summa = 1e0*items*summa0/items0;

          update session_edit set
            n11 = :items,
            n12 = :summa,
            n1 = n1 - :items
          where id = :id1;
        end
  
        select sum(n11), sum(n12) from session_edit
        where id_session = :id_session and vid = :vid7 and id_item = :id_item
        into items, summa;
  
        if (items <> items1 or summa <> summa1) then
        update session_edit set
          n11 = n11 + :items1 - :items,
          n12 = n12 + :summa1 - :summa,
          n1 = n1 - :items1 + :items
        where id = :id1;
  
        update session_edit set
          n5 = :items1,
          n6 = :summa1
        where id = :id0;
  
        items0 = items0 - items1;
        summa0 = summa0 - summa1;
      end
    end
  end

  -- Списываем закупку из расхода изделий
  for select id, id_item, n1, n2 from session_edit s
      where id_session = :id_session and vid = :vid3 and n1 > 0
  into id0, id_item, items0, summa0 do
  begin
    items2 = 0;
    select sum(n1) from session_edit
    where id_session = :id_session and vid = :vid2 and id_item = :id_item
    into items2;

    -- Убираем из выпуска
    items1 = minvalue(items0, items2);
    if (items1 > 0) then
    begin
      summa1 = iif(items1 = items0, summa0, 1e0*items1*summa0/items0);
  
      for select id, n1 from session_edit
          where id_session = :id_session and vid = :vid2 and id_item = :id_item
          order by 2
      into id1, items do
      begin
        items = 1e0*items1*items/items2;
        summa = 1e0*items*summa0/items0;

        update session_edit set
          n13 = :items,
          n14 = :summa,
          n1 = n1 - :items
        where id = :id1;
      end

      select sum(n13), sum(n14) from session_edit
      where id_session = :id_session and vid = :vid2 and id_item = :id_item
      into items, summa;

      if (items <> items1 or summa <> summa1) then
      update session_edit set
        n13 = n13 + :items1 - :items,
        n14 = n14 + :summa1 - :summa,
        n1 = n1 - :items1 + :items
      where id = :id1;

      update session_edit set
        n3 = :items1,
        n4 = :summa1
      where id = :id0;

      items0 = items0 - items1;
      summa0 = summa0 - summa1;
    end

    if (items0 <> 0) then
    begin
      items2 = 0;
      select sum(n1) from session_edit
      where id_session = :id_session and vid = :vid7 and id_item = :id_item
      into items2;

      -- Убираем из переработки
      items1 = minvalue(items0, items2);
      if (items1 > 0) then
      begin
        summa1 = iif(items1 = items0, summa0, 1e0*items1*summa0/items0);
    
        for select id, n1 from session_edit
            where id_session = :id_session and vid = :vid7 and id_item = :id_item
            order by 2
        into id1, items do
        begin
          items = 1e0*items1*items/items2;
          summa = 1e0*items*summa0/items0;
  
          update session_edit set
            n13 = :items,
            n14 = :summa,
            n1 = n1 - :items
          where id = :id1;
        end
  
        select sum(n13), sum(n14) from session_edit
        where id_session = :id_session and vid = :vid7 and id_item = :id_item
        into items, summa;
  
        if (items <> items1 or summa <> summa1) then
        update session_edit set
          n13 = n13 + :items1 - :items,
          n14 = n14 + :summa1 - :summa,
          n1 = n1 - :items1 + :items
        where id = :id1;
  
        update session_edit set
          n5 = :items1,
          n6 = :summa1
        where id = :id0;
  
        items0 = items0 - items1;
        summa0 = summa0 - summa1;
      end
    end
  end

  insert into session_edit(id_session, vid, id_item, n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, n16, n17, n18, n19)
  select :id_session, :vid9, id_item, sum(items), sum(summa), sum(summa_inv), sum(summa_in), sum(items_in), sum(items_b),
         sum(summa_b), sum(items_prih), sum(summa_prih), sum(items_p_in), sum(items_t), sum(summa_t), max(price_b), sum(items_end)
  from (select id_item,
               sum(n1+n4+n5) items,
               sum(n2+n6+n7) summa,
               sum(n6+n7) summa_inv,
               null ITEMS_in,
               null summa_in,
               0 items_b,
               0 summa_b,
               0 items_prih,
               0 summa_prih,
               0 items_p_in,
               0 items_t,
               0 summa_t,
               0 price_b,
               0 items_end
        from session_edit
        where id_session = :id_session and vid = :vid2
        group by 1
          union all
        select id_item, 0, 0, 0, n1, n2, 0, 0, 0, 0, 0, 0, 0, 0, 0 from session_edit where id_session = :id_session and vid = :vid1  -- приход ГИ
          union all
        select id_item, 0, 0, 0, 0, 0, 0, 0, n1, n2, 0, 0, 0, 0, 0 from session_edit where id_session = :id_session and vid = :vid3 -- закупка ГИ
          union all
        select id_item, 0, 0, 0, 0, 0, n1, n2, 0, 0, 0, 0, 0, n3, 0 from session_edit where id_session = :id_session and vid = :vid8 -- остаток ГИ
          union all
        select id_item, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, n1 from session_edit where id_session = :id_session and vid = :vid12 -- остаток ГИ (на конец)
          union all
        select id_item, 0, 0, 0, 0, 0, 0, 0, 0, 0, n1, 0, 0, 0, 0 from session_edit where id_session = :id_session and vid = :vid6  -- переработка приход ГИ
          union all
        select id_item, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, n1, n2, 0, 0 from session_edit where id_session = :id_session and vid = :vid4
          union all
        select distinct id_item, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 from session_edit where id_session = :id_session and vid in (:vid7, :vid10, :vid22))
  group by id_item;

  insert into session_edit(id_session, vid, id_item, n1, n2, n3, n5)
  with recursive
  -- Расход по поличеству сырья на изделие
  rashod as (
    select id_item,
           i1,
           sum(n1+n4+n5) items
    from session_edit
    where id_session = :id_session and vid = :vid2
    group by 1, 2),
  -- Расход сырья по изделиям + остатки
  prices0 as (
    select id_item,
           n1 items,
           n2 summa,
           n3 summa_inv,
           n5 items_in
    from session_edit
    where id_session = :id_session and vid = :vid9),
  prices as (
    select id_item, items, summa, summa_inv, items_in from prices0
      union all
    select p0.id_item,
           p0.items_in,
           1e0 * r.items * p.summa / nullif(p.items, 0),
           1e0 * r.items * p.summa_inv / nullif(p.items, 0),
           p0.items_in
    from prices0 p0
    join rashod r on r.i1 = p0.id_item
    join prices p on p.id_item = r.id_item),
  total as (
    select id_item,
           min(items_in) items_in,
           sum(summa) summa,
           sum(summa_inv) summa_inv,
           min(items) items
    from prices
    group by id_item
    having min(items_in) is not null)
  select :id_session, :vid23,
         id_item,
         items_in,
         summa,
         summa_inv,
         items
  from total;

  insert into session_edit(id_session, vid, id_item, n1, n2, n3, n5, i1, i2)
  with recursive
  -- Расход по поличеству сырья на изделие
  rashod as (
    select id_item,
           i1,
           sum(n1+n4+n5) items,
           sum(n11) items_b,
           sum(n13) items_prih
    from session_edit
    where id_session = :id_session and vid = :vid2
    group by 1, 2),
  -- Расход сырья по изделиям + остатки
  prices0 as (
    select s.id_item,
           s.n1 items_in,
           s.n2 summa,
           s.n3 summa_inv,
           s.n5 items,
           s9.n6 items_b,
           s9.n7 summa_b,
           s9.n8 items_prih,
           s9.n9 summa_prih,
           s9.n10 items_p_in,
           s9.n18 price_b
    from session_edit s
    join session_edit s9 on s9.id_session = s.id_session and s.id_item = s9.id_item and s9.vid = :vid9
--  join item i on i.id = s.id_item and i.group_id = 2
    where s.id_session = :id_session and s.vid = :vid23),
  prices as (
    select id_item, cast(null as int) i1, 0.0000 summa, 0.0000 summa_inv, items_b, summa_b, items_in, summa summa_in, summa_inv summa_inv_in, items_prih, summa_prih, 0.0000 items_r, 0.0000 summa_r, price_b from prices0
        union all
    select p0.id_item,
           p.id_item,
           1e0*r.items*p.summa_in/nullif(p.items_in, 0),
           1e0*r.items*p.summa_inv_in/nullif(p.items_in, 0),
           p0.items_b,
           p0.summa_b,
           0,
           0,
           0,
           p0.items_prih,
           p0.summa_prih,
           r.items_b + r.items_prih + r.items,
           coalesce(1e0*r.items_b * p.summa_b / nullif(p.items_b, 0), 0)+
           coalesce(1e0*r.items_prih * p.summa_prih / nullif(p.items_prih, 0), 0)+
           coalesce(1e0*r.items * p.summa_r / nullif(p.items_in, 0), 0),
           p0.price_b
    from prices0 p0
    join rashod r on r.i1 = p0.id_item
    join prices p on p.id_item = r.id_item),
  prices2 as (
    select id_item, items_in items, summa_in summa, summa_inv_in summa_inv, cast(summa_r as numeric(12,2)) summa_r, items_prih, summa_prih, items_b, summa_b, price_b, 1 vid from prices
      union all
    select i1, -items_r, -summa, -summa_inv, -cast(summa_r as numeric(12,2)), null, null, null, null, null, -1 from prices where i1 is not null),
  vipusk as (
    select id_item,
           sum(items) items,
           sum(summa) summa,
           sum(summa_inv) summa_inv,
           sum(summa_r) summa_r,
           coalesce(nullif(coalesce(sum(summa+summa_r)/nullif(sum(items), 0), 0), 0), max(price_b)) price_ceh,
           min(items_b) items_b,
           min(summa_b) summa_b,
           min(items_prih) items_prih,
           min(summa_prih) summa_prih
    from prices2 p
    group by 1),
  -- Расход по переработке
  rashod2 as (
    select id_item,
           i1,
           n1 items,
           n2 koef,
           n11 items_b,
           n13 items_prih
    from session_edit
    where id_session = :id_session and vid = :vid7),
  -- Увеличение себестоимости по переработке
  pererabotka as (
    select r.i1 id_item,
           r.id_item id_item2,
           min(p0.items_p_in) items,
           sum(1e0 * r.items * r.koef * v.summa /nullif(v.items, 0)) summa,
           sum(1e0 * r.items * r.koef * v.summa_inv / nullif(v.items, 0)) summa_inv,
           sum(r.items +r.items_b +  r.items_prih) items_r,
           cast(coalesce(sum(1e0 * r.items * r.koef * v.summa_r /nullif(v.items, 0)), 0)+
           coalesce(sum(1e0 * r.items_b * r.koef * v.summa_b /nullif(v.items_b, 0)), 0)+
           coalesce(sum(1e0 * r.items_prih * r.koef * v.summa_prih /nullif(v.items_prih, 0)), 0) +
           coalesce(sum(iif(v.items = 0, 1e0 * r.items * r.koef * v.price_ceh, 0)), 0) as numeric(12,2)) summa_r
    from rashod2 r
    join vipusk v on r.id_item = v.id_item
    left join prices0 p0 on p0.id_item = r.i1
    group by 1, 2),
  total as (
    select id_item, items, summa, summa_inv, summa_r, cast(null as int) id_item2, 0 vid
    from vipusk
      union all
    select id_item, items, summa, summa_inv, summa_r, id_item2, 1 vid
    from pererabotka
      union all
    select id_item2, -items_r, -summa, -summa_inv, -summa_r, id_item, 2 vid
    from pererabotka)
  select :id_session, :vid24,
         id_item,
         items n1,
         summa n2,
         summa_inv n3,
         summa_r n5,
         id_item2 i1,
         vid i2
  from total;

  insert into session_edit(id_session, vid, id_item, n1, n2, n3, n5, i1, i2)
  with
    total as (
      select id_item,
             max(iif(i2 = 1, n1, 0)) + sum(iif(i2 = 1, 0, n1)) items,
             sum(n2) summa,
             sum(n3) summa_inv,
             sum(n5) summa_r,
             '~'||cast(substring(list(distinct i1, '~') from 1 for 20000) as varchar(20000)) sid_item2
      from session_edit
      where id_session = :id_session and vid = :vid24
      group by 1),
    total1 as (
      select id_item, summa, summa_inv, summa_r,
             (select first 1 t.id_item from total t where t1.sid_item2 containing '~'||t.id_item||'~' and t.items <> 0 order by t.summa + t.summa_r desc) id_item2
      from total t1
      where items = 0 and (summa <> 0 or summa_inv <> 0 or summa_r <> 0)),
    total2 as (
      select id_item2 id_item, summa, summa_inv, summa_r from total1
      where id_item2 is not null
      union all
      select id_item, -summa, -summa_inv, -summa_r from total1
      where id_item2 is not null)
  select :id_session, :vid25,
         id_item,
         cast(null as numeric(12, 3)) items,
         summa,
         summa_inv n3,
         summa_r n5,
         cast(null as int) id_item2,
         3 i2
  from total2;

  insert into session_edit(id_session, vid, id_item, n1, n2, n3, n6, n7, n8, n9, n10, n11, n12, n13, n14)
  with
  total as (
    select s.id_item,
           max(iif(s.i2 = 1, s.n1, 0)) + sum(iif(s.i2 = 1, 0, s.n1)) items,
           sum(s.n2) summa,
           sum(s.n3) summa_inv,
           sum(s.n5) summa_r,
           min(s9.n6) items_b,
           min(s9.n7) summa_b,
           min(s9.n8) items_prih,
           min(s9.n9) summa_prih,
           min(s9.n10) items_p_in,
           min(s9.n16) items_t,
           min(s9.n17) summa_t,
           min(s9.n18) price_b,
           min(s9.n19) items_end
    from session_edit s
    join session_edit s9 on s9.id_session = s.id_session and s.id_item = s9.id_item and s9.vid = :vid9
    where s.id_session = :id_session and s.vid in (:vid24, :vid25)
    group by 1)
  select :id_session, :vid20,
         id_item,
         cast(items as numeric(12,3)) n1,
         cast(summa as numeric(12,2)) n2,
         cast(summa_inv as numeric(12,2)) n3,
         cast(summa_prih as numeric(12,2)) n6,
         cast(items_prih as numeric(12,3)) n7,
         cast(summa_b as numeric(12,2)) n8,
         cast(items_b as numeric(12,3)) n9,
         cast(summa_r as numeric(12,2)) n10,
         cast(items_t as numeric(12,3)) n11,
         cast(summa_t as numeric(12,2)) n12,
         cast(price_b as numeric(12,4)) n13,
         cast(items_end as numeric(12,3)) n14
  from total;
/*
  merge into session_edit s
  using (select s.id, i.group_id i2 from session_edit s
         left join item i on i.id = s.id_item
         where s.id_session = :id_session and s.vid in (:vid20, :vid23)) c on c.id = s.id
  when matched then
    update set i2 = c.i2, n4 = 0;
*/
  -- Выравниваем сырье
  for select sum(n2+n6+n7) summa,
             sum(n6+n7) summa_inv
      from session_edit
      where id_session = :id_session and vid = :vid2
  into summa, summa1 do
    for select sum(n2) summa, sum(n3) summa_inv
        from session_edit
        where id_session = :id_session and vid = :vid20
    into items, items1 do
      update session_edit set
        n2 = n2 + :summa - :items,
        n3 = n3 + :summa1 - :items1
      where id_session = :id_session and vid = :vid20
      order by n2 desc
      rows 1;

  -- распределение переменных Н/Р (пропорционально сумме сырья)
  for select sum(n1) from session_edit
      where id_session = :id_session and vid = :vid99 and i1 = 2
      having sum(n1) <> 0
  into summa0 do
  begin
    summa1 = 0;
    select sum(n2) from session_edit where id_session = :id_session and vid = :vid20 and i2 = 2
    into summa1;
    summa1 = nullif(summa1, 0);

    update session_edit set
      n4 = cast(coalesce(1e0 * :summa0 * n2 / :summa1, 0) as numeric(12,2))
    where id_session = :id_session and vid in (:vid20, :vid23) and i2 = 2;

    summa2 = 0;
    select sum(n4) from session_edit where id_session = :id_session and vid = :vid20 and i2 = 2
    into summa2;

    if (summa2 <> summa0) then
    update session_edit set
      n4 = n4 + :summa0 - :summa2
    where id_session = :id_session and vid = :vid20 and i2 = 2
    order by n4 desc
    rows 1;
  end

  update session_edit set
    n4 = 0
  where id_session = :id_session and vid in (:vid20, :vid23) and i2 = 5;

  -- распределение Н/Р по изделиям (пропорционально выбранному виду)
  for select iif(i1 = 3, 2, 1) vid, sum(n1) from session_edit
      where id_session = :id_session and vid = :vid99 and n1 <> 0 and i1 in (0,1,3)
      group by 1
      having sum(n1) <> 0
  into k, summa0 do
  for select num from get_rows(3)
  into n do
  begin
    summa1 = 0;
    select sum(decode(:n, 1, n2, 2, n5, 3, n6)) from session_edit
    where id_session = :id_session and vid = :vid10
    into summa1;

    type_v = (n-1)*2+k;

    if (summa1 <> 0) then
    insert into session_edit(id_session, vid, id_item, i1, n1)
    select id_session, :vid11, id_item, :type_v, cast(1e0*decode(:n, 1, n2, 2, n5, 3, n6)*:summa0/:summa1 as numeric(12,2))
    from session_edit
    where id_session = :id_session and vid = :vid10;

    summa2 = 0;
    select sum(n1) from session_edit where id_session = :id_session and vid = :vid11 and i1 = :type_v
    into summa2;

    if (summa2 <> summa0) then
    update session_edit set
      n1 = n1 + :summa0 - :summa2
    where id_session = :id_session and vid = :vid11 and i1 = :type_v
    order by n1 desc
    rows 1;
  end

  -- Распределение Н/р по ГИ
  merge into session_edit s
  using (select id_item,
                sum(iif(i1 = 1, n1, 0)) n7,
                sum(iif(i1 = 2, n1, 0)) n8,
                sum(iif(i1 = 3, n1, 0)) n9,
                sum(iif(i1 = 4, n1, 0)) n10,
                sum(iif(i1 = 5, n1, 0)) n11,
                sum(iif(i1 = 6, n1, 0)) n12
         from session_edit
         where id_session = :id_session and vid = :vid11
         group by 1) c on s.id_session = :id_session and s.id_item = c.id_item and s.vid = :vid10
  when matched then
  update set n7  = c.n7,
             n8  = c.n8,
             n9  = c.n9,
             n10 = c.n10,
             n11 = c.n11,
             n12 = c.n12;

  -- Расчет остатка на конец
  if (ost = 1) then
  begin
    for select s.id_item,
               s23.n1 items,
               s.n1-s23.n1 items_r,
               s.n1,
               s.n7 items_prih,
               s.n9 items_b,
               s.n14 items_end,
               s12.n2 summa_end,
               s.id
        from session_edit s
        left join session_edit s23 on s23.id_session = s.id_session and s23.id_item = s.id_item and s23.vid = :vid23
        left join session_edit s12 on s12.id_session = s.id_session and s12.id_item = s.id_item and s12.vid = :vid12
        where s.id_session = :id_session and s.vid = :vid20
    into id_item, items, items4, items5, items1, items0, items2, summa, id0 do
    begin
      items3 = maxvalue(items2, 0);

      if (items3 = 0) then
      begin
        items = 0;
        items4 = 0;
      end else
      begin
        items5  = minvalue(items3, items5);
        items3 = items3 - items5;
  
        if (items5 <> items + items4) then
        begin
          items = maxvalue(minvalue(items5, items), 0);
          items4 = items5 - items;
        end
      end

      items1 = maxvalue(minvalue(items3, items1), 0);
      items3 = items3 - items1;

      items0 = maxvalue(minvalue(items3, items0), 0);
      items3 = items3 - items0;

      merge into session_edit s
      using (select s.id, :items2 items_end,
                    cast(coalesce(:summa,
                         coalesce(1e0 * :items * (s23.n2 + s23.n4) / nullif(s23.n1, 0), 0) +
                         coalesce(1e0 * :items4 * (s23.n2 + s23.n4 - s.n2 - s.n10 - s.n4) / nullif(s23.n1 - s.n1, 0), 0) +
                         coalesce(1e0 * :items1 * s.n6 / nullif(s.n7, 0), 0) +
                         coalesce(1e0 * :items0 * s.n8 / nullif(s.n9, 0), 0) +
                         coalesce(1e0 * :items3 * s.n13, 0)) as numeric(12,2)) summa_end
             from session_edit s
             left join session_edit s23 on s23.id_session = s.id_session and s23.id_item = s.id_item and s23.vid = :vid23
             where s.id = :id0) c on c.id = s.id
      when matched then
      update set
        n14 = items_end,
        n15 = summa_end;
    end
  end else
    update session_edit set
      n14 = 0,
      n15 = 0
    where id_session = :id_session and vid = :vid20;

  suspend;
end
3.0.5.33141 валится на сложной процедуре

Trending Articles

Книга: руководство / инструкция по ремонту и эксплуатации CHERY QQ (ЧЕРИ...

Профессиональная астрология. Астрологическое консультирование и сопровождение...

Контакты представительств зарубежных авиакомпаний в Казахстане

GFI KerioControl 9.x (Часть 7) (5410) / Программный межсетевой экран NG...

Книга: руководство / инструкция по ремонту и эксплуатации OPEL VECTRA A...

1С 8.3 hasp emulator linux (46) / Решения по взлому лицензий на линуксе 8.3

The Pepper Porter Band - Invasion 1980

Посещаемость - Python для начинающих

0on3 Clean Tele

Департамент внутренних дел Павлодарской области

ДЕПАРТАМЕНТ АГЕНТСТВА ПО ПРОТИВОДЕЙСТВИЮ КОРРУПЦИИ (АНТИКОРРУПЦИОННОЙ СЛУЖБЫ)...

І. Пташнікаў. “Арчыбал”. Кароткі змест

ОЛИМПИАДАНЫ ТҮП-ТАМЫРЫНАН ӨЗГӨРТҮҮ КЕРЕК

Книга: руководство / инструкция по ремонту и эксплуатации HONDA CIVIC 5D...

HP Smart Array Advanced Pack (51) / license key wanted

MSO 2013 и "конфигурация операционной системы не рассчитана на запуск этого...

Помогите найти Geomprops for AutoCAD 2020 [3]

Готовая выкройка платья в пол

Autodesk FeatureCAM Ultimate 2019.0.0.359x64 [MULTILANG+RUS] #софт #software...

Ошибка удалённого приложения RemoteApp
