Передача файлов с сервера на клиент

&НаКлиенте

	ПолучитьДанныеДляВыгрузкиНаСервере();
	
	МассивДанныхВодитлей = ПолучитьИзВременногоХранилища(АдресХранилищаТабДокументов);
	МассивНаименований = ПолучитьИзВременногоХранилища(АдресХранилищаНаименованийДокументов);
	Каталог = Объект.Каталог;
	Путь = ?(Лев(Каталог,СтрДлина(Каталог)-1)="\",Каталог,Каталог+"\");
	Индекс = 0;
	Для каждого ТабДокумент Из МассивДанныхВодитлей Цикл
		Путь = МассивНаименований.Получить(Индекс);
		Индекс = Индекс+1;
		ТабДокумент.Вывод=ИспользованиеВывода.Разрешить;
		ТабДокумент.Записать(Путь, ТипФайлаТабличногоДокумента.XLS97);
	КонецЦикла;
	
	Если МассивДанныхВодитлей.Количество() > 1  Тогда
		НачалоПериода = Объект.НачалоПериода;
		ОкончаниеПериода = Объект.ОкончаниеПериода;
		
		Нач = Строка(Формат(НачалоПериода,"ДФ=дд"))+Строка(Формат(НачалоПериода,"ДФ=ММ"))+Строка(Формат(НачалоПериода,"ДФ=гггг"));
		Кон = Строка(Формат(ОкончаниеПериода,"ДФ=дд"))+Строка(Формат(ОкончаниеПериода,"ДФ=ММ"))+Строка(Формат(ОкончаниеПериода,"ДФ=гггг"));

		
		ТабДок = ПолучитьИзВременногоХранилища(АдресПутиОбщейВыгрузки);
		ВремКаталог = Каталог;
		СоздатьКаталог(ВремКаталог); 
		Путь = ?(Лев(Каталог,СтрДлина(Каталог)-1)="\",Каталог,Каталог+"\")+"Выгрузка данных водителей "+Нач+"-"+Кон+".xls";
		ТабДок.Вывод=ИспользованиеВывода.Разрешить;
		ТабДок.Записать(Путь, ТипФайлаТабличногоДокумента.XLS97);
	КонецЕсли;
	
КонецПроцедуры

&НаСервере
Процедура ПолучитьДанныеДляВыгрузкиНаСервере()
		
	Запрос = Новый Запрос;
        Запрос.Текст = ".....";
	Запрос.Параметры(.....);
	Результат = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	ТабДок = Новый ТабличныйДокумент;
	
	ОбъектОбработки = РеквизитФормыВЗначение("Объект");	
	Макет = ОбъектОбработки.ПолучитьМакет("МакетВыгрузки");
	ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ОбластьШапка");
	
	ТабДок.Очистить();
	ТабДок.Вывести(ОбластьШапкаТаблицы);
	
	Нач = Строка(Формат(НачалоПериода,"ДФ=дд"))+Строка(Формат(НачалоПериода,"ДФ=ММ"))+Строка(Формат(НачалоПериода,"ДФ=гггг"));
	Кон = Строка(Формат(ОкончаниеПериода,"ДФ=дд"))+Строка(Формат(ОкончаниеПериода,"ДФ=ММ"))+Строка(Формат(ОкончаниеПериода,"ДФ=гггг"));
	
	КолСотрудников = 0;
	
	МассивФайлов = Новый Массив;
	МассивНаименованийФайлов = Новый Массив;
	Пока Результат.Следующий() Цикл 	
		КолСотрудников = КолСотрудников+1;
		ТабДокВодитель = Новый ТабличныйДокумент;		
		ТабДокВодитель.Очистить();
		ТабДокВодитель.Вывести(ОбластьШапкаТаблицы);
		
		Стр = Результат.Выбрать();
		Пока Стр.Следующий() Цикл 
			ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("ОбластьДанные");
			
			ОбластьДетальныхЗаписей.Параметры.Заполнить(Стр);
			ТабДокВодитель.Вывести(ОбластьДетальныхЗаписей);
			
			ТабДок.Вывести(ОбластьДетальныхЗаписей);
		КонецЦикла;
		
		Путь = ?(Лев(Каталог,СтрДлина(Каталог)-1)="\",Каталог,Каталог+"\")+"Выгрузка данных водителя "+Строка(Результат.Водитель)+" от "+Нач+"-"+Кон+".xls";
		ИмяФайла = "Выгрузка данных водителя "+Строка(Результат.Водитель)+" от "+Нач+"-"+Кон+".xls";
		
		//Сохраняем ТабДокументы и пути их сохранения в массивы
		МассивФайлов.Добавить(ТабДокВодитель);
		МассивНаименованийФайлов.Добавить(Путь);	
	КонецЦикла;
	
	//Помещаем массивы чтобы получить их позже на клиенте
	ЭтаФорма.АдресХранилищаТабДокументов = ПоместитьВоВременноеХранилище((МассивФайлов), ЭтаФорма.УникальныйИдентификаторФайлов);
	ЭтаФорма.АдресХранилищаНаименованийДокументов = ПоместитьВоВременноеХранилище((МассивНаименованийФайлов), ЭтаФорма.УникальныйИдентификаторНаименований);	
	
	Если КолСотрудников>1 Тогда
		//сохраняем ТабДокумент с водителями во врем.хранилище чтобы позже получить его на клиенте
		ЭтаФорма.АдресПутиОбщейВыгрузки = ПоместитьВоВременноеХранилище(ТабДок, ЭтаФорма.УникальныйИдентификаторОбщейВыгрузки);
	КонецЕсли;
	
КонецПроцедуры