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