Обработка для группового редактирования любых справочников с общими реквизитами

21.01.14

Задачи пользователя - Корректировка данных

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
Обработка "Поменять общий реквизит в любых справочниках" .epf 6,35Kb 5	5	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

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

Процедура КнопкаВыполнитьНажатие(Кнопка)
//// Вставить содержимое обработчика.
Для каждого Справочник из Метаданные.Справочники Цикл // Метаданные.Справочники
ИмяСправочника = Справочник.Объект;
МенеджерСправочника = Справочники[ИмяСправочника];
Табуляция = Символы.Таб;
Сч = 0;
ВыборкаСправочника = МенеджерСправочника.Выбрать();
Пока ВыборкаСправочника.Следующий() Цикл
Попытка
ОбъектСправочник = ВыборкаСправочника.ПолучитьОбъект();
ОбъектСправочник.Узел = Справочники.ИнформационныеБазы.ГоловнойУзел; // здесь можно любой реквизит замест "Узел" вписать и его заполнять нужными значениями
ОбъектСправочник.Записать();
Сообщить("Успешно проставлен 'Головной узел' для справочника" + Табуляция + ВыборкаСправочника);
Исключение
Сообщить("Узел справочника" + Табуляция + ВыборкаСправочника + "не удалось изменить");
КонецПопытки;
Сч = Сч + 1;
Состояние("Элементов обработано " + Сч + " Сейчас обрабатывается справочник " + ИмяСправочника + ": " + ВыборкаСправочника.Наименование);
ОбработкаПрерыванияПользователя();
КонецЦикла;
КонецЦикла;
КонецПроцедуры