При ведении многофирменного учета в конфигурации 1С:Управление производственным предприятием (УПП) редакции 1.3 рано или поздно возникает задача разделения бизнеса или передачи учета по конкретному юридическому лицу сторонним владельцам. На практике это означает необходимость выгрузить все данные по одной организации в отдельную базу, оставив историю, справочники и настройки в неизменном виде.
Когда размер базы составляет несколько гигабайт, задача решается стандартной выгрузкой в XML. Но если база имеет внушительный объем (например, от 20–30 ГБ в формате .dt, что в СУБД эквивалентно 100 ГБ и более), классические механизмы 1С начинают выдавать ошибки нехватки памяти (Out of memory) или растягивают процесс на недели. Разберем детально три эффективных метода разделения крупной информационной базы УПП 1.3, проанализируем их плюсы, минусы и особенности реализации.
Для баз данных большого объема это самый надежный и предсказуемый способ. Вместо попыток выгрузить огромный объем нужной информации в пустую базу, мы берем копию текущей базы и удаляем из нее все сведения по ненужным организациям. Однако стандартное удаление помеченных объектов в УПП на больших объемах документов работает крайне медленно из-за непрерывного контроля ссылочной целостности платформой 1С.
Рассмотрим по шагам, как автоматизировать этот процесс программно, отключив контроль целостности на время удаления.
Шаг 1. Программная пометка на удаление документов по фильтру организации
Для начала напишем обработку, которая быстро пометит на удаление все документы, относящиеся к исключаемым организациям. Мы будем обходить метаданные документов, искать реквизит Организация и устанавливать пометку.
ВыборкаМетаданных = Метаданные.Документы;
Для Каждого ТекМетаданные Из ВыборкаМетаданных Цикл
ИмяДокумента = ТекМетаданные.Имя;
// Проверяем наличие реквизита "Организация"
Если ТекМетаданные.Реквизиты.Найти("Организация") <> Неопределено Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ссылка
|ИЗ
| Документ." + ИмяДокумента + " КАК ТекДок
|ГДЕ
| ТекДок.Организация <> &НужнаяОрганизация";
Запрос.УстановитьПараметр("НужнаяОрганизация", СсылкаНаНужнуюОрганизацию);
РезультатЗапроса = Запрос.Выполнить();
Если Не РезультатЗапроса.Пустой() Тогда
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ОбъектДок = Выборка.Ссылка.ПолучитьОбъект();
ОбъектДок.УстановитьПометкуУдаления(Истина);
КонецЦикла;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Шаг 2. Непосредственное удаление документов без контроля ссылок
Чтобы физически очистить базу за несколько часов, а не дней, удаление необходимо выполнять напрямую. Важно понимать, что этот шаг нарушит ссылочную целостность базы (в полях документов других организаций появятся «битые» ссылки), но на следующем шаге мы это исправим.
// Удаление объектов без контроля целостности
Для Каждого ТекМетаданные Из Метаданные.Документы Цикл
ИмяДокумента = ТекМетаданные.Имя;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Ссылка
|ИЗ
| Документ." + ИмяДокумента + " КАК ТекДок
|ГДЕ
| ТекДок.ПометкаУдаления = ИСТИНА";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ОбъектДок = Выборка.Ссылка.ПолучитьОбъект();
Попытка
ОбъектДок.Удалить(); // Прямое удаление из базы
Исключение
ЗаписьЖурналаРегистрации("УдалениеДанных", УровеньЖурналаРегистрации.Предупреждение, , , "Ошибка удаления: " + ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецЦикла;
Шаг 3. Восстановление целостности базы через Тестирование и исправление (ТиИ)
После удаления документов в базе останутся связанные записи в регистрах сведений, регистр накопления и битые ссылки. Чтобы корректно завершить очистку:
Совет для СУБД MS SQL/PostgreSQL: Если вы обладаете навыками администрирования баз данных, удаление записей по организации в таблицах _Document... и связанных с ними таблицах движений _AccumReg... можно выполнить напрямую через SQL-запросы. Это займет не более 10–15 минут, после чего запущенное в конфигураторе Тестирование и исправление (ТиИ) приведет базу 1С в полностью корректное и целостное состояние.
---
В типовой конфигурации УПП 1.3 присутствует план обмена «Обмен с конфигурацией Управление производственным предприятием, редакция 1.3». В нем заложена возможность устанавливать отбор по организации. Но по умолчанию этот план обмена не является распределенным (нет признака РИБ), из-за чего кнопка «Создать начальный образ» для него недоступна. Выясним, как обойти это ограничение.
Шаг 1. Включение признака РИБ в конфигураторе
Шаг 2. Создание узла обмена и начального образа
Шаг 3. Отвязка созданной базы от главного узла
После успешного создания начального образа полученная база будет находиться в режиме подчиненного узла (в ней заблокирована возможность изменения конфигурации и некоторых данных). Чтобы сделать ее полностью автономной и независимой, запустим в созданной базе-приемнике следующую команду в групповой обработке или внешней обработке:
ПланыОбмена.УстановитьГлавныйУзел(Неопределено);
После выполнения этой строки кода база превратится в самостоятельную рабочую конфигурацию УПП.
---
Если требуется перенести не просто «всё по организации», а выборочно исключить определенные виды документов или перенастроить структуру данных в процессе переноса, незаменимым инструментом становится конфигурация «Конвертация данных 2.0».
Главная проблема выгрузки через КД для баз объемом более 20 ГБ — переполнение оперативной памяти. Разберем, как правильно настроить правила конвертации, организовать фильтрацию по организации и обойти проблему нехватки памяти.
Шаг 1. Настройка глобального фильтра в правилах конвертации
Создадим правила обмена «УПП -> УПП» в Конвертации Данных. Чтобы не прописывать условия в каждом правиле выгрузки данных (ПВД) вручную, используем единый обработчик в корне правил.
Организация (тип — Ссылка на справочник «Организации»).
// Проверяем, является ли выгружаемый объект справочником или документом
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Объект)) Или Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(Объект)) Тогда
// Проверяем наличие реквизита "Организация" у метаданных объекта
Если Объект.Метаданные().Реквизиты.Найти("Организация") <> Неопределено Тогда
// Сравниваем значение реквизита с переданным параметром выгрузки
Если Объект.Организация <> Параметры.Организация Тогда
Отказ = Истина; // Отменяем выгрузку этого объекта
КонецЕсли;
КонецЕсли;
КонецЕсли;
Этот код автоматически проверит любой справочник или документ перед отправкой в файл XML. Если у объекта есть реквизит Организация, и он не совпадает с выбранной нами в параметрах организацией, выгрузка объекта будет отменена.
Шаг 2. Решение проблемы нехватки памяти при выгрузке (пакетирование)
Стандартная обработка УниверсальныйОбменДаннымиXML пытается собрать весь файл выгрузки в оперативной памяти сервера перед записью на диск. При выгрузке базы объемом в десятки гигабайт это гарантированно приведет к аварийному завершению процесса. Решить эту проблему можно следующими способами:
---
Выбор конкретного метода зависит от технических характеристик вашего сервера и размера базы данных: