ВЫБРАТЬ ПЕРВЫЕ 1 ХозрасчетныйОстаткиИОбороты.Регистратор КАК Регистратор ИЗ РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&ДатаН, &ДатаК, Регистратор, , Счет = &Счет, , ) КАК ХозрасчетныйОстаткиИОбороты ГДЕ ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстатокКт > 0 УПОРЯДОЧИТЬ ПО ХозрасчетныйОстаткиИОбороты.Период, Регистратор
Запрос=Новый Запрос; Запрос.Текст=" |ВЫБРАТЬ | ХозрасчетныйОстаткиИОбороты.Счет, | ХозрасчетныйОстаткиИОбороты.Субконто1, | ХозрасчетныйОстаткиИОбороты.Субконто2, | ХозрасчетныйОстаткиИОбороты.Субконто3, | ХозрасчетныйОстаткиИОбороты.Организация, | ХозрасчетныйОстаткиИОбороты.СуммаОборот, | ХозрасчетныйОстаткиИОбороты.СуммаОборотДт, | ХозрасчетныйОстаткиИОбороты.СуммаОборотКт |ИЗ | РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты( | &ДатаНач, | &ДатаКон, | Период, | , | Счет В (&Cчета), | ,"; //Если задан отбор по контрагенту Если Не Контрагент.Пустая() Тогда Запрос.Текст=Запрос.Текст+" | Субконто1 = &Контрагент | ИЛИ Субконто2 = &Договор"; КонецЕсли; Запрос.Текст=Запрос.Текст+" |) КАК ХозрасчетныйОстаткиИОбороты |"; //Создадим список счетов СписокСчетов=Новый СписокЗначений; СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); //60,01 СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным); //60,02 Запрос.УстановитьПараметр("Cчета",СписокСчетов); Запрос.УстановитьПараметр("ДатаКон",ДатаК); Запрос.УстановитьПараметр("ДатаНач",ДатаН); Запрос.УстановитьПараметр("Договор",Договор); Запрос.УстановитьПараметр("Контрагент",Контрагент); Результат = Запрос.Выполнить(); ТабДок=ЭлементыФормы.ТД; ТабДок.Очистить(); ПечатьТЗвТаб(ТабДок, Результат); //Выгрузка выведенного результата запроса в Excel Режим = РежимДиалогаВыбораФайла.Сохранение; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = ""; Фильтр = "Excel(*.xls)|*.xls"; ДиалогОткрытияФайла.Фильтр = Фильтр; ДиалогОткрытияФайла.МножественныйВыбор = Ложь; ДиалогОткрытияФайла.Заголовок = "Выберите куда сохранить файл Excel"; Если ДиалогОткрытияФайла.Выбрать() Тогда ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; КонецЕсли; ТабДок.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLS97);