МассивДляУдаления	=	Новый массив;
Для Каждого ЭлементОтбора из КомпоновщикНастроек.Настройки.Отбор.Элементы Цикл
Если Строка(ЭлементОтбора.ЛевоеЗначение)	=	"Дата" Тогда
МассивДляУдаления.Добавить(ЭлементОтбора);
КонецЕсли;
КонецЦикла;
Для Каждого ОтборНаУдаление из МассивДляУдаления Цикл
КомпоновщикНастроек.Настройки.Отбор.Элементы.Удалить(ОтборНаУдаление);
КонецЦикла;