853 lines
39 KiB
PL/PgSQL
853 lines
39 KiB
PL/PgSQL
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- migrate_form4_project.sql — выделение FORM_4 программ/проектов в отдельную
|
||
-- сущность v3.form4_project (перестают делить таблицу с FORM_3 v3.project).
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- Мотивация: v3.project исторически был FORM_4-таблицей (program/project +
|
||
-- parent_id), FORM_3-редизайн навесил сверху свои атрибуты (project_type,
|
||
-- vsp_format, address, area, staff, org_unit_id) и строгий chk_v3_project_name.
|
||
-- Два разных концепта под одним словом «project» → разреженные колонки, нет
|
||
-- защиты FK, констрейнт вынужден ветвиться по «виду» строки. Разводим.
|
||
--
|
||
-- Новая таблица v3.form4_project — точный костяк без FORM_3-полей:
|
||
-- program (level='program', parent_id=NULL)
|
||
-- project (level='project', parent_id=program)
|
||
--
|
||
-- Дискриминатор FORM_4 vs FORM_3: FORM_3-строки — те, что ссылаются из
|
||
-- v3.rf_project_report (add_project всегда создаёт отчёты для КАЖДОЙ строки,
|
||
-- включая программы). Всё остальное в v3.project — FORM_4.
|
||
--
|
||
-- Порядок: после init.sql + всех migrate_form3*/migrate_to_identity (нужна
|
||
-- финальная форма v3.project с org_unit_id). Один прогон — copy защищён
|
||
-- проверкой на пустоту form4_project.
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
|
||
-- ───── 1. Новая таблица ─────────────────────────────────────────────────────
|
||
CREATE TABLE IF NOT EXISTS v3.form4_project (
|
||
id SERIAL PRIMARY KEY,
|
||
name VARCHAR NOT NULL,
|
||
level VARCHAR CHECK (level IN ('program', 'project')),
|
||
section_code VARCHAR,
|
||
parent_id INTEGER REFERENCES v3.form4_project(id),
|
||
-- org_unit_id INTEGER REFERENCES v3.org_unit(id),
|
||
form_id INTEGER REFERENCES v3.budget_form(id),
|
||
-- project (level='project') обязан иметь родителя-программу; program — нет.
|
||
CONSTRAINT chk_form4_project_parent CHECK (
|
||
(level = 'program' AND parent_id IS NULL)
|
||
OR (level = 'project')
|
||
),
|
||
CONSTRAINT chk_form4_project_section_code CHECK (
|
||
(level = 'program') = (section_code IS NOT NULL)
|
||
)
|
||
);
|
||
|
||
CREATE INDEX ix_form4_project_section_code
|
||
ON v3.form4_project(section_code) WHERE level = 'program';
|
||
CREATE INDEX IF NOT EXISTS ix_v3_form4_project_parent ON v3.form4_project(parent_id);
|
||
CREATE INDEX IF NOT EXISTS ix_v3_form4_project_form ON v3.form4_project(form_id);
|
||
|
||
-- ───── 2. Перенос FORM_4-строк из v3.project (с сохранением id) ──────────────
|
||
-- FK budget_line.project_id ссылается по id → id сохраняем 1:1.
|
||
-- Копируем обе роли (program + project) одним INSERT: self-FK parent_id внутри
|
||
-- одного оператора проверяется в конце, порядок строк не важен.
|
||
-- DO $migrate$
|
||
-- BEGIN
|
||
-- IF NOT EXISTS (SELECT 1 FROM v3.form4_project) THEN
|
||
-- INSERT INTO v3.form4_project (id, name, level, parent_id, org_unit_id)
|
||
-- SELECT p.id, p.name, p.level, p.parent_id, (p.org_unit_id
|
||
-- FROM v3.project p
|
||
-- WHERE p.id NOT IN (
|
||
-- SELECT project_id FROM v3.rf_project_report WHERE project_id IS NOT NULL
|
||
-- );
|
||
|
||
-- -- Синхронизируем sequence, чтобы новые INSERT не конфликтовали по id.
|
||
-- PERFORM setval('v3.form4_project_id_seq',
|
||
-- GREATEST((SELECT COALESCE(MAX(id), 0) FROM v3.form4_project), 1));
|
||
|
||
-- RAISE NOTICE 'form4_project: перенесено % строк из v3.project',
|
||
-- (SELECT count(*) FROM v3.form4_project);
|
||
-- ELSE
|
||
-- RAISE NOTICE 'form4_project уже наполнена — перенос пропущен';
|
||
-- END IF;
|
||
-- END
|
||
-- $migrate$;
|
||
|
||
-- ───── 3. Перецепка FK budget_line.project_id на новую таблицу ──────────────
|
||
ALTER TABLE v3.budget_line DROP CONSTRAINT IF EXISTS budget_line_project_id_fkey;
|
||
ALTER TABLE v3.budget_line ADD CONSTRAINT budget_line_project_id_fkey FOREIGN KEY (project_id) REFERENCES v3.form4_project(id);
|
||
|
||
-- ───── 4. Удаление перенесённых строк из v3.project ─────────────────────────
|
||
-- После перецепки budget_line на v3.project больше не ссылается ничего FORM_4.
|
||
-- Остаются только FORM_3-строки (referenced by rf_project_report).
|
||
DELETE FROM v3.project p
|
||
WHERE p.id NOT IN (
|
||
SELECT project_id FROM v3.rf_project_report WHERE project_id IS NOT NULL
|
||
);
|
||
|
||
-- ───── 5. Восстановление chk_v3_project_name в строгой форме ─────────────────
|
||
-- FORM_4-строки ушли — v3.project теперь чисто FORM_3, правило коротких имён
|
||
-- ВСП применимо ко всей таблице (как до form4_write.sql). NOT VALID сохраняем.
|
||
ALTER TABLE v3.project DROP CONSTRAINT IF EXISTS chk_v3_project_name;
|
||
ALTER TABLE v3.project
|
||
ADD CONSTRAINT chk_v3_project_name
|
||
CHECK (name IS NULL OR (
|
||
length(name) <= 30 AND
|
||
name !~ E'[+\\-/\\\\=&* ]'
|
||
)) NOT VALID;
|
||
|
||
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- v3.add_form4_program / v3.add_form4_project — создание программ и проектов
|
||
-- FORM_4 в выделенной таблице v3.form4_project (иерархия program → project).
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- FORM_4 хранит иерархию отдельно от FORM_3 (v3.project) — см.
|
||
-- migrate_form4_project.sql. Костяк:
|
||
-- program (level='program', parent_id=NULL) → depth=1 (GROUP) в v_form4
|
||
-- project (level='project', parent_id=program) → depth=2 (ITEM) в v_form4
|
||
-- Строки бюджета привязываются к проекту через budget_line.project_id.
|
||
--
|
||
-- Никаких FORM_3-атрибутов / rf_project_report / snapshot фаз — это ветка
|
||
-- budget_form. p_org_unit_id опционален (read-path FORM_4 по нему не фильтрует,
|
||
-- заполняется для аудита/принадлежности).
|
||
--
|
||
-- Порядок применения: после migrate_form4_project.sql (нужна таблица
|
||
-- v3.form4_project) и audit.sql (нужна v3.log_event).
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
|
||
-- ───── 1. add_form4_program ─────────────────────────────────────────────────
|
||
DROP FUNCTION IF EXISTS v3.add_form4_program(VARCHAR, INT, VARCHAR, INT);
|
||
|
||
CREATE FUNCTION v3.add_form4_program(
|
||
p_name VARCHAR,
|
||
p_form_id INT,
|
||
p_section_code VARCHAR DEFAULT NULL
|
||
)
|
||
RETURNS TABLE (
|
||
project_id INT,
|
||
row_type VARCHAR,
|
||
depth INT,
|
||
sort_order BIGINT,
|
||
data JSONB
|
||
) AS $function$
|
||
#variable_conflict use_column
|
||
DECLARE
|
||
v_pid INT;
|
||
BEGIN
|
||
IF p_name IS NULL OR length(trim(p_name)) = 0 THEN
|
||
RAISE EXCEPTION 'p_name обязателен';
|
||
END IF;
|
||
IF p_form_id IS NULL THEN
|
||
RAISE EXCEPTION 'p_form_id обязателен';
|
||
END IF;
|
||
IF NOT EXISTS (
|
||
SELECT 1 FROM v3.budget_form bf
|
||
WHERE bf.form_type_code = 'FORM_4' AND bf.id = p_form_id
|
||
) THEN
|
||
RAISE EXCEPTION 'Только FORM_4';
|
||
END IF;
|
||
IF p_section_code IS NOT NULL AND NOT EXISTS (
|
||
SELECT 1 FROM v3.expense_item
|
||
WHERE section_code = p_section_code AND depth = 0
|
||
) THEN
|
||
RAISE EXCEPTION 'section_code=% не существует в expense_item (depth=0)', p_section_code;
|
||
END IF;
|
||
|
||
INSERT INTO v3.form4_project (name, level, parent_id, form_id, section_code)
|
||
VALUES (p_name, 'program', NULL, p_form_id, p_section_code)
|
||
RETURNING id INTO v_pid;
|
||
|
||
PERFORM v3.log_event(
|
||
'PROJECT_CREATE', 'PROJECT',
|
||
jsonb_strip_nulls(jsonb_build_object(
|
||
'project_id', v_pid,
|
||
'name', p_name,
|
||
'level', 'program',
|
||
'form_id', p_form_id,
|
||
'form_type', 'FORM_4'
|
||
)),
|
||
p_form_id, NULL, NULL
|
||
);
|
||
|
||
RETURN QUERY
|
||
SELECT v_pid, v.row_type, v.depth, v.sort_order, v.data
|
||
FROM v3.v_form4_sheet_jsonb(p_form_id, p_section_code, NULL) v
|
||
WHERE (v.row_type = 'GROUP' AND (v.data->'header'->>'program_id')::INT = v_pid)
|
||
OR (v.row_type = 'ROOT' AND v.data->'header'->>'section_code' = p_section_code)
|
||
ORDER BY v.sort_order;
|
||
END;
|
||
$function$
|
||
LANGUAGE plpgsql VOLATILE;
|
||
|
||
-- ───── 2. add_form4_project ─────────────────────────────────────────────────
|
||
DROP FUNCTION IF EXISTS v3.add_form4_project(VARCHAR, INT);
|
||
|
||
CREATE FUNCTION v3.add_form4_project(
|
||
p_name VARCHAR,
|
||
p_program_id INT
|
||
)
|
||
RETURNS TABLE (
|
||
project_id INT,
|
||
row_type VARCHAR,
|
||
depth INT,
|
||
sort_order BIGINT,
|
||
data JSONB
|
||
)
|
||
AS $function$
|
||
#variable_conflict use_column
|
||
DECLARE
|
||
v_pid INT;
|
||
v_section_code VARCHAR;
|
||
v_form_id INT;
|
||
BEGIN
|
||
IF p_name IS NULL OR length(trim(p_name)) = 0 THEN
|
||
RAISE EXCEPTION 'p_name обязателен';
|
||
END IF;
|
||
IF p_program_id IS NULL THEN
|
||
RAISE EXCEPTION 'p_program_id обязателен (проект создаётся под программой)';
|
||
END IF;
|
||
IF NOT EXISTS (SELECT 1 FROM v3.form4_project fp
|
||
WHERE fp.id = p_program_id AND fp.level = 'program') THEN
|
||
RAISE EXCEPTION 'program id=% не существует или не имеет level=program', p_program_id;
|
||
END IF;
|
||
|
||
SELECT form_id INTO v_form_id FROM v3.form4_project WHERE id = p_program_id;
|
||
|
||
INSERT INTO v3.form4_project (name, level, parent_id, form_id)
|
||
VALUES (p_name, 'project', p_program_id, v_form_id)
|
||
RETURNING id INTO v_pid;
|
||
|
||
PERFORM v3.log_event(
|
||
'PROJECT_CREATE', 'PROJECT',
|
||
jsonb_strip_nulls(jsonb_build_object(
|
||
'project_id', v_pid,
|
||
'name', p_name,
|
||
'level', 'project',
|
||
'parent_id', p_program_id,
|
||
'form_id', v_form_id,
|
||
'form_type', 'FORM_4'
|
||
)),
|
||
v_form_id, NULL, NULL
|
||
);
|
||
|
||
SELECT fp.section_code INTO v_section_code
|
||
FROM v3.form4_project fp
|
||
WHERE fp.id = p_program_id AND fp.level = 'program';
|
||
|
||
IF v_section_code IS NOT NULL THEN
|
||
RETURN QUERY
|
||
SELECT v_pid, v.row_type, v.depth, v.sort_order, v.data
|
||
FROM v3.v_form4_sheet_jsonb(v_form_id, v_section_code, NULL) v
|
||
WHERE (v.row_type = 'ITEM' AND (v.data->'header'->>'project_id')::INT = v_pid)
|
||
OR (v.row_type = 'GROUP' AND (v.data->'header'->>'program_id')::INT = p_program_id)
|
||
OR (v.row_type = 'ROOT' AND v.data->'header'->>'section_code' = v_section_code)
|
||
ORDER BY v.sort_order;
|
||
END IF;
|
||
END;
|
||
$function$
|
||
LANGUAGE plpgsql VOLATILE;
|
||
|
||
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- v3.v_form4_sheet_jsonb — JSONB-выдача FORM_4 для АХР_Р / КВ_Р / Операц
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- Иерархия (4 уровня):
|
||
-- ROOT depth=0 — section_code (1.00.0/3.00.0/4.00.0/5.00.0)
|
||
-- PROGRAM depth=1 — v3.form4_project level=program
|
||
-- PROJECT depth=2 — v3.form4_project level=project (parent_id=program)
|
||
-- INPUT depth=3 — budget_line (R-код)
|
||
--
|
||
-- Финансовые блоки (plan, seq_dfip, approved, booking, q1-q4, totals)
|
||
-- агрегируются на уровнях ROOT/PROGRAM/PROJECT через v3.jsonb_numeric_sum.
|
||
-- Текстовые поля (counterparty, comment, justification…) на агрегатных
|
||
-- уровнях NULL'ятся (jsonb_numeric_sum их игнорирует).
|
||
--
|
||
-- p_form_id — id формы FORM_4
|
||
-- p_sheet — 'AHR' / 'CAP' / 'OPER'
|
||
-- p_sections — массив включаемых блоков (как в v_form4_sheet_lines_jsonb)
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
|
||
-- ───── 1. Хелпер: рекурсивная сумма численных листьев двух JSONB ──────────
|
||
CREATE OR REPLACE FUNCTION v3.jsonb_numeric_sum(a JSONB, b JSONB)
|
||
RETURNS JSONB LANGUAGE sql IMMUTABLE AS $function$
|
||
SELECT CASE
|
||
WHEN a IS NULL THEN b
|
||
WHEN b IS NULL THEN a
|
||
WHEN jsonb_typeof(a) = 'number' AND jsonb_typeof(b) = 'number' THEN
|
||
to_jsonb((a)::text::numeric + (b)::text::numeric)
|
||
WHEN jsonb_typeof(a) = 'object' AND jsonb_typeof(b) = 'object' THEN (
|
||
SELECT jsonb_object_agg(k,
|
||
v3.jsonb_numeric_sum(a -> k, b -> k)
|
||
)
|
||
FROM (
|
||
SELECT k FROM jsonb_object_keys(a) k
|
||
UNION
|
||
SELECT k FROM jsonb_object_keys(b) k
|
||
) keys
|
||
)
|
||
-- одна сторона число/объект, другая нет → берём числовую/объектную
|
||
WHEN jsonb_typeof(a) IN ('number','object') THEN a
|
||
WHEN jsonb_typeof(b) IN ('number','object') THEN b
|
||
ELSE NULL
|
||
END;
|
||
$function$;
|
||
|
||
DROP AGGREGATE IF EXISTS v3.jsonb_sum(JSONB);
|
||
CREATE AGGREGATE v3.jsonb_sum(JSONB) (
|
||
SFUNC = v3.jsonb_numeric_sum,
|
||
STYPE = JSONB
|
||
);
|
||
|
||
-- ───── 2. Основная функция ─────────────────────────────────────────────────
|
||
CREATE OR REPLACE FUNCTION v3.v_form4_sheet_jsonb(
|
||
p_form_id INT,
|
||
p_sheet VARCHAR,
|
||
p_sections TEXT[] DEFAULT NULL
|
||
)
|
||
RETURNS TABLE (
|
||
row_type VARCHAR,
|
||
depth INT,
|
||
sort_order BIGINT,
|
||
data JSONB
|
||
)
|
||
AS $function$
|
||
-- ═══ 1. Базовые INPUT-строки с расширенной иерархией ═══════════════════════
|
||
WITH inp_raw AS (
|
||
SELECT j.*
|
||
FROM v3.v_form4_sheet_lines_jsonb(p_form_id, p_sheet, p_sections) j
|
||
WHERE j.row_type = 'INPUT'
|
||
),
|
||
inp AS (
|
||
SELECT
|
||
i.*,
|
||
bl.project_id AS line_project_id,
|
||
|
||
-- --- разрешение проекта ---
|
||
-- A. bl.project_id → project (level='project')
|
||
-- B. bl.project_id → program (level='program') — тогда проекта нет
|
||
CASE WHEN prj.id IS NOT NULL THEN prj.id END AS prj_id,
|
||
CASE WHEN prj.id IS NOT NULL THEN prj.name END AS prj_name,
|
||
|
||
-- --- разрешение программы ---
|
||
-- A. через проект: prog_via_prj
|
||
-- B. напрямую: prog_direct
|
||
COALESCE(prog_via_prj.id, prog_direct.id) AS prog_id,
|
||
COALESCE(prog_via_prj.name, prog_direct.name) AS prog_name,
|
||
|
||
-- --- section (depth=0) ---
|
||
sec.id AS sec_id,
|
||
sec.section_code AS sec_code,
|
||
sec.name AS sec_name
|
||
|
||
FROM inp_raw i
|
||
JOIN v3.budget_line bl ON bl.id = i.line_id
|
||
|
||
-- проект (level='project')
|
||
LEFT JOIN v3.form4_project prj
|
||
ON prj.id = bl.project_id AND prj.level = 'project'
|
||
|
||
-- программа через проект
|
||
LEFT JOIN v3.form4_project prog_via_prj
|
||
ON prog_via_prj.id = prj.parent_id AND prog_via_prj.level = 'program'
|
||
|
||
-- программа напрямую (bl.project_id → program)
|
||
LEFT JOIN v3.form4_project prog_direct
|
||
ON prog_direct.id = bl.project_id AND prog_direct.level = 'program'
|
||
|
||
-- раздел depth=0 (через expense_item)
|
||
JOIN v3.expense_item ei ON ei.id = bl.expense_item_id
|
||
LEFT JOIN LATERAL (
|
||
WITH RECURSIVE up AS (
|
||
SELECT id, parent_id, name, section_code, depth
|
||
FROM v3.expense_item WHERE id = ei.id
|
||
UNION ALL
|
||
SELECT e.id, e.parent_id, e.name, e.section_code, e.depth
|
||
FROM v3.expense_item e JOIN up u ON u.parent_id = e.id
|
||
)
|
||
SELECT id, name, section_code FROM up WHERE depth = 0 LIMIT 1
|
||
) sec ON TRUE
|
||
),
|
||
|
||
-- ═══ 2. Все программы (включая пустые) ═════════════════════════════════════
|
||
all_programs AS (
|
||
SELECT
|
||
fp.id AS prog_id,
|
||
fp.name AS prog_name,
|
||
fp.section_code,
|
||
sec.id AS sec_id,
|
||
sec.section_code AS sec_code,
|
||
sec.name AS sec_name
|
||
FROM v3.form4_project fp
|
||
LEFT JOIN LATERAL (
|
||
SELECT id, section_code, name
|
||
FROM v3.expense_item
|
||
WHERE section_code = fp.section_code AND depth = 0
|
||
LIMIT 1
|
||
) sec ON TRUE
|
||
WHERE fp.level = 'program'
|
||
AND (p_sections IS NULL OR fp.section_code = ANY(p_sections))
|
||
AND (fp.section_code = p_sheet) AND fp.form_id = p_form_id
|
||
),
|
||
|
||
-- ═══ 3. Все проекты под программами (включая пустые) ═══════════════════════
|
||
all_projects AS (
|
||
SELECT
|
||
prj.id AS prj_id,
|
||
prj.name AS prj_name,
|
||
prj.parent_id AS prog_id,
|
||
ap.sec_id, ap.sec_code, ap.sec_name
|
||
FROM v3.form4_project prj
|
||
JOIN all_programs ap ON ap.prog_id = prj.parent_id
|
||
WHERE prj.level = 'project' AND (ap.section_code = p_sheet)
|
||
),
|
||
|
||
-- ═══ 4. Агрегаты с финансовыми данными (только из inp) ════════════════════
|
||
|
||
-- PROJECT-агрегаты
|
||
prj_agg AS (
|
||
SELECT
|
||
sec_id, MAX(sec_code) AS sec_code, MAX(sec_name) AS sec_name,
|
||
prog_id, MAX(prog_name) AS prog_name,
|
||
prj_id, MAX(prj_name) AS prj_name,
|
||
v3.jsonb_sum(plan_data) AS plan_data,
|
||
v3.jsonb_sum(seq_dfip_data) AS seq_dfip_data,
|
||
v3.jsonb_sum(approved_data) AS approved_data,
|
||
v3.jsonb_sum(contract_summary_data) AS contract_summary_data,
|
||
v3.jsonb_sum(allocation_data) AS allocation_data,
|
||
v3.jsonb_sum(reserve_data) AS reserve_data,
|
||
v3.jsonb_sum(collegial_data) AS collegial_data,
|
||
v3.jsonb_sum(ckk_data) AS ckk_data,
|
||
v3.jsonb_sum(contract_data) AS contract_data,
|
||
v3.jsonb_sum(booking_data) AS booking_data,
|
||
v3.jsonb_sum(q1_data) AS q1_data,
|
||
v3.jsonb_sum(q2_data) AS q2_data,
|
||
v3.jsonb_sum(q3_data) AS q3_data,
|
||
v3.jsonb_sum(q4_data) AS q4_data,
|
||
v3.jsonb_sum(totals_data) AS totals_data
|
||
FROM inp WHERE prj_id IS NOT NULL
|
||
GROUP BY sec_id, prog_id, prj_id
|
||
),
|
||
|
||
-- PROGRAM-агрегаты
|
||
prog_agg AS (
|
||
SELECT
|
||
sec_id, MAX(sec_code) AS sec_code, MAX(sec_name) AS sec_name,
|
||
prog_id, MAX(prog_name) AS prog_name,
|
||
v3.jsonb_sum(plan_data) AS plan_data,
|
||
v3.jsonb_sum(seq_dfip_data) AS seq_dfip_data,
|
||
v3.jsonb_sum(approved_data) AS approved_data,
|
||
v3.jsonb_sum(contract_summary_data) AS contract_summary_data,
|
||
v3.jsonb_sum(allocation_data) AS allocation_data,
|
||
v3.jsonb_sum(reserve_data) AS reserve_data,
|
||
v3.jsonb_sum(collegial_data) AS collegial_data,
|
||
v3.jsonb_sum(ckk_data) AS ckk_data,
|
||
v3.jsonb_sum(contract_data) AS contract_data,
|
||
v3.jsonb_sum(booking_data) AS booking_data,
|
||
v3.jsonb_sum(q1_data) AS q1_data,
|
||
v3.jsonb_sum(q2_data) AS q2_data,
|
||
v3.jsonb_sum(q3_data) AS q3_data,
|
||
v3.jsonb_sum(q4_data) AS q4_data,
|
||
v3.jsonb_sum(totals_data) AS totals_data
|
||
FROM inp WHERE prog_id IS NOT NULL
|
||
GROUP BY sec_id, prog_id
|
||
),
|
||
|
||
-- ROOT-агрегаты
|
||
root_agg AS (
|
||
SELECT
|
||
sec_id, MAX(sec_code) AS sec_code, MAX(sec_name) AS sec_name,
|
||
v3.jsonb_sum(plan_data) AS plan_data,
|
||
v3.jsonb_sum(seq_dfip_data) AS seq_dfip_data,
|
||
v3.jsonb_sum(approved_data) AS approved_data,
|
||
v3.jsonb_sum(contract_summary_data) AS contract_summary_data,
|
||
v3.jsonb_sum(allocation_data) AS allocation_data,
|
||
v3.jsonb_sum(reserve_data) AS reserve_data,
|
||
v3.jsonb_sum(collegial_data) AS collegial_data,
|
||
v3.jsonb_sum(ckk_data) AS ckk_data,
|
||
v3.jsonb_sum(contract_data) AS contract_data,
|
||
v3.jsonb_sum(booking_data) AS booking_data,
|
||
v3.jsonb_sum(q1_data) AS q1_data,
|
||
v3.jsonb_sum(q2_data) AS q2_data,
|
||
v3.jsonb_sum(q3_data) AS q3_data,
|
||
v3.jsonb_sum(q4_data) AS q4_data,
|
||
v3.jsonb_sum(totals_data) AS totals_data
|
||
FROM inp
|
||
GROUP BY sec_id
|
||
),
|
||
|
||
-- Нулевой JSONB-шаблон (для пустых программ/проектов)
|
||
zero AS (
|
||
SELECT '{}'::jsonb AS z
|
||
),
|
||
|
||
-- ═══ 5. UNION всех уровней ═════════════════════════════════════════════════
|
||
unioned AS (
|
||
-- ROOT — только из агрегатов (не имеет смысла пустой ROOT без строк)
|
||
SELECT
|
||
'ROOT'::VARCHAR AS row_type, 0 AS depth, NULL::INT AS line_id,
|
||
jsonb_build_object('section_code', sec_code, 'name', sec_name, 'expense_item_id', sec_id) AS header,
|
||
plan_data, seq_dfip_data, approved_data,
|
||
contract_summary_data, allocation_data, reserve_data, collegial_data, ckk_data,
|
||
contract_data, booking_data,
|
||
q1_data, q2_data, q3_data, q4_data, totals_data,
|
||
ARRAY[sec_id, 0, 0, 0]::INT[] AS sort_path
|
||
FROM root_agg
|
||
|
||
UNION ALL
|
||
|
||
-- GROUP — из агрегатов (программы с бюджетными строками)
|
||
SELECT
|
||
'GROUP', 1, NULL,
|
||
jsonb_build_object('section_code', sec_code, 'name', prog_name, 'program_id', prog_id, 'expense_item_id', sec_id),
|
||
plan_data, seq_dfip_data, approved_data,
|
||
contract_summary_data, allocation_data, reserve_data, collegial_data, ckk_data,
|
||
contract_data, booking_data,
|
||
q1_data, q2_data, q3_data, q4_data, totals_data,
|
||
ARRAY[sec_id, prog_id, 0, 0]::INT[]
|
||
FROM prog_agg
|
||
|
||
UNION ALL
|
||
|
||
-- GROUP — пустые программы (нет ни одной budget_line)
|
||
SELECT
|
||
'GROUP', 1, NULL,
|
||
jsonb_build_object('section_code', sec_code, 'name', prog_name, 'program_id', prog_id, 'expense_item_id', sec_id),
|
||
NULL::jsonb, NULL::jsonb, NULL::jsonb, -- plan, seq_dfip, approved
|
||
NULL::jsonb, NULL::jsonb, NULL::jsonb, -- contract_summary, allocation, reserve
|
||
NULL::jsonb, NULL::jsonb, -- collegial, ckk
|
||
NULL::jsonb, NULL::jsonb, -- contract, booking
|
||
NULL::jsonb, NULL::jsonb, NULL::jsonb, NULL::jsonb, NULL::jsonb, -- q1-q4, totals
|
||
ARRAY[sec_id, prog_id, 0, 0]::INT[]
|
||
FROM all_programs ap
|
||
WHERE NOT EXISTS (
|
||
SELECT 1 FROM v3.budget_line bl
|
||
WHERE bl.budget_form_id = p_form_id
|
||
AND (
|
||
bl.project_id = ap.prog_id -- прямая привязка к программе
|
||
OR bl.project_id IN (SELECT id FROM v3.form4_project pr -- через проект
|
||
WHERE pr.parent_id = ap.prog_id AND pr.level = 'project')
|
||
)
|
||
)
|
||
|
||
UNION ALL
|
||
|
||
-- ITEM — из агрегатов (проекты с бюджетными строками)
|
||
SELECT
|
||
'ITEM', 2, NULL,
|
||
jsonb_build_object('section_code', sec_code, 'name', prj_name,
|
||
'program_id', prog_id, 'project_id', prj_id, 'expense_item_id', sec_id),
|
||
plan_data, seq_dfip_data, approved_data,
|
||
contract_summary_data, allocation_data, reserve_data, collegial_data, ckk_data,
|
||
contract_data, booking_data,
|
||
q1_data, q2_data, q3_data, q4_data, totals_data,
|
||
ARRAY[sec_id, prog_id, prj_id, 0]::INT[]
|
||
FROM prj_agg
|
||
|
||
UNION ALL
|
||
|
||
-- ITEM — пустые проекты (нет budget_line)
|
||
SELECT
|
||
'ITEM', 2, NULL,
|
||
jsonb_build_object('section_code', sec_code, 'name', prj_name,
|
||
'program_id', prog_id, 'project_id', prj_id, 'expense_item_id', sec_id),
|
||
NULL::jsonb, NULL::jsonb, NULL::jsonb,
|
||
NULL::jsonb, NULL::jsonb, NULL::jsonb,
|
||
NULL::jsonb, NULL::jsonb,
|
||
NULL::jsonb, NULL::jsonb,
|
||
NULL::jsonb, NULL::jsonb, NULL::jsonb, NULL::jsonb, NULL::jsonb,
|
||
ARRAY[sec_id, prog_id, prj_id, 0]::INT[]
|
||
FROM all_projects apr
|
||
WHERE NOT EXISTS (
|
||
SELECT 1 FROM v3.budget_line bl
|
||
WHERE bl.budget_form_id = p_form_id
|
||
AND bl.project_id = apr.prj_id
|
||
)
|
||
|
||
UNION ALL
|
||
|
||
-- INPUT — все строки бюджета
|
||
SELECT
|
||
'INPUT', 3, line_id,
|
||
header || jsonb_build_object(
|
||
'project_id', prj_id, 'project_name', prj_name,
|
||
'program_id', prog_id, 'program_name', prog_name
|
||
),
|
||
plan_data, seq_dfip_data, approved_data,
|
||
contract_summary_data, allocation_data, reserve_data, collegial_data, ckk_data,
|
||
contract_data, booking_data,
|
||
q1_data, q2_data, q3_data, q4_data, totals_data,
|
||
ARRAY[sec_id, COALESCE(prog_id, 999999), COALESCE(prj_id, 999999), line_id]::INT[]
|
||
FROM inp
|
||
)
|
||
|
||
SELECT
|
||
u.row_type, u.depth,
|
||
ROW_NUMBER() OVER (ORDER BY u.sort_path) AS sort_order,
|
||
jsonb_build_object(
|
||
'line_id', u.line_id,
|
||
'header', u.header,
|
||
'plan', u.plan_data,
|
||
'seq_dfip', u.seq_dfip_data,
|
||
'approved', u.approved_data,
|
||
'contract_summary', u.contract_summary_data,
|
||
'allocation', u.allocation_data,
|
||
'reserve', u.reserve_data,
|
||
'collegial', u.collegial_data,
|
||
'ckk', u.ckk_data,
|
||
'contract', u.contract_data,
|
||
'booking', u.booking_data,
|
||
'q1', u.q1_data,
|
||
'q2', u.q2_data,
|
||
'q3', u.q3_data,
|
||
'q4', u.q4_data,
|
||
'totals', u.totals_data
|
||
) AS data
|
||
FROM unioned u
|
||
ORDER BY u.sort_path;
|
||
$function$
|
||
LANGUAGE sql STABLE;
|
||
|
||
|
||
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
-- v3.add_budget_line — создать новую INPUT-строку (budget_line) для FORM_1/2/4.
|
||
--
|
||
-- Способы передать expense_item:
|
||
-- путь A — численный id: p_expense_item_id (берётся из header.expense_item_id)
|
||
-- путь B — резолв по коду: p_sheet + p_item_id [+ p_section_code для коллизий]
|
||
-- [+ p_direction для FORM_1]
|
||
--
|
||
-- Авто-direction:
|
||
-- FORM_2 → 'Support'
|
||
-- FORM_4 → 'Development'
|
||
-- FORM_1/OPER → NULL
|
||
-- FORM_1/AHR|CAP → p_direction обязателен (Support|Development)
|
||
-- Если p_direction передан и противоречит авто-значению — ошибка.
|
||
--
|
||
-- Дубликаты на одном expense_item разрешены (UNIQUE не накладывается).
|
||
-- vsp_id опционален — для FORM_2 фронт может не знать ВСП на момент
|
||
-- создания, дозаполнит позже через upd_form_cell(.., 'header.vsp_id', ..).
|
||
--
|
||
-- FORM_3 не поддерживается — там строки живут в rf_project_report_line,
|
||
-- API будет в add_form3_line.sql (отдельная итерация).
|
||
--
|
||
-- Возврат: вся иерархия (ROOT/GROUP/ITEM/SUB_ITEM/SECTION/LEAF) + новая
|
||
-- INPUT (отфильтрована по новому line_id). Новый id извлекается из
|
||
-- (data->>'line_id')::INT первой INPUT-строки.
|
||
-- ════════════════════════════════════════════════════════════════════════════
|
||
|
||
DROP FUNCTION IF EXISTS v3.add_budget_line(INT, INT, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, INT, INT, VARCHAR);
|
||
DROP FUNCTION IF EXISTS v3.add_budget_line(INT, INT, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, VARCHAR, INT, INT, VARCHAR, VARCHAR, DATE);
|
||
|
||
CREATE FUNCTION v3.add_budget_line(
|
||
p_form_id INT,
|
||
p_expense_item_id INT DEFAULT NULL,
|
||
p_sheet VARCHAR DEFAULT NULL,
|
||
p_item_id VARCHAR DEFAULT NULL,
|
||
p_section_code VARCHAR DEFAULT NULL,
|
||
p_direction VARCHAR DEFAULT NULL,
|
||
p_name VARCHAR DEFAULT NULL,
|
||
p_internal_order VARCHAR DEFAULT NULL,
|
||
p_vsp_id INT DEFAULT NULL,
|
||
p_project_id INT DEFAULT NULL,
|
||
p_justification VARCHAR DEFAULT NULL,
|
||
-- сателлитные листы (AHR_RENT/UTILITY/SECURITY) используют дополнительно:
|
||
p_contract_number VARCHAR DEFAULT NULL,
|
||
p_contract_end_date DATE DEFAULT NULL
|
||
)
|
||
RETURNS TABLE (
|
||
row_type VARCHAR,
|
||
depth INT,
|
||
sort_order BIGINT,
|
||
data JSONB
|
||
)
|
||
AS $function$
|
||
DECLARE
|
||
v_form_type VARCHAR;
|
||
v_eid INT;
|
||
v_sheet VARCHAR;
|
||
v_auto_dir VARCHAR;
|
||
v_final_dir VARCHAR;
|
||
v_new_id INT;
|
||
v_cnt INT;
|
||
v_sat_table TEXT;
|
||
v_sat_eid INT;
|
||
v_parent_line INT;
|
||
BEGIN
|
||
-- 1. form_id → form_type
|
||
SELECT form_type_code INTO v_form_type FROM v3.budget_form WHERE id = p_form_id;
|
||
IF v_form_type IS NULL THEN
|
||
RAISE EXCEPTION 'budget_form id=% не существует', p_form_id;
|
||
END IF;
|
||
IF v_form_type = 'FORM_3' THEN
|
||
RAISE EXCEPTION 'FORM_3 не использует budget_line — см. add_form3_line (TBD)';
|
||
END IF;
|
||
|
||
-- ═══ Сателлитные листы (AHR_RENT/UTILITY/SECURITY) ═══════════════════
|
||
-- Фиксированный expense_item_id на лист — UI не передаёт R-код.
|
||
-- p_vsp_id обязателен. Опц.: p_contract_number, p_contract_end_date.
|
||
-- Внутри: находим/создаём родительскую budget_line с фиксированным ei,
|
||
-- затем INSERT в *_detail. Возврат — одна новая LEAF.
|
||
IF p_sheet IN ('AHR_RENT','AHR_UTILITY','AHR_SECURITY') THEN
|
||
v_sat_table := CASE p_sheet
|
||
WHEN 'AHR_RENT' THEN 'rent_detail'
|
||
WHEN 'AHR_UTILITY' THEN 'utility_detail'
|
||
WHEN 'AHR_SECURITY' THEN 'security_detail'
|
||
END;
|
||
v_sat_eid := CASE p_sheet
|
||
WHEN 'AHR_RENT' THEN 293 -- R061031001 "Аренда_ОН"
|
||
WHEN 'AHR_UTILITY' THEN 24 -- 1.05.1. "Коммунальные услуги"
|
||
WHEN 'AHR_SECURITY' THEN 779 -- R061062001 "Пультовая охр.ОН"
|
||
END;
|
||
|
||
IF p_vsp_id IS NULL THEN
|
||
RAISE EXCEPTION 'p_vsp_id обязателен для сателлитного листа %', p_sheet;
|
||
END IF;
|
||
IF NOT EXISTS (SELECT 1 FROM v3.vsp WHERE id = p_vsp_id) THEN
|
||
RAISE EXCEPTION 'vsp id=% не существует', p_vsp_id;
|
||
END IF;
|
||
|
||
-- Находим/создаём родительскую budget_line под фиксированным ei
|
||
SELECT id INTO v_parent_line
|
||
FROM v3.budget_line
|
||
WHERE budget_form_id = p_form_id AND expense_item_id = v_sat_eid
|
||
LIMIT 1;
|
||
IF v_parent_line IS NULL THEN
|
||
INSERT INTO v3.budget_line (budget_form_id, expense_item_id, direction)
|
||
VALUES (
|
||
p_form_id, v_sat_eid,
|
||
CASE v_form_type WHEN 'FORM_2' THEN 'Support' WHEN 'FORM_4' THEN 'Development' ELSE NULL END
|
||
) RETURNING id INTO v_parent_line;
|
||
END IF;
|
||
|
||
-- INSERT в сателлит
|
||
EXECUTE format(
|
||
'INSERT INTO v3.%I (line_id, vsp_id, contract_number, contract_end_date) '
|
||
|| 'VALUES ($1, $2, $3, $4) RETURNING id',
|
||
v_sat_table
|
||
) USING v_parent_line, p_vsp_id, p_contract_number, p_contract_end_date
|
||
INTO v_new_id;
|
||
|
||
-- Возврат — одна новая INPUT-строка (отфильтрована по новому id сателлита)
|
||
RETURN QUERY
|
||
SELECT v.row_type, v.depth, v.sort_order, v.data
|
||
FROM v3.v_form_view(p_form_id, p_sheet, NULL, NULL) v
|
||
WHERE v.row_type = 'INPUT' AND (v.data->>'id')::INT = v_new_id;
|
||
RETURN;
|
||
END IF;
|
||
|
||
-- 2. Резолв expense_item_id
|
||
IF p_expense_item_id IS NOT NULL THEN
|
||
SELECT ei.id, ei.sheet INTO v_eid, v_sheet
|
||
FROM v3.expense_item ei WHERE ei.id = p_expense_item_id;
|
||
IF v_eid IS NULL THEN
|
||
RAISE EXCEPTION 'expense_item id=% не существует', p_expense_item_id;
|
||
END IF;
|
||
IF NOT EXISTS (
|
||
SELECT 1 FROM v3.expense_item_form_type
|
||
WHERE expense_item_id = v_eid AND form_type_code = v_form_type
|
||
) THEN
|
||
RAISE EXCEPTION 'expense_item id=% не привязан к form_type %', v_eid, v_form_type;
|
||
END IF;
|
||
ELSE
|
||
IF p_sheet IS NULL OR p_item_id IS NULL THEN
|
||
RAISE EXCEPTION 'нужен либо p_expense_item_id, либо (p_sheet + p_item_id)';
|
||
END IF;
|
||
|
||
SELECT count(*) INTO v_cnt
|
||
FROM v3.expense_item ei
|
||
JOIN v3.expense_item_form_type eift ON eift.expense_item_id = ei.id
|
||
WHERE ei.item_id = p_item_id
|
||
AND ei.sheet = p_sheet
|
||
AND eift.form_type_code = v_form_type
|
||
AND (p_section_code IS NULL OR ei.section_code = p_section_code)
|
||
AND (p_direction IS NULL OR ei.direction IS NULL OR ei.direction = p_direction);
|
||
|
||
IF v_cnt = 0 THEN
|
||
RAISE EXCEPTION 'expense_item не найден: sheet=%, item_id=%, section=%, direction=%, form=%',
|
||
p_sheet, p_item_id, p_section_code, p_direction, v_form_type;
|
||
END IF;
|
||
IF v_cnt > 1 THEN
|
||
RAISE EXCEPTION 'expense_item не уникален (% совпадений): sheet=%, item_id=%, section=%, direction=%. Уточните p_section_code или передайте p_expense_item_id напрямую',
|
||
v_cnt, p_sheet, p_item_id, p_section_code, p_direction;
|
||
END IF;
|
||
|
||
SELECT ei.id, ei.sheet INTO v_eid, v_sheet
|
||
FROM v3.expense_item ei
|
||
JOIN v3.expense_item_form_type eift ON eift.expense_item_id = ei.id
|
||
WHERE ei.item_id = p_item_id
|
||
AND ei.sheet = p_sheet
|
||
AND eift.form_type_code = v_form_type
|
||
AND (p_section_code IS NULL OR ei.section_code = p_section_code)
|
||
AND (p_direction IS NULL OR ei.direction IS NULL OR ei.direction = p_direction);
|
||
END IF;
|
||
|
||
-- 3. Авто-direction (для FORM_1/AHR|CAP — обязателен у юзера)
|
||
v_auto_dir := CASE
|
||
WHEN v_form_type = 'FORM_2' THEN 'Support'
|
||
WHEN v_form_type = 'FORM_4' THEN 'Development'
|
||
WHEN v_form_type = 'FORM_1' AND v_sheet = 'OPER' THEN NULL
|
||
ELSE NULL
|
||
END;
|
||
|
||
IF v_form_type = 'FORM_1' AND v_sheet IN ('AHR','CAP') AND p_direction IS NULL THEN
|
||
RAISE EXCEPTION 'p_direction обязателен для FORM_1 / sheet=% (Support|Development)', v_sheet;
|
||
END IF;
|
||
|
||
IF v_form_type IN ('FORM_2','FORM_4') AND p_direction IS NOT NULL AND p_direction <> v_auto_dir THEN
|
||
RAISE EXCEPTION 'p_direction=% несовместим с form_type=% (фиксирован=%)',
|
||
p_direction, v_form_type, v_auto_dir;
|
||
END IF;
|
||
|
||
IF v_form_type = 'FORM_1' AND v_sheet = 'OPER' AND p_direction IS NOT NULL THEN
|
||
RAISE EXCEPTION 'p_direction должен быть NULL для FORM_1 / sheet=OPER (получено: %)', p_direction;
|
||
END IF;
|
||
|
||
v_final_dir := COALESCE(p_direction, v_auto_dir);
|
||
|
||
-- 4. Sanity на vsp/project
|
||
IF p_vsp_id IS NOT NULL AND NOT EXISTS (SELECT 1 FROM v3.vsp WHERE id = p_vsp_id) THEN
|
||
RAISE EXCEPTION 'vsp id=% не существует', p_vsp_id;
|
||
END IF;
|
||
IF p_project_id IS NOT NULL AND NOT EXISTS (SELECT 1 FROM v3.form4_project WHERE id = p_project_id) THEN
|
||
RAISE EXCEPTION 'form4_project id=% не существует', p_project_id;
|
||
END IF;
|
||
|
||
-- 5. INSERT
|
||
INSERT INTO v3.budget_line (
|
||
budget_form_id, expense_item_id, name, internal_order,
|
||
vsp_id, project_id, direction, justification
|
||
) VALUES (
|
||
p_form_id, v_eid, p_name, p_internal_order,
|
||
p_vsp_id, p_project_id, v_final_dir, p_justification
|
||
) RETURNING id INTO v_new_id;
|
||
|
||
-- 5а. Аудит: ROW_CREATE
|
||
PERFORM v3.log_event(
|
||
'ROW_CREATE', 'ROW',
|
||
jsonb_build_object(
|
||
'sheet', v_sheet,
|
||
'line_id', v_new_id,
|
||
'expense_item_id', v_eid,
|
||
'direction', v_final_dir,
|
||
'name', p_name,
|
||
'vsp_id', p_vsp_id,
|
||
'project_id', p_project_id
|
||
),
|
||
p_form_id
|
||
);
|
||
|
||
-- 6. Возврат: только иерархия по пути нового ei + новая INPUT
|
||
DECLARE v_ei_path INT[];
|
||
BEGIN
|
||
v_ei_path := v3._expense_item_path_set(ARRAY[v_eid]);
|
||
RETURN QUERY
|
||
SELECT v.row_type, v.depth, v.sort_order, v.data
|
||
FROM v3.v_form_view(p_form_id, v_sheet, NULL, v_final_dir) v
|
||
WHERE (v.row_type IN ('ROOT','GROUP','ITEM','SUB_ITEM')
|
||
AND (v.data->'header'->>'expense_item_id')::INT = ANY(v_ei_path))
|
||
OR (v.row_type = 'INPUT' AND (v.data->>'line_id')::INT = v_new_id)
|
||
ORDER BY v.sort_order;
|
||
END;
|
||
END;
|
||
$function$
|
||
LANGUAGE plpgsql VOLATILE;
|