спр_Номенклатура.ВыбратьЭлементы();
Пока спр_Номенклатура.ПолучитьЭлемент() = 1 Цикл
Если спр_Номенклатура.Уровень() > 1 Тогда
Продолжить;
КонецЕсли;
Если спр_Номенклатура.ЭтоГруппа() = 1 Тогда
Продолжить;
КонецЕсли;
Если Найти(спр_Номенклатура.Наименование, "Услуги по перевозке") > 0 Тогда
тзНом.НоваяСтрока();
тзНом.Элем = спр_Номенклатура.ТекущийЭлемент();
КонецЕсли;
КонецЦикла;
спр_Номенклатура.НайтиПоНаименованию("Услуги по перевозке", 0);
грУслуг = спр_Номенклатура.ТекущийЭлемент();
тзНом.ВыбратьСтроки();
Пока тзНом.ПолучитьСтроку() = 1 Цикл
Если спр_Номенклатура.НайтиЭлемент(тзНом.Элем) = 1 Тогда
спр_Номенклатура.Родитель = грУслуг;
спр_Номенклатура.Записать();
КонецЕсли;