Запрос=Новый Запрос;

Запрос.Текст="

|ВЫБРАТЬ

|	ХозрасчетныйОстаткиИОбороты.Счет,

|	ХозрасчетныйОстаткиИОбороты.Субконто1,

|	ХозрасчетныйОстаткиИОбороты.Субконто2,

|	ХозрасчетныйОстаткиИОбороты.Субконто3,

|	ХозрасчетныйОстаткиИОбороты.Организация,

|	ХозрасчетныйОстаткиИОбороты.СуммаОборот,

|	ХозрасчетныйОстаткиИОбороты.СуммаОборотДт,

|	ХозрасчетныйОстаткиИОбороты.СуммаОборотКт

|ИЗ

|	РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(

|			&ДатаНач,

|			&ДатаКон,

|			Период,

|			,

|			Счет В (&Cчета),

|			,";

//Если задан отбор по контрагенту

Если Не Контрагент.Пустая() Тогда 

Запрос.Текст=Запрос.Текст+"

|			Субконто1 = &Контрагент

|				ИЛИ Субконто2 = &Договор";

КонецЕсли;

Запрос.Текст=Запрос.Текст+"

|) КАК ХозрасчетныйОстаткиИОбороты

|";



//Создадим список счетов

СписокСчетов=Новый СписокЗначений;

СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); //60,01

СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);          //60,02

Запрос.УстановитьПараметр("Cчета",СписокСчетов);

Запрос.УстановитьПараметр("ДатаКон",ДатаК);

Запрос.УстановитьПараметр("ДатаНач",ДатаН);

Запрос.УстановитьПараметр("Договор",Договор);

Запрос.УстановитьПараметр("Контрагент",Контрагент);

Результат = Запрос.Выполнить();

ТабДок=ЭлементыФормы.ТД;

ТабДок.Очистить();

ПечатьТЗвТаб(ТабДок, Результат);



//Выгрузка выведенного результата запроса в Excel

Режим = РежимДиалогаВыбораФайла.Сохранение; 

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 

Фильтр = "Excel(*.xls)|*.xls"; 

ДиалогОткрытияФайла.Фильтр = Фильтр; 

ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 

ДиалогОткрытияФайла.Заголовок = "Выберите куда сохранить файл Excel"; 

Если ДиалогОткрытияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 

КонецЕсли;

ТабДок.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLS97);    

   //   Код получает валютные счета и их субконто!

	// с отбором по счетам (только валютные счета, исключая забалансовые, авансовые и те, которые переоцениваются

	// особым способом.



	Запрос = Новый Запрос;

	Запрос.Текст =

	"ВЫБРАТЬ

	|	Хозрасчетный.Ссылка КАК Счет,

	|	ХозрасчетныйВидыСубконто.ВидСубконто,

	|	ПРЕДСТАВЛЕНИЕ(ХозрасчетныйВидыСубконто.ВидСубконто.ТипЗначения)

	|ИЗ

	|	ПланСчетов.Хозрасчетный КАК Хозрасчетный

	|		ЛЕВОЕ СОЕДИНЕНИЕ ПланСчетов.Хозрасчетный.ВидыСубконто КАК ХозрасчетныйВидыСубконто

	|		ПО (ХозрасчетныйВидыСубконто.Ссылка = Хозрасчетный.Ссылка)

	|ГДЕ

	|	Хозрасчетный.Валютный

	|	И (НЕ Хозрасчетный.Забалансовый)

	|	И (НЕ Хозрасчетный.Ссылка В

	|				(ВЫБРАТЬ

	|					СчетаСОсобымПорядкомПереоценки.Счет

	|				ИЗ

	|					РегистрСведений.СчетаСОсобымПорядкомПереоценкиБУ КАК СчетаСОсобымПорядкомПереоценки))

	|	И (НЕ Хозрасчетный.Ссылка В (&СписокАвансовыхСчетов))";

	

	СписокАвансовыхСчетов = Новый СписокЗначений;

	СписокАвансовыхСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданнымВал);

	СписокАвансовыхСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданнымУЕ);

	СписокАвансовыхСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученнымВал);

	СписокАвансовыхСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученнымУЕ);

	Запрос.УстановитьПараметр("СписокАвансовыхСчетов",СписокАвансовыхСчетов);

	ТЗСчетаВидыСубконтоИЗначения = Запрос.Выполнить().Выгрузить();