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
This commit is contained in:
@@ -158,7 +158,7 @@ func depoInPosted(ctx context.Context, rc *RuntimeConfig, guid string) (gate, po
|
||||
|
||||
func depoHasColumn(ctx context.Context, db *sql.DB, table, col string) bool {
|
||||
var n int
|
||||
_ = db.QueryRowContext(ctx, "SELECT COUNT(*) FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME=@t AND COLUMN_NAME=@c", sql.Named("t", table), sql.Named("c", col)).Scan(&n)
|
||||
_ = db.QueryRowContext(ctx, fsql.Cat04, sql.Named("t", table), sql.Named("c", col)).Scan(&n)
|
||||
return n > 0
|
||||
}
|
||||
|
||||
@@ -706,6 +706,9 @@ func depoWriteHandbookCtx(pctx context.Context, rc *RuntimeConfig) error {
|
||||
ctx, cancel := context.WithTimeout(pctx, 60*time.Second)
|
||||
defer cancel()
|
||||
if !depoTableExists(ctx, db, "FTV_M2M_HANDBOOK") {
|
||||
if rc.Snapshot().Fancy.IsFirebird() { // у логина bj в Firebird нет права создавать таблицы — их ставит подготовка базы
|
||||
return fmt.Errorf("нет таблицы FTV_M2M_HANDBOOK — подготовьте базу DEPO: мастер, шаг «Учёт DEPO»")
|
||||
}
|
||||
if _, err := db.ExecContext(ctx, depoTableSpecByName("FTV_M2M_HANDBOOK").createSQL(false)); err != nil {
|
||||
return fmt.Errorf("создание FTV_M2M_HANDBOOK: %w — создайте таблицы: Настройка → Обмен Fancy → «Трансферные таблицы DEPO»", err)
|
||||
}
|
||||
@@ -827,6 +830,9 @@ func depoJobProcName(f FancyMSSQLSettings) string {
|
||||
if p := strings.TrimSpace(f.DepoJobProc); p != "" {
|
||||
return p
|
||||
}
|
||||
if f.IsFirebird() { // схем у Firebird нет
|
||||
return "FTV_M2M_JOB"
|
||||
}
|
||||
return "dbo.FTV_M2M_JOB"
|
||||
}
|
||||
|
||||
@@ -1012,7 +1018,7 @@ func depoJobRunnerCheck(ctx context.Context, rc *RuntimeConfig, adminUser, admin
|
||||
}
|
||||
defer db.Close()
|
||||
var n int
|
||||
_ = db.QueryRowContext(ctx, "SELECT COUNT(*) FROM fn_my_permissions(@p,'OBJECT') WHERE permission_name='EXECUTE'", sql.Named("p", depoJobProcName(f))).Scan(&n)
|
||||
_ = db.QueryRowContext(ctx, fsql.Cat05, sql.Named("p", depoJobProcName(f))).Scan(&n)
|
||||
if n == 0 {
|
||||
return "у логина " + f.User + " нет права EXECUTE на " + depoJobProcName(f) + " — выполните на сервере: " + strings.ReplaceAll(depoJobGrantScript(f), "\n", " "), false
|
||||
}
|
||||
@@ -1610,7 +1616,7 @@ func depoMissing(ctx context.Context, db *sql.DB, names []string, typ string) []
|
||||
var out []string
|
||||
for _, n := range names {
|
||||
var ok int
|
||||
if err := db.QueryRowContext(ctx, "SELECT CASE WHEN OBJECT_ID(@n, @t) IS NULL THEN 0 ELSE 1 END", sql.Named("n", "dbo."+n), sql.Named("t", typ)).Scan(&ok); err == nil && ok == 0 {
|
||||
if err := db.QueryRowContext(ctx, fsql.Cat06, sql.Named("n", "dbo."+n), sql.Named("t", typ)).Scan(&ok); err == nil && ok == 0 {
|
||||
out = append(out, n)
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user