zuevav/Bridge-and-Join-s
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
feature/keywizard-m2m-live
Bridge-and-Join-s/deploy/depo/fancy-m2m-firebird/00_FTV_M2M_TABLES.sql
T
fontvielle 50e420f4a0 DEPO на Firebird в мастере: подготовка базы одним действием, как для MSSQL 
Мастер, шаг «Учёт DEPO», и «Обмен с DEPO» в настройках: СУБД «Firebird» (Fancy на Firebird 2.5).
- Подключение: драйвер nakagami/firebirdsql, путь к файлу базы или псевдоним, WIN1251. Запросы bj к DEPO
  (T-SQL) подключение переводит само (fancyfb.go): механически (dbo., TOP, ISNULL, GETDATE, LEN, N, exec)
  вне строк и комментариев, точные тексты — fsql/fb.go (каталоги, LIKE [_], COUNT(*) OVER, SELECT без FROM,
  PATINDEX); @имена — позиционные ?, GUID — в верхнем регистре. Системные запросы из кода — в fsql/depocatalog.go.
- «Подготовить» логином SYSDBA (depo_setup_fb.go): проверка базы и UDF Fancy, логин SYSDBA_BJ (Fancy даёт права
  на документы логинам SYSDBA%; для Firebird — обычный пользователь), оператор-робот Fancy, кодировщик M2M,
  привязки FTV_M2M_SETTINGS по признакам Fancy, таблицы, процедуры, права; обработку запускает bj.
  «Получить скрипт» — то же для isql в WIN1251; письмо администратору, установка процедур, плашка обновления.
- Скрипты Firebird встроены (depoprocs/firebird, тест сверяет с deploy/); количества — DOUBLE PRECISION: из
  диалекта 3 в базу диалекта 1 процедуру с NUMERIC(18,7) не создать.
- Проверено на копии базы Fancy (отдельный экземпляр bj): мастер с нуля — все проверки, BJ_PING; тестовый режим
  DEPO — К1 Бубликов, зачисление и списание до исполнения без ошибок; очередь, справочник НРД.
  Тест FBLive готовит на базе все запросы bj к DEPO: 94 из 101, оставшиеся 7 — ЛК и ручной ввод (следующий этап).

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Q7eREaYwUt1i4fNLZcGnjn
2026-10-27 18:55:02 +03:00

169 lines
9.7 KiB
SQL
Raw Permalink Blame History

/* 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; AMOUNT numeric(25,7) — DOUBLE PRECISION, как количества в Fancy;
- 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 DOUBLE PRECISION,
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;
Reference in New Issue View Git Blame Copy Permalink