Чистка справочника "Номенклатура"

[arccos6pi]

пардон,это 7.7..,а я для 8.Х написал
хотя я думаю смысл понятен

[koka278]

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

//*******************************************
Процедура Сформировать() 

   Запрос = СоздатьОбъект("Запрос");

   ТекстЗапроса = 
   "//{{ЗАПРОС(Сформировать)
   |Номенклатура = Справочник.Связи.Владелец;
   |ТекущийЭлемент = Справочник.Связи.ТекущийЭлемент;
   |ДатаСоздания = Справочник.Связи.ДатаСоздания;
   |Группировка Номенклатура;
   |Группировка ТекущийЭлемент;
   |Группировка ДатаСоздания;
   |Условие(ДатаСоздания<ВыбДатаСоздания);
   |"//}}ЗАПРОС
   ;
// Если ошибка в запросе, то выход из процедуры

   Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
      Возврат;
   КонецЕсли; 



// Подготовка к заполнению выходных форм данными запроса

   Таб = СоздатьОбъект("ТаблицаЗначений");
   Запрос.Выгрузить(Таб);

   Спр=СоздатьОбъект("Справочник.Номенклатура");

//Перебор элементов группы
   Спр.НайтиПоКоду("a0000001");
   a0000001=Спр.ТекущийЭлемент();
   Спр.ИспользоватьРодителя(a0000001);
   Спр.ВыбратьЭлементы();


   Пока Спр.ПолучитьЭлемент()=1 Цикл
      Если Спр.ЭтоГруппа()=1 Тогда
         Продолжить;
      КонецЕсли;

     Спр.Удалить(1);
   КонецЦикла; 

КонецПроцедуры