Подскажите пожалуйста, можно ли отобрать лицевые счета у которых долг больше 3 месяцев?

&НаКлиенте
Процедура Выгрузить(Команда)
	
	ПолучитьЛицевыеСчетаИзСправочника();

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

&НаСервере
Процедура ПолучитьЛицевыеСчетаИзСправочника()
	
	Эксель = Новый COMОбъект("Excel.Application");
	Эксель.DisplayAlerts = Ложь;
    Книга = Эксель.Application.Workbooks.Add();
    Лист = Книга.WorkSheets.Add();
    Лист.Name = "Должники";
    Лист.Cells(1,1).Value = "Номер лицевого счета";
    Лист.Cells(1,2).Value = "Номер квартиры";
    Лист.Cells(1,3).Value = "ФИО";
    Лист.Cells(1,4).Value = "Дата задолженности";
    Лист.Cells(1,5).Value = "Задолженность";
	Лист.Cells(1,6).Value = "НомерДома"; 
	
	Запрос = Новый Запрос;
	Запрос.Текст ="ВЫБРАТЬ
	              |	КВП_ВзаиморасчетыПоЛицевымСчетамОстатки.СуммаНачисленияОстаток КАК Сумма,
	              |	КВП_ВзаиморасчетыПоЛицевымСчетамОстатки.ЛицевойСчет КАК ЛС
	              |ИЗ
	              |	РегистрНакопления.КВП_ВзаиморасчетыПоЛицевымСчетам.Остатки(&ДатаОтбора, ) КАК КВП_ВзаиморасчетыПоЛицевымСчетамОстатки
	              |ГДЕ
	              |	КВП_ВзаиморасчетыПоЛицевымСчетамОстатки.ЛицевойСчет.Адрес.Владелец.Ссылка = &Ссылка
	              |	И КВП_ВзаиморасчетыПоЛицевымСчетамОстатки.СуммаНачисленияОстаток > &СуммаНачисленияОстаток
	              |
	              |УПОРЯДОЧИТЬ ПО
	              |	КВП_ВзаиморасчетыПоЛицевымСчетамОстатки.ЛицевойСчет";
	
	Запрос.УстановитьПараметр("Ссылка", Объект.Здания);
	Запрос.УстановитьПараметр("ДатаОтбора", Объект.Дата); 
	Запрос.УстановитьПараметр("СуммаНачисленияОстаток", 0);
	
	ТЗ = Запрос.Выполнить().Выгрузить();
	     
    НомерСтроки = 2;
	
	Для каждого Строка из ТЗ Цикл    
        
        Лист.Cells(НомерСтроки, 1).Value = Строка.ЛС.Наименование;
        Лист.Cells(НомерСтроки, 2).Value = Строка.ЛС.Адрес.Наименование;
        Лист.Cells(НомерСтроки, 3).Value = Строка.ЛС.ОтветственныйСобственникПредставление;    
        Лист.Cells(НомерСтроки, 4).Value = Объект.Дата;
		Лист.Cells(НомерСтроки, 5).Value = Строка.Сумма;
		Лист.Cells(НомерСтроки, 6).Value = Объект.Здания.НомерДома;


        
        НомерСтроки = НомерСтроки + 1
        
	КонецЦикла;
	
	Книга.SaveAs(Объект.КаталогВыгрузки + "\Реестр должников.xls");
	Книга.Close();
	
КонецПроцедуры