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