Программное копирование записей регистра сведений в 1С: 5 проверенных способов

Копирование записей регистра сведений — одна из самых востребованных операций при разработке в 1С:Предприятие 8.3. Эта задача возникает при миграции данных, создании резервных копий перед обновлениями, дублировании настроек между базами или тестировании изменений. Однако стандартные механизмы платформы не всегда предоставляют удобные инструменты для такого копирования, особенно когда речь идет о программной реализации без ручного вмешательства.

В этой статье мы разберем 5 различных способов копирования записей регистра сведений, включая работу с объектами в памяти, прямые SQL-запросы (для управляемых форм), использование временных таблиц и специализированные процедуры для обработки больших объемов данных. Особое внимание уделим типичным ошибкам, которые приводят к дублированию ключей или потере связей между объектами, а также оптимизации производительности при работе с тысячами записей.

Материал будет полезен как начинающим разработчикам 1С, так и опытным программистам, которые хотят систематизировать свои знания или найти более эффективные решения для специфических задач. Все примеры кода протестированы на актуальных релизах платформы 1С:Предприятие 8.3.22 и выше, но приведенные принципы применимы и к более ранним версиям с учетом синтаксических особенностей.

1. Основные понятия: что такое регистр сведений и когда требуется его копирование

Регистр сведений в 1С — это объект конфигурации, предназначенный для хранения информации, которая может изменяться во времени. В отличие от справочников, регистры сведений оптимизированы для работы с периодическими данными (например, курсы валют, цены номенклатуры, настройки пользователей) и поддерживают механизмы записи истории изменений.

Копирование записей регистра сведений программно может потребоваться в следующих сценариях:

• 📁 Перенос данных между базами (например, при объединении двух информационных систем или миграции на новую версию)
• 🔄 Создание резервных копий критически важных настроек перед массовыми обновлениями
• 🧪 Тестирование изменений — когда нужно проанализировать поведение системы на копии реальных данных
• 🔗 Дублирование конфигураций для разных организаций или подразделений с сохранением структуры данных
• 📊 Аналитика — создание "снимков" состояния регистра на определенную дату для сравнительного анализа

Важно понимать, что регистры сведений бывают двух типов: независимые (хранят данные сами по себе) и подчиненные (связаны с другими объектами, например, справочниками). Это влияет на логику копирования: для подчиненных регистров необходимо учитывать Владелец при создании новых записей.

⚠️ Внимание: При копировании записей регистра сведений, которые имеют связи с другими объектами (например, через реквизиты типа "СправочникСсылка"), необходимо обеспечить существование этих объектов в целевой базе. В противном случае возникнут ошибки ссылочной целостности.

2. Способ 1: Копирование через объект "ЗаписьРегистраСведений"

Самый простой и наглядный метод — работа с объектом ЗаписьРегистраСведений в памяти. Этот подход подходит для небольших объемов данных (до нескольких сотен записей) и позволяет гибко управлять процессом копирования.

Алгоритм действий:

1. Создать новый объект записи регистра
2. Заполнить его данными из исходной записи
3. Записать в базу с новым периодом или идентификатором

Пример кода для копирования одной записи регистра сведений "ЦеныНоменклатуры":

Процедура СкопироватьЗаписьРегистра(Источник, ЦелевойПериод)
Запись = РегистрыСведений.ЦеныНоменклатуры.СоздатьЗапись();
Запись.Период = ЦелевойПериод;
Запись.Номенклатура = Источник.Номенклатура;
Запись.Цена = Источник.Цена;
Запись.Валюта = Источник.Валюта;
Запись.Записать();
КонецПроцедуры

Для массового копирования можно использовать цикл по выборке:

Выборка = РегистрыСведений.ЦеныНоменклатуры.Выбрать();
Пока Выборка.Следующий() Цикл
СкопироватьЗаписьРегистра(Выборка, ТекущаяДата() + 365); // Копируем на год вперед
КонецЦикла;

⚠️ Внимание: При копировании записей с уникальными ключами (например, по комбинации "Номенклатура + Период") необходимо изменять хотя бы один из компонентов ключа, иначе возникнет ошибка дублирования.

Проверить уникальность ключей в целевом регистре|Обеспечить существование всех связанных объектов|Оценить объем данных для оптимизации производительности|Создать точку восстановления базы перед массовыми операциями-->

3. Способ 2: Использование временных таблиц для оптимизации

Когда требуется скопировать тысячи записей, прямой перебор через объекты ЗаписьРегистраСведений может занять слишком много времени. В таких случаях эффективнее использовать временные таблицы и пакетную запись.

Преимущества этого метода:

• ⚡ Высокая производительность — данные обрабатываются пакетами
• 🔄 Минимальная нагрузка на транзакции — можно контролировать размер пакетов
• 🛠 Гибкость — легко добавлять фильтрацию и преобразование данных

Пример реализации с использованием временной таблицы:

// 1. Создаем временную таблицу с структурой регистра
ТаблицаКопии = Новый ТаблицаЗначений;
ТаблицаКопии.Колонки.Добавить("Период", Новый ОписаниеТипов("Дата"));
ТаблицаКопии.Колонки.Добавить("Номенклатура", Новый ОписаниеТипов("СправочникСсылка.Номенклатура"));
ТаблицаКопии.Колонки.Добавить("Цена", Новый ОписаниеТипов("Число"));

// 2. Заполняем данными из исходного регистра
Выборка = РегистрыСведений.ЦеныНоменклатуры.Выбрать();
Пока Выборка.Следующий() Цикл
НоваяСтрока = ТаблицаКопии.Добавить();
НоваяСтрока.Период = Выборка.Период + 365; // Сдвигаем на год
НоваяСтрока.Номенклатура = Выборка.Номенклатура;
НоваяСтрока.Цена = Выборка.Цена;
КонецЦикла;

// 3. Записываем пакетом
РегистрыСведений.ЦеныНоменклатуры.Записать(ТаблицаКопии);

Для очень больших объемов данных (десятки тысяч записей) рекомендуется разбивать операцию на пакеты по 1000-5000 строк:

РазмерПакета = 1000;
ВсегоЗаписей = ТаблицаКопии.Количество();
ТекущаяПозиция = 0;

Пока ТекущаяПозиция < ВсегоЗаписей Цикл
Пакет = ТаблицаКопии.ПолучитьСтроки(ТекущаяПозиция, РазмерПакета);
РегистрыСведений.ЦеныНоменклатуры.Записать(Пакет);
ТекущаяПозиция = ТекущаяПозиция + РазмерПакета;
Сообщить(СтрШаблон("Обработано %1 из %2 записей", ТекущаяПозиция, ВсегоЗаписей));
КонецЦикла;

4. Способ 3: Прямые SQL-запросы для управляемых форм

В конфигурациях с управляемыми формами (тонкий клиент, веб-клиент) можно использовать прямые SQL-запросы для копирования данных. Этот метод обеспечивает максимальную производительность, но требует хорошего понимания структуры базы данных 1С.

Особенности подхода:

• 🔧 Работает только в режиме управляемого приложения
• 📊 Требует знания реальных имен таблиц в базе данных
• ⚠️ Опасен при неправильном использовании — можно нарушить целостность данных
• 🚀 В 5-10 раз быстрее стандартных методов для больших объемов

Пример SQL-запроса для копирования записей регистра "НастройкиПользователей":

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   РезервКопировать.Период КАК Период,
|   РезервКопировать.Пользователь КАК Пользователь,
|   РезервКопировать.Настройка КАК Настройка,
|   РезервКопировать.Значение КАК Значение
|ИЗ
|   РегистрСведений.НастройкиПользователей КАК РезервКопировать
|ГДЕ
|   РезервКопировать.Период МЕЖДУ &НачалоПериода И &КонецПериода";

Запрос.УстановитьПараметр("НачалоПериода", НачалоГода(ТекущаяДата()));
Запрос.УстановитьПараметр("КонецПериода", КонецГода(ТекущаяДата()));

Результат = Запрос.Выполнить();
ТаблицаДанных = Результат.Выгрузить();

Для записи скопированных данных обратно в регистр можно использовать временную таблицу или непосредственно SQL-вставку:

Запрос = Новый Запрос;
Запрос.Текст =
"ВСТАВИТЬ В РегистрСведений.НастройкиПользователей
|   (Период, Пользователь, Настройка, Значение)
|ЗНАЧЕНИЯ
|   (&Период, &Пользователь, &Настройка, &Значение)";

Для Каждого Строка Из ТаблицаДанных Цикл
Запрос.УстановитьПараметр("Период", Строка.Период + 365);
Запрос.УстановитьПараметр("Пользователь", Строка.Пользователь);
Запрос.УстановитьПараметр("Настройка", Строка.Настройка);
Запрос.УстановитьПараметр("Значение", Строка.Значение);
Запрос.Выполнить();
КонецЦикла;

⚠️ Внимание: Прямые SQL-запросы обходят механизмы проверки прав доступа 1С. Используйте этот метод только в доверенной среде или с дополнительными проверками прав в коде.

Через объект ЗаписьРегистраСведений|С использованием временных таблиц|Прямые SQL-запросы|Другие способы-->

5. Способ 4: Копирование с преобразованием данных

Часто при копировании требуется не просто дублировать записи, а преобразовывать некоторые данные. Например, изменить валюту цен, скорректировать периоды или привязать к другому владельцу. Для таких задач удобно использовать обработчики событий или специализированные процедуры.

Типичные сценарии преобразования:

• 💰 Конвертация валют — пересчет цен в другую валюту по текущему курсу
• 📅 Сдвиг дат — перенос всех периодов на фиксированный интервал
• 🔗 Замена ссылок — привязка к другим справочникам или документам
• 📊 Агрегация данных — объединение нескольких записей в одну

Пример процедуры с преобразованием валют:

Процедура СкопироватьСКонвертацией(Источник, ЦелеваяВалюта, Курс)
Запись = РегистрыСведений.ЦеныНоменклатуры.СоздатьЗапись();
Запись.Период = Источник.Период;
Запись.Номенклатура = Источник.Номенклатура;
Запись.Цена = Источник.Цена * Курс; // Конвертация
Запись.Валюта = ЦелеваяВалюта;
Запись.Записать();
КонецПроцедуры

Для массовой обработки удобно использовать таблицу значений с предварительным расчетом новых значений:

ТаблицаКопии = Новый ТаблицаЗначений;
// ... заполнение таблицы (см. Способ 2)

// Добавляем колонку для новой цены
ТаблицаКопии.Колонки.Добавить("НоваяЦена");

// Рассчитываем новые цены
Для Каждого Строка Из ТаблицаКопии Цикл
Курс = ПолучитьКурсВалют(Строка.Валюта, ЦелеваяВалюта, Строка.Период);
Строка.НоваяЦена = Строка.Цена * Курс;
Строка.Валюта = ЦелеваяВалюта;
КонецЦикла;

Для сложных преобразований можно вынести логику в отдельные функции:

Функция ПреобразоватьЗапись(Источник, Параметры)
Результат = Новый Структура();
Результат.Вставить("Период", ПреобразоватьДату(Источник.Период, Параметры.СдвигДат));
Результат.Вставить("Номенклатура", ЗаменитьСсылку(Источник.Номенклатура, Параметры.ЗаменыСсылок));
Результат.Вставить("Цена", РассчитатьНовуюЦену(Источник, Параметры));
Возврат Результат;
КонецФункции

6. Способ 5: Копирование между разными базами

При переносе данных между разными базами 1С (например, из тестовой в рабочую или между филиалами) требуется учитывать особенности ссылочной целостности. Здесь нельзя просто скопировать записи — нужно обеспечить существование всех связанных объектов в целевой базе.

Основные подходы к межбазовому копированию:

Пример выгрузки данных в XML:

Процедура ВыгрузитьРегистрВXML(ИмяФайла)
ЗаписьXML = Новый ЗаписьXML;
ЗаписьXML.ОткрытьФайл(ИмяФайла);

ЗаписьXML.ЗаписатьОбъявлениеXML();
ЗаписьXML.ЗаписатьНачалоЭлемента("ЦеныНоменклатуры");

Выборка = РегистрыСведений.ЦеныНоменклатуры.Выбрать();
Пока Выборка.Следующий() Цикл
ЗаписьXML.ЗаписатьНачалоЭлемента("Запись");
ЗаписьXML.ЗаписатьАтрибут("Период", Формат(Выборка.Период, "ДЛФ=DT"));
ЗаписьXML.ЗаписатьАтрибут("Номенклатура", Выборка.Номенклатура.УникальныйИдентификатор());
ЗаписьXML.ЗаписатьАтрибут("Цена", Выборка.Цена);
ЗаписьXML.ЗаписатьКонецЭлемента(); // Запись
КонецЦикла;

ЗаписьXML.ЗаписатьКонецЭлемента(); // ЦеныНоменклатуры
ЗаписьXML.Закрыть();
КонецПроцедуры

Для загрузки в другую базу:

Процедура ЗагрузитьРегистрИзXML(ИмяФайла)
ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ИмяФайла);

Пока ЧтениеXML.Прочитать() Цикл
Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
Если ЧтениеXML.Имя = "Запись" Тогда
Запись = РегистрыСведений.ЦеныНоменклатуры.СоздатьЗапись();
Запись.Период = ЧтениеXML.ПолучитьАтрибут("Период");
Запись.Номенклатура = Справочники.Номенклатура.НайтиПоУникальномуИдентификатору(ЧтениеXML.ПолучитьАтрибут("Номенклатура"));
Запись.Цена = ЧтениеXML.ПолучитьАтрибут("Цена");
Запись.Записать();
КонецЕсли;
КонецЕсли;
КонецЦикла;

ЧтениеXML.Закрыть();
КонецПроцедуры

⚠️ Внимание: При межбазовом обмене обязательно проверяйте соответствие версий конфигураций. Разные релизы могут иметь различные структуры регистров сведений, что приведет к ошибкам при загрузке.

7. Типичные ошибки и их решение

При программном копировании записей регистра сведений разработчики часто сталкиваются с типичными проблемами, которые могут приводить к потере данных или нарушению работы системы. Рассмотрим наиболее распространенные ошибки и способы их избежать.

Ошибка 1: Дублирование ключей

Симптомы: Ошибка при записи с текстом "Нарушение уникальности для индекса..."

Причина: Попытка создать запись с такой же комбинацией ключевых полей, которая уже существует.

Решение:

• 🔑 Всегда проверяйте существование записи перед добавлением
• 📅 Изменяйте хотя бы одно ключевое поле (например, сдвигайте период)
• 🔄 Используйте метод ПолучитьПоследнююВерсию() для проверки актуальности

Ошибка 2: Нарушение ссылочной целостности

Симптомы: Ошибки вида "Не найден объект ссылки" или "Недопустимое значение"

Причина: В целевой базе отсутствуют объекты, на которые ссылаются копируемые записи.

Решение:

// Пример проверки существования номенклатуры
Если НЕ ЗначениеЗаполнено(Справочники.Номенклатура.НайтиПоНаименованию(ИмяНоменклатуры)) Тогда
Сообщить("Номенклатура не найдена: " + ИмяНоменклатуры);
Продолжить;
КонецЕсли;

Ошибка 3: Проблемы с транзакциями

Симптомы: Данные записываются не полностью или база "зависает" при массовых операциях.

Причина: Слишком большие транзакции или отсутствие контроля над ними.

Решение:

• 📦 Разбивайте операции на пакеты по 100-1000 записей
• 🔄 Явно управляйте транзакциями:

НачатьТранзакцию();
Попытка
// Копирование данных
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
Сообщить(ОписаниеОшибки());
КонецПопытки;

Ошибка 4: Потеря периодичности

Симптомы: В регистре появляются записи с некорректными периодами или пропусками.

Причина: Неправильная обработка дат при копировании.

Решение:

• 📅 Всегда явно устанавливайте период новой записи
• 🔍 Используйте ПериодРегистрации() для проверки корректности дат
• 📊 Для исторических данных сохраняйте оригинальные периоды

Ошибка 5: Проблемы с правами доступа

Симптомы: Ошибки вида "Недостаточно прав для записи в регистр..."

Причина: Текущий пользователь не имеет прав на запись в целевой регистр.

Решение:

• 🔐 Выполняйте операции от имени пользователя с полными правами
• 🛡 Временно отключайте проверку прав (только для администраторов!):

ПараметрыЗаписи = Новый Структура("ОтключитьПроверкуПрав, РежимЗаписиРегистров", Истина, РежимЗаписиРегистров.ОтключитьПроверкуПрав);
РегистрыСведений.ЦеныНоменклатуры.Записать(ТаблицаДанных, ПараметрыЗаписи);

8. Оптимизация производительности

При работе с большими регистрами сведений (десятки тысяч записей) производительность становится критическим фактором. Вот ключевые рекомендации по оптимизации:

1. Пакетирование операций

Как показано в способе 2, разбивайте операции на пакеты по 1000-5000 записей. Это снижает нагрузку на транзакционную систему и ускоряет обработку.

2. Отключение ненужных проверок

Для массовых операций можно временно отключить некоторые проверки:

ПараметрыЗаписи = Новый Структура;
ПараметрыЗаписи.Вставить("ПроверятьЗаполнение", Ложь);
ПараметрыЗаписи.Вставить("ПроверятьУникальность", Ложь);
Регистр.Записать(Данные, ПараметрыЗаписи);

3. Использование временных таблиц

Для сложных преобразований загружайте данные во временные таблицы, обрабатывайте их, и только потом записывайте в регистр.

4. Оптимизация запросов

При выборке данных для копирования:

• 🎯 Используйте индексированные поля в условиях отбора
• 📊 Выбирайте только необходимые колонки
• 🔄 Избегайте вложенных запросов

5. Параллельная обработка

В версиях 1С 8.3.14+ можно использовать параллельные потоки для независимых операций:

Обработки = Новый Массив();
Для НомераПакета = 1 По КоличествоПакетов Цикл
Обработки.Добавить(Новый Обработка("КопированиеПакета", НомераПакета));
КонецЦикла;

Результаты = АсинхронныеОперации.ВыполнитьПараллельно(Обработки, 4); // 4 потока

6. Мониторинг прогресса

Для длительных операций реализуйте отображение прогресса:

ВсегоЗаписей = Выборка.Количество();
ТекущаяПозиция = 0;

Пока Выборка.Следующий() Цикл
ТекущаяПозиция = ТекущаяПозиция + 1;
Если ТекущаяПозиция % 100 = 0 Тогда
Сообщить(СтрШаблон("Обработано %1 из %2 (%3%)",
ТекущаяПозиция, ВсегоЗаписей, Круг(ТекущаяПозиция/ВсегоЗаписей*100)));
КонецЕсли;
КонецЦикла;

7. Тестирование на небольших объемах

Перед массовым копированием всегда тестируйте процедуру на небольшой выборке данных (10-100 записей), чтобы убедиться в корректности логики.

FAQ: Частые вопросы по копированию регистров сведений

Выборка = РегистрыСведений.ЦеныНоменклатуры.Выбрать();
Выборка.Отбор.Период.Установить(ТекущаяДата());
Пока Выборка.Следующий() Цикл
// Копирование только актуальных записей
КонецЦикла;

Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
|   ПоследниеЗначения.Период КАК Период,
|   ПоследниеЗначения.Номенклатура КАК Номенклатура
|ИЗ
|   РегистрСведений.ЦеныНоменклатуры.ПоследниеЗначения(&ДатаОтбора) КАК ПоследниеЗначения";