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