Код перенесения элементов в группах

[Стаф]

Помогите кодом плз=)  перенести все элементы справочника «Контрагенты» из одной группы в другую?

[Никитина]

Сначала теория: Для этого необходимо перезаполнить значением нового родителя реквизит Родитель у элементов,которые являются «потомками» исходного родителя.

Код Выделить Развернуть

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

Запрос.УстановитьПараметр("СтарыйРодитель", СтарыйРодитель);

Результат = Запрос.Выполнить();


И обработка результатов

Код Выделить Развернуть

Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл
Контрагент = Выборка.Ссылка.ПолучитьОбъект();

Контрагент.Родитель = НовыйРодитель;

Контрагент.Записать();

КонецЦикла;