firebird/firebird-qa
6
0
Fork 0
mirror of https://github.com/FirebirdSQL/firebird-qa.git synced 2025-01-22 21:43:06 +01:00
Code Issues Activity
095dd3a5af
firebird-qa/tests/bugs/core_6086_test.py

887 lines
27 KiB
Python
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#coding:utf-8
#
# id: bugs.core_6086
# title: Creating of the large procedure crashes the server.
# decription:
# Confirmed bug on: WI-T4.0.0.1534, WI-V3.0.5.33141
# Checked on:
# 4.0.0.1535: OK, 2.051s.
# 3.0.5.33142: OK, 1.364s.
#
# tracker_id: CORE-6086
# min_versions: ['3.0.5']
# versions: 3.0.5
# qmid: None
import pytest
from firebird.qa import db_factory, isql_act, Action
# version: 3.0.5
# resources: None
substitutions_1 = []
init_script_1 = """"""
db_1 = db_factory(charset='WIN1251', sql_dialect=3, init=init_script_1)
test_script_1 = """
set bail on;
CREATE GLOBAL TEMPORARY TABLE SESSION_EDIT (
ID INTEGER NOT NULL,
ID_SESSION INTEGER NOT NULL,
I1 INTEGER,
I2 INTEGER,
I3 INTEGER,
I4 INTEGER,
I5 INTEGER,
N1 NUMERIC(18,4),
N2 NUMERIC(18,4),
N3 NUMERIC(18,4),
N4 NUMERIC(18,4),
SYSDAY TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
D1 DATE,
D2 DATE,
I6 INTEGER,
I7 INTEGER,
I8 INTEGER,
N5 NUMERIC(18,4),
N6 NUMERIC(18,4),
N7 NUMERIC(18,4),
N8 NUMERIC(18,4),
N9 NUMERIC(18,4),
N10 NUMERIC(18,4),
N11 NUMERIC(18,4),
N12 NUMERIC(18,4),
VID INTEGER,
ID_ITEM INTEGER,
N13 NUMERIC(18,4),
N14 NUMERIC(18,4),
N15 NUMERIC(18,4),
N16 NUMERIC(18,4),
N17 NUMERIC(18,4),
N18 NUMERIC(18,4),
N19 NUMERIC(18,4),
N20 NUMERIC(18,4),
N21 NUMERIC(18,4),
N22 NUMERIC(18,4),
V1 VARCHAR(32),
V2 VARCHAR(252),
V3 VARCHAR(32),
V4 VARCHAR(252),
V5 VARCHAR(20),
V6 VARCHAR(20),
V7 VARCHAR(40),
V8 VARCHAR(40),
V9 VARCHAR(40),
V10 VARCHAR(1024),
V11 VARCHAR(1024),
B1 BIGINT
) ON COMMIT PRESERVE ROWS;
ALTER TABLE SESSION_EDIT ADD CONSTRAINT PK_SESSION_EDIT PRIMARY KEY (ID);
set term ^;
create or alter procedure get_rows(a int) returns(num int) as
begin
suspend;
end
^
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 vid1 int = 1; -- Выпуск
declare vid2 int = 2; -- Расход сырья по изделиям (рецепт)
declare vid3 int = 3; -- Закупка ГИ
declare vid4 int = 4; -- Переработка в сырье
declare vid5 int = 5; -- Расход по документам
declare vid6 int = 6; -- Переработка приход
declare vid7 int = 7; -- Переработка расход
declare vid8 int = 8; -- Остаток на начало
declare vid9 int = 9; -- Свернутые Выпуск + остатки + расход по изделию
declare vid10 int = 10; -- Реализация
declare vid11 int = 11; -- Н/р по реализации
declare vid12 int = 12; -- Остаток на конец
declare vid99 int = 99; -- Накладные расходы
declare vid20 int = 20; -- Готовые расчеты
declare vid22 int = 22; -- Прочие движения по ГИ (сведенный)
declare vid23 int = 23; -- Промежуточные расчеты (расчет расхода сырья)
declare vid24 int = 24; -- Промежуточные расчеты (расчет переработки)
declare vid25 int = 25; -- Промежуточные расчеты (перераспределение переработки)
declare id_item int;
declare items numeric(18,3);
declare summa numeric(18,2);
declare items0 numeric(18,3);
declare summa0 numeric(18,2);
declare summa1 numeric(18,2);
declare items1 numeric(18,3);
declare items2 numeric(18,3);
declare summa2 numeric(18,2);
declare items3 numeric(18,3);
declare items4 numeric(18,3);
declare items5 numeric(18,3);
declare id0 int;
declare id1 int;
declare k int;
declare n int;
declare 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
^
set term ;^
commit;
set heading off;
select 'Completed successfully.' from rdb$database;
"""
act_1 = isql_act('db_1', test_script_1, substitutions=substitutions_1)
expected_stdout_1 = """
Completed successfully.
"""
@pytest.mark.version('>=3.0.5')
def test_1(act_1: Action):
act_1.expected_stdout = expected_stdout_1
act_1.execute()
assert act_1.clean_expected_stdout == act_1.clean_stdout
Reference in New Issue View Git Blame Copy Permalink