fontvielle
5ef2bfcd78
Логика процедур Фонтвьель (22.10.2026) на PSQL; привязки к справочникам клиента — FTV_M2M_SETTINGS; текст ошибки — в COMMENT через контекст транзакции. README — что проверить на базе клиента. Проверено на встроенном Firebird 2.5.9 (test/run.sh): все ветки событий, операция с проводкой, справочник, ошибки. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01Q7eREaYwUt1i4fNLZcGnjn
169 lines
9.7 KiB
SQL
169 lines
9.7 KiB
SQL
/* Bridge&Join — трансферные таблицы обмена M2M для Fancy DEPO на Firebird 2.5.
|
|
Аналог таблиц FTV_M2M* версии MSSQL. Отличия:
|
|
- ID — генератор + триггер (в 2.5 нет IDENTITY);
|
|
- GUID — CHAR(36) в верхнем регистре (как отдаёт MSSQL uniqueidentifier);
|
|
- COMMENT / M2M_REJECT_CODE varchar(MAX) — BLOB SUB_TYPE TEXT;
|
|
- ACTIVE bit — SMALLINT;
|
|
- FTV_M2M_SETTINGS — привязки к справочникам клиента (в MSSQL-версии они зашиты в тексты процедур).
|
|
Скрипт можно выполнять повторно: существующие объекты не пересоздаются (кроме триггеров и исключения). */
|
|
|
|
SET TERM ^ ;
|
|
|
|
EXECUTE BLOCK AS
|
|
BEGIN
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'FTV_M2M')) THEN
|
|
EXECUTE STATEMENT 'CREATE TABLE FTV_M2M (
|
|
ID INTEGER NOT NULL PRIMARY KEY,
|
|
GUID CHAR(36) NOT NULL,
|
|
STATE VARCHAR(64) DEFAULT ''TODO'' NOT NULL,
|
|
TIMENEW TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
|
|
TIMEBEG TIMESTAMP,
|
|
TIMEEND TIMESTAMP,
|
|
"COMMENT" BLOB SUB_TYPE TEXT,
|
|
DIRECTION VARCHAR(4) NOT NULL,
|
|
CONTRAGENT_M2M_CODE VARCHAR(255) NOT NULL,
|
|
DEPONENT_NAME VARCHAR(255) NOT NULL,
|
|
DEPONENT_DOC VARCHAR(255) NOT NULL,
|
|
DOC INTEGER,
|
|
CONTRAGENT INTEGER,
|
|
DEPONENT INTEGER)';
|
|
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'FTV_M2M_LINES')) THEN
|
|
EXECUTE STATEMENT 'CREATE TABLE FTV_M2M_LINES (
|
|
ID INTEGER NOT NULL PRIMARY KEY,
|
|
GUID CHAR(36) NOT NULL,
|
|
REFERENCE VARCHAR(36),
|
|
STATE VARCHAR(64) DEFAULT ''TODO'' NOT NULL,
|
|
TIMENEW TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
|
|
TIMEBEG TIMESTAMP,
|
|
TIMEEND TIMESTAMP,
|
|
ISIN VARCHAR(12),
|
|
SEC_CODE VARCHAR(255),
|
|
AMOUNT NUMERIC(18,7),
|
|
PLACE_NUMBER VARCHAR(128),
|
|
LINK_NUMBER VARCHAR(64),
|
|
DEPO_NUMBER VARCHAR(128),
|
|
DOC INTEGER,
|
|
DOL INTEGER,
|
|
SHARE INTEGER,
|
|
PLACE INTEGER,
|
|
DEPO INTEGER,
|
|
"COMMENT" BLOB SUB_TYPE TEXT)';
|
|
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'FTV_M2M_EVENTS')) THEN
|
|
EXECUTE STATEMENT 'CREATE TABLE FTV_M2M_EVENTS (
|
|
ID INTEGER NOT NULL PRIMARY KEY,
|
|
GUID CHAR(36),
|
|
REFERENCE VARCHAR(36),
|
|
STATE VARCHAR(64) DEFAULT ''TODO'' NOT NULL,
|
|
TIMENEW TIMESTAMP DEFAULT CURRENT_TIMESTAMP,
|
|
TIMEBEG TIMESTAMP,
|
|
TIMEEND TIMESTAMP,
|
|
"COMMENT" BLOB SUB_TYPE TEXT,
|
|
EVENT_TYPE VARCHAR(64) NOT NULL,
|
|
EVENT_DATE TIMESTAMP NOT NULL,
|
|
M2M_REJECT_CODE VARCHAR(1000),
|
|
PARAMETERS VARCHAR(4000))';
|
|
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'FTV_M2M_HANDBOOK')) THEN
|
|
EXECUTE STATEMENT 'CREATE TABLE FTV_M2M_HANDBOOK (
|
|
ID INTEGER NOT NULL PRIMARY KEY,
|
|
INN VARCHAR(12) NOT NULL,
|
|
PARTICIPANT_CODE VARCHAR(12),
|
|
KIND VARCHAR(8) NOT NULL,
|
|
NAME_FULL VARCHAR(255),
|
|
NAME_SHORT VARCHAR(128),
|
|
NAME_DISPLAY VARCHAR(255),
|
|
NAME_ENG VARCHAR(255),
|
|
HANDBOOK_AT TIMESTAMP,
|
|
UPDATED_AT TIMESTAMP DEFAULT CURRENT_TIMESTAMP NOT NULL,
|
|
ACTIVE SMALLINT DEFAULT 1 NOT NULL)';
|
|
|
|
/* Привязки к справочникам Fancy клиента: в MSSQL-версии (Фонтвьель) — числа в текстах процедур.
|
|
Заполняются при установке; пустое значение — процедура останавливается с понятной ошибкой. */
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = 'FTV_M2M_SETTINGS')) THEN
|
|
EXECUTE STATEMENT 'CREATE TABLE FTV_M2M_SETTINGS (
|
|
NAME VARCHAR(64) NOT NULL PRIMARY KEY,
|
|
VAL INTEGER,
|
|
"COMMENT" VARCHAR(255))';
|
|
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'FTV_M2M_GEN')) THEN
|
|
EXECUTE STATEMENT 'CREATE GENERATOR FTV_M2M_GEN';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'FTV_M2M_LINES_GEN')) THEN
|
|
EXECUTE STATEMENT 'CREATE GENERATOR FTV_M2M_LINES_GEN';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'FTV_M2M_EVENTS_GEN')) THEN
|
|
EXECUTE STATEMENT 'CREATE GENERATOR FTV_M2M_EVENTS_GEN';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$GENERATORS WHERE RDB$GENERATOR_NAME = 'FTV_M2M_HANDBOOK_GEN')) THEN
|
|
EXECUTE STATEMENT 'CREATE GENERATOR FTV_M2M_HANDBOOK_GEN';
|
|
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$INDICES WHERE RDB$INDEX_NAME = 'FTV_M2M_GUID')) THEN
|
|
EXECUTE STATEMENT 'CREATE INDEX FTV_M2M_GUID ON FTV_M2M (GUID)';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$INDICES WHERE RDB$INDEX_NAME = 'FTV_M2M_LINES_GUID')) THEN
|
|
EXECUTE STATEMENT 'CREATE INDEX FTV_M2M_LINES_GUID ON FTV_M2M_LINES (GUID)';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$INDICES WHERE RDB$INDEX_NAME = 'FTV_M2M_EVENTS_STATE')) THEN
|
|
EXECUTE STATEMENT 'CREATE INDEX FTV_M2M_EVENTS_STATE ON FTV_M2M_EVENTS (STATE)';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$INDICES WHERE RDB$INDEX_NAME = 'FTV_M2M_EVENTS_GUID')) THEN
|
|
EXECUTE STATEMENT 'CREATE INDEX FTV_M2M_EVENTS_GUID ON FTV_M2M_EVENTS (GUID)';
|
|
IF (NOT EXISTS (SELECT 1 FROM RDB$INDICES WHERE RDB$INDEX_NAME = 'FTV_M2M_HANDBOOK_INN')) THEN
|
|
EXECUTE STATEMENT 'CREATE INDEX FTV_M2M_HANDBOOK_INN ON FTV_M2M_HANDBOOK (INN)';
|
|
END^
|
|
|
|
/* таблицы — до триггеров: DDL блока выполняется в его транзакции */
|
|
COMMIT^
|
|
|
|
CREATE OR ALTER TRIGGER FTV_M2M_BI FOR FTV_M2M ACTIVE BEFORE INSERT POSITION 0 AS
|
|
BEGIN
|
|
IF (NEW.ID IS NULL OR NEW.ID = 0) THEN NEW.ID = GEN_ID(FTV_M2M_GEN, 1);
|
|
NEW.GUID = UPPER(NEW.GUID);
|
|
END^
|
|
|
|
CREATE OR ALTER TRIGGER FTV_M2M_LINES_BI FOR FTV_M2M_LINES ACTIVE BEFORE INSERT POSITION 0 AS
|
|
BEGIN
|
|
IF (NEW.ID IS NULL OR NEW.ID = 0) THEN NEW.ID = GEN_ID(FTV_M2M_LINES_GEN, 1);
|
|
NEW.GUID = UPPER(NEW.GUID);
|
|
END^
|
|
|
|
CREATE OR ALTER TRIGGER FTV_M2M_EVENTS_BI FOR FTV_M2M_EVENTS ACTIVE BEFORE INSERT POSITION 0 AS
|
|
BEGIN
|
|
IF (NEW.ID IS NULL OR NEW.ID = 0) THEN NEW.ID = GEN_ID(FTV_M2M_EVENTS_GEN, 1);
|
|
NEW.GUID = UPPER(NEW.GUID);
|
|
END^
|
|
|
|
CREATE OR ALTER TRIGGER FTV_M2M_HANDBOOK_BI FOR FTV_M2M_HANDBOOK ACTIVE BEFORE INSERT POSITION 0 AS
|
|
BEGIN
|
|
IF (NEW.ID IS NULL OR NEW.ID = 0) THEN NEW.ID = GEN_ID(FTV_M2M_HANDBOOK_GEN, 1);
|
|
END^
|
|
|
|
SET TERM ; ^
|
|
|
|
/* Ошибка обработки: процедуры поднимают её с текстом причины (аналог raiserror MSSQL-версии). */
|
|
CREATE OR ALTER EXCEPTION FTV_M2M_ERROR 'Ошибка обработки M2M';
|
|
|
|
/* Строки настроек без значений: ID у каждого клиента свои, в комментарии — значение у Фонтвьель (MSSQL) для
|
|
ориентира. Вставляются только отсутствующие строки — повторный запуск не затирает заполненные значения. */
|
|
SET TERM ^ ;
|
|
EXECUTE BLOCK AS
|
|
BEGIN
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'WHOS')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('WHOS', NULL, 'OD_DOCS.WHOS — юрлицо-депозитарий (Фонтвьель: 383118)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'OPER_USER')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('OPER_USER', NULL, 'OD_OPERATORS.ID — оператор проводок (Фонтвьель: 84, SYSDBA)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'FILER_CAT')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('FILER_CAT', NULL, 'OD_DOC_CATS.ID категории D_FILER — входящая запись (Фонтвьель: 255)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'D_NUM')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('D_NUM', NULL, 'OD_BALANCES.ID — 98010 НОСТРО депо базовый (Фонтвьель: 313)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'K_NUM')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('K_NUM', NULL, 'OD_BALANCES.ID — 98070 ЦБ на торгах (Фонтвьель: 836)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'MARKET')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('MARKET', NULL, 'OD_FACES.SELF_ID — ПАО Московская Биржа (Фонтвьель: 8106)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'B_TYPE')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('B_TYPE', NULL, 'OD_SYS_TABS DEPO96_DCLA.NUM — «Отчёт депозитария» (Фонтвьель: 31)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'CORR_FACE')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('CORR_FACE', NULL, 'OD_FACES.SELF_ID — НКО АО НРД, корреспондент входящей записи (Фонтвьель: 18174)');
|
|
IF (NOT EXISTS (SELECT 1 FROM FTV_M2M_SETTINGS WHERE NAME = 'FILER_RUBRICA')) THEN
|
|
INSERT INTO FTV_M2M_SETTINGS (NAME, VAL, "COMMENT") VALUES ('FILER_RUBRICA', NULL, 'D_FILER.RUBRICA для отчёта НРД (Фонтвьель: 5, «уточнить в депозитарии»)');
|
|
END^
|
|
SET TERM ; ^
|
|
|
|
COMMIT;
|