v7: программно переместить элементы справочника в другую группу

"Примеры http://www.forum.mista.ru/topic.php?id=111004 и http://www.mista.ru/tutor_1c/sprav.htm#group оказались неработоспособными. Привожу свой вариант (перемещаю только элементы справочника, не входящие ни в одну из групп):<br><br>Процедура Сформировать()<br> <br> Спр = СоздатьОбъект("Справочник.Контрагенты"); <br><br> Спр.НайтиПоНаименованию("Наша группа");<br><br> ВотЭтаГруппа = Спр.ТекущийЭлемент(); <br> <br> Спис = СоздатьОбъект("СписокЗначений");<br> <br> <br> Спр.ВыбратьЭлементы(1); <br> <br> Пока Спр.ПолучитьЭлемент(0) = 1 Цикл<br> <br> Если Спр.ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли;<br> <br> Спис.ДобавитьЗначение(Спр.Код);<br> <br> КонецЦикла;<br><br> <br> Ст = """";<br><br> Для С = 1 По Спис.РазмерСписка() Цикл<br> <br> Код = Спис.ПолучитьЗначение(С,Ст);<br> <br> Спр.НайтиПоКоду(Код);<br> <br> Спр.Родитель=ВотЭтаГруппа; <br><br> Спр.Записать(); <br> <br> КонецЦикла;<br><br>КонецПроцедуры"

А что же на "мисте" этот вариант не выложил?

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

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

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