Доброго времени суток! Есть самописная конфигурация, возникла необходимость перемещать автоматически элементы справочника в зависимости от реквизита в определенную группу справочника. Вот код:

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

Возникла следующая проблема, при срабатывании процедуры, находит первый попавшийся элемент и переносит в нужную группу, но остальные элементы оставляет нетронутыми. Помогите разобратся, весь день промучался Подскажите, что не так делаю

Навскидку:
ВыбратьЭлементы(0);

Капец...я столько времени потерял из-за этого нолика
Спасибо огромное!!! Заработало!!!