Выбрать Остатки и Обороты по указанным счетам, отбор по субконто и выгрузка результата в EXCEL

  Запрос=Новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
|	ХозрасчетныйОстаткиИОбороты.Счет,
|	ХозрасчетныйОстаткиИОбороты.Субконто1,
|	ХозрасчетныйОстаткиИОбороты.Субконто2,
|	ХозрасчетныйОстаткиИОбороты.Субконто3,
|	ХозрасчетныйОстаткиИОбороты.Организация,
|	ХозрасчетныйОстаткиИОбороты.СуммаОборот,
|	ХозрасчетныйОстаткиИОбороты.СуммаОборотДт,
|	ХозрасчетныйОстаткиИОбороты.СуммаОборотКт
|ИЗ
|	РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
|			&ДатаНач,
|			&ДатаКон,
|			Период,
|			,
|			Счет В (&Cчета),
|			,";
//Если задан отбор по контрагенту
Если Не Контрагент.Пустая() Тогда 
Запрос.Текст=Запрос.Текст+"
|			Субконто1 = &Контрагент
|				ИЛИ Субконто2 = &Договор";
КонецЕсли;
Запрос.Текст=Запрос.Текст+"
|) КАК ХозрасчетныйОстаткиИОбороты
|";

//Создадим список счетов
СписокСчетов=Новый СписокЗначений;
СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); //60,01
СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);          //60,02
Запрос.УстановитьПараметр("Cчета",СписокСчетов);
Запрос.УстановитьПараметр("ДатаКон",ДатаК);
Запрос.УстановитьПараметр("ДатаНач",ДатаН);
Запрос.УстановитьПараметр("Договор",Договор);
Запрос.УстановитьПараметр("Контрагент",Контрагент);
Результат = Запрос.Выполнить();
ТабДок=ЭлементыФормы.ТД;
ТабДок.Очистить();
ПечатьТЗвТаб(ТабДок, Результат);

//Выгрузка выведенного результата запроса в Excel
Режим = РежимДиалогаВыбораФайла.Сохранение; 
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 
ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 
Фильтр = "Excel(*.xls)|*.xls"; 
ДиалогОткрытияФайла.Фильтр = Фильтр; 
ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 
ДиалогОткрытияФайла.Заголовок = "Выберите куда сохранить файл Excel"; 
Если ДиалогОткрытияФайла.Выбрать() Тогда 
	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 
КонецЕсли;
ТабДок.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLS97);