Пример программного переноса элементов справочника из одной группы в другую в системе 1С:Предприятие 7.7

Доброго времени суток, уважаемые посетители! На этом блоге мы уже выкладывали обработку, которая наглядно показывала, как удалить элементы справочника, в наименовании которых встречается введенная пользователем строка или как вставить рисунок с прозрачным фоном в таблицу. Сегодня мы рассмотрим, как программно перенести элементы справочника из одной группы в другую в системе 1C:Предприятие 7.7. Итак, приступим.

Воспользуемся следующим решением:

Процедура Перенести()

	СпрИмя = СокрЛП(ComboBox.ПолучитьЗначение(ComboBox.ТекущаяСтрока()));

	Список = СоздатьОбъект(«СписокЗначений»);

	Спр = СоздатьОбъект(«Справочник.» + СпрИмя);

	Кол = 0;

	Спр.ИспользоватьРодителя(Группа1);

	Спр.ВыбратьЭлементы();

	Пока Спр.ПолучитьЭлемент() = 1 Цикл

		Кол = Кол + 1;

		Список.ДобавитьЗначение(Спр.ТекущийЭлемент());

		Состояние(Спр.Код + » — « + Кол);

	КонецЦикла;

	Спр1 = СоздатьОбъект(«Справочникю.» + СпрИмя);

	Для к=1 По Список.РазмерСписка() Цикл

		ТекЭл = Список.ПолучитьЗначение(к);

		Если Спр1.НайтиЭлемент(ТекЭл) = 1 Тогда

			Спр1.Родитель = Группа2;

			Спр1.Записать();

		КонецЕсли;

	КонецЦикла;

КонецПроцедуры

Понравилась ли вам обработка? Что можно изменить, что добавить? Не стесняйтесь делиться об этом в комментариях!

[protected]

[/protected]