Добрый день !!! Подскажите как перенести все элементы справочника в его корень ? Написал процедуру но не работает до конца правильно, я как понимаю при смене родителя нарушается выборка, и соответственоо переносятся не все элементы !!!



   С=СоздатьОбъект("Справочник.Товары");
   С.ПорядокКодов();
   С.ВыбратьЭлементы();
   Пока С.ПолучитьЭлемент()=1 Цикл
       Если С.ЭтоГруппа()=0 Тогда
           С.Родитель="";
           С.Записать();
       КонецЕсли;    
   КонецЦикла;

да, совершенно верно!

(1) как то это можно обойти ?

Если С.ЭтоГруппа()=0 Тогда
С.Родитель="";
С.Записать();
С.ВыбратьЭлементы();
КонецЕсли;

спасибо

(3) получается бесконечны цикл !!!

(5) Подумай, как обойти.

Подсказка:

ПустоеЗначение
С.Родитель
Если

может сделать перебор чисел, например найти наибольший код товара, и в цикле перебирать коды, ну и соответственно если найдется то менять родителя

(8) тогда лучше буквы алфавита перебирать, их меньше.

если пустоезначение родителя тогда выбратьэлементы не делать чтоли ?

А не проще

С.ВыбратьЭлементы(0);

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

По идее в таком варианте не должна нарушаться выборка.

(11) Спасибо !!! Работает !!!

(0)

update $Справочник.Товары
set parentid = :ПустойИД
where isfolder =2

или С.ВыбратьЭлементы(0); и закомментить С.ПорядокКодов();

родитель http://goo.gl/GiLcc

(16) забей себе гвоздь в голову, пока не поздно

(15) В прямых нуб. Случаем не все элементы спр-ка окажутся без папы?
А где where на конкретного родителя?

(18) А зачем вере, если условие стоит "все"?

(19) Ну да. Плохо сабж прочитал.

(18) нет, только элементы - в "вере" стоит условие на исфолдер