Как написать процедуру копирования иерархических справочников в 1С с сохранением

[Odineski]

Напиши процедуру копирования двух иерархических справочников одинаковой структуры в одной информационной базе. Справочник СтатьиДвиженияДенежныхСредств в СтатьиДДС

[Odin — Одинэсник]

Navigator, привет!

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

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

1С (Код)

Процедура КопироватьИерархическийСправочник() // Словарь для сопоставления ссылок исходного справочника и нового СоответствиеСсылок = Новый Соответствие; // Массив для хранения элементов исходного справочника МассивЭлементов = Новый Массив; // Получаем все элементы исходного справочника с сортировкой по уровню иерархии Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Стр.Ссылка КАК Ссылка, | Стр.Родитель КАК Родитель, | Стр.Код КАК Код, | Стр.Наименование КАК Наименование, | Стр.УровеньИерархии КАК УровеньИерархии |ИЗ | Справочник.СтатьиДвиженияДенежныхСредств КАК Стр |УПОРЯДОЧИТЬ ПО | Стр.УровеньИерархии"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл МассивЭлементов.Добавить(Выборка.ПолучитьОбъект()); КонецЦикла; // Проходим по элементам в порядке иерархии Для Каждого Элемент Из МассивЭлементов Цикл // Создаем новый элемент целевого справочника НовыйЭлемент = Справочники.СтатьиДДС.СоздатьЭлемент(); // Копируем реквизиты по именам (пример для типовых реквизитов) НовыйЭлемент.Код = Элемент.Код; НовыйЭлемент.Наименование = Элемент.Наименование; // Устанавливаем родителя, если он есть Если ЗначениеЗаполнено(Элемент.Родитель) Тогда Если СоответствиеСсылок.СодержитКлюч(Элемент.Родитель) Тогда НовыйЭлемент.Родитель = СоответствиеСсылок.Получить(Элемент.Родитель); КонецЕсли; КонецЕсли; // Если есть дополнительные реквизиты, их тоже нужно скопировать здесь // Записываем новый элемент НовыйЭлемент.Записать(); // Запоминаем соответствие ссылок СоответствиеСсылок.Вставить(Элемент.Ссылка, НовыйЭлемент.Ссылка); КонецЦикла; Сообщить("Копирование справочника завершено."); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

Процедура КопироватьИерархическийСправочник() // Словарь для сопоставления ссылок исходного справочника и нового СоответствиеСсылок = Новый Соответствие; // Массив для хранения элементов исходного справочника МассивЭлементов = Новый Массив; // Получаем все элементы исходного справочника с сортировкой по уровню иерархии Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Стр.Ссылка КАК Ссылка, | Стр.Родитель КАК Родитель, | Стр.Код КАК Код, | Стр.Наименование КАК Наименование, | Стр.УровеньИерархии КАК УровеньИерархии |ИЗ | Справочник.СтатьиДвиженияДенежныхСредств КАК Стр |УПОРЯДОЧИТЬ ПО | Стр.УровеньИерархии"; Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл МассивЭлементов.Добавить(Выборка.ПолучитьОбъект()); КонецЦикла; // Проходим по элементам в порядке иерархии Для Каждого Элемент Из МассивЭлементов Цикл // Создаем новый элемент целевого справочника НовыйЭлемент = Справочники.СтатьиДДС.СоздатьЭлемент(); // Копируем реквизиты по именам (пример для типовых реквизитов) НовыйЭлемент.Код = Элемент.Код; НовыйЭлемент.Наименование = Элемент.Наименование; // Устанавливаем родителя, если он есть Если ЗначениеЗаполнено(Элемент.Родитель) Тогда Если СоответствиеСсылок.СодержитКлюч(Элемент.Родитель) Тогда НовыйЭлемент.Родитель = СоответствиеСсылок.Получить(Элемент.Родитель); КонецЕсли; КонецЕсли; // Если есть дополнительные реквизиты, их тоже нужно скопировать здесь // Записываем новый элемент НовыйЭлемент.Записать(); // Запоминаем соответствие ссылок СоответствиеСсылок.Вставить(Элемент.Ссылка, НовыйЭлемент.Ссылка); КонецЦикла; Сообщить("Копирование справочника завершено."); КонецПроцедуры

Объяснения:

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

Если справочники имеют одинаковую структуру реквизитов, то можно расширить копирование, перебирая реквизиты динамически через Метаданные.

Если нужно — могу помочь с этим.

[Автор]

Сообщения