Как перенести элемент справочника из группы в группу программно?

"Требуется изменить Родителя элемента справочника, а именно - сделать так, чтобы он не входил ни в какую группу.<br>Пишу так:<br> Спр.ВыбратьЭлементы;<br> Пока Спр.ПолучитьЭлемент()=1 Цикл <br> ТекЭл=Спр.ТекущийЭлемент(); <br> Если (ТекЭл.ЭтоГруппа()=0) и (ТекЭл.Уровень()>1) Тогда<br> ТекЭл.Родитель=ПолучитьПустоеЗначение("Справочник.Номенклатура"); <br> КонецЕсли;<br> КонецЦикла; <br><br>Выдает: Объект не может быть перепозиционирован!<br>Похожий вопрос нашла на форуме, но четкого ответа там нет.<br><br>Подскажите, пожалуйста, может я что не так делаю?"

"стоит попробовать так:<br><br>Спр.УстановитьАтрибут("Родитель", ПолучитьПустоеЗначение("Справочник.ОсновныеСредства"));<br>Спр.Записать();<br><br><br>Однако у меня возникают сомнения по поводу такого перебора. Как никак начинается перебор всех элементов в справочнике, и тут же они переносятся. Не уверен что цикл отработает до конца."

Переносила элементы справочника из группы в группу (существующую). Группы выбирались в диалоге как ОТКУДА и КУДА.<br>1. Считываем элементы группы ОТКУДА в таблицу значений.<br>2. При просмотре полученной таблицы значений в цикле, позиционируемся на совпадающий элем-т справочника,и устанавливаем для него ОС1.Родитель=КУДА      (это группа выбранная в диалоге)<br>Программа работает, текст не могу привести, т.к.получается непонятный шрифт.

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

"Спасибо за подсказку. Правда, все получается.<br><br>Процедура Сформировать()<br> О1 = СоздатьОбъект("ТаблицаЗначений");<br> О1.НоваяКолонка("ИнвНомер");<br> ОС1 = СоздатьОбъект("Справочник.ОсновныеСредства"); <br> ОС1.ИспользоватьДату(Дата("31.12.2004")); <br>       ОС1.ПорядокНаименований(); <br> ОС1.ВыбратьЭлементы();<br> Пока ОС1.ПолучитьЭлемент()>0 Цикл <br> Если ОС1.ЭтоГруппа()=1 Тогда<br>        Продолжить;<br> КонецЕсли;<br> Если ОС1.ПринадлежитГруппе(ВыбГр)=1 Тогда<br> О1.НоваяСтрока(); <br> О1.ИнвНомер=ОС1.Код; <br>        КонецЕсли;<br> КонецЦикла; <br> <br> О1.ВыбратьСтроки();<br> Пока О1.ПолучитьСтроку()>0 Цикл <br>// Сообщить(О1.ИнвНомер);<br> Код=СокрЛП(О1.ИнвНомер); <br>      ОС1.ВыбратьЭлементы();<br>      Пока ОС1.ПолучитьЭлемент()>0 Цикл <br> <br> Если ОС1.ЭтоГруппа()=1 Тогда<br>        Продолжить;<br> КонецЕсли; <br> Если ОС1.Код=Код Тогда<br> ОС1.Родитель=Куда; <br> ОС1.Записать();<br> КонецЕсли;<br>      КонецЦикла;<br>КонецЦикла; <br>"

"Попробуйте вот так <br>ТекЭл.Родитель=0; "

Попробовала свою программу в следующем варианте<br>Ку=ОС1.Родитель //когда выбран элемент справочника из корня (если не было, то временно перенесла в корень любой элемент), т.е.определили чему равен Родитель в корне.<br><br>Далее ОС1.Родитель=Ку<br><br>Нормально все переносится в корень.

Получился вариант со списком и методом НайтиЭлемент. Большое спасибо всем, кто откликнулся!