/* 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;