Как формировать отчет минуя открытие формы?

&НаСервере
Функция ПолучитьДанныеНаСервере(Ссылка)
	
	Запрос = Новый Запрос("
		|ВЫБРАТЬ
		|	ЦеныНоменклатурыПоставщиковСрезПоследних.Цена КАК Цена,
		|	СделкиСКлиентамиТовары.Номенклатура КАК Номенклатура,
		|	СделкиСКлиентамиТовары.Номенклатура.Артикул КАК НоменклатураАртикул,
		|	СделкиСКлиентамиТовары.МодельКонкурента КАК МодельКонкурента,
		|	СделкиСКлиентамиТовары.ЦенаКонкурента КАК ЦенаКонкурента,
		|	СделкиСКлиентамиТовары.ПриУсловииСкидкиКонечномуПотребителюНеМенееОтРРЦ КАК ПриУсловииСкидкиКонечномуПотребителюНеМенееОтРРЦ,
		|	СделкиСКлиентамиТовары.Количество КАК Количество,
		|	СделкиСКлиентамиТовары.Сумма КАК Сумма,
		|	КурсыВалют.Курс КАК Курс,
		|	СделкиСКлиентамиТовары.ПредоставленаСкидкаОтРРЦ КАК ПредоставленаСкидкаОтРРЦ
		|ИЗ
		|	Справочник.СделкиСКлиентами.Товары КАК СделкиСКлиентамиТовары
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ЦеныНоменклатурыПоставщиков.СрезПоследних(&ДатаСреза, Валюта = &Валюта) КАК ЦеныНоменклатурыПоставщиковСрезПоследних
		|		ПО (СделкиСКлиентамиТовары.Номенклатура = ЦеныНоменклатурыПоставщиковСрезПоследних.Номенклатура)
		|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют.СрезПоследних(&ДатаСреза, Валюта = &Валюта) КАК КурсыВалют
		|		ПО (КурсыВалют.Валюта = КурсыВалют.Валюта)
		|ГДЕ
		|	СделкиСКлиентамиТовары.Ссылка = &Ссылка");


	Запрос.УстановитьПараметр("ДатаСреза", ТекущаяДатаСеанса());
	Запрос.УстановитьПараметр("Номенклатура", "СтрокаНоменклатура");
	Запрос.УстановитьПараметр("Валюта", ПсевдоПредопределенные_3с.Получить("Справочники.Валюты.CNY"));
	Запрос.УстановитьПараметр("Ссылка", Ссылка);
	
	РезультатЗапроса = Запрос.Выполнить();
	ТЗ = РезультатЗапроса.Выгрузить();
	
	СтруктураДанных = Новый Массив;
    Для каждого СтрокаТаблицы Из ТЗ Цикл
        СтруктураСтрока = Новый Структура;
        СтруктураСтрока.Вставить("Цена", СтрокаТаблицы.Цена);
        СтруктураСтрока.Вставить("Курс", СтрокаТаблицы.Курс);
        СтруктураСтрока.Вставить("Номенклатура", СтрокаТаблицы.Номенклатура);
        СтруктураСтрока.Вставить("НоменклатураАртикул", СтрокаТаблицы.НоменклатураАртикул);
		СтруктураСтрока.Вставить("Количество", СтрокаТаблицы.Количество);
		СтруктураСтрока.Вставить("МодельКонкурента", СтрокаТаблицы.МодельКонкурента);
		СтруктураСтрока.Вставить("ЦенаКонкурента", СтрокаТаблицы.ЦенаКонкурента);
		СтруктураСтрока.Вставить("ПриУсловииСкидкиКонечномуПотребителюНеМенееОтРРЦ", СтрокаТаблицы.ПриУсловииСкидкиКонечномуПотребителюНеМенееОтРРЦ);
		СтруктураСтрока.Вставить("Сумма", СтрокаТаблицы.Сумма);
		СтруктураСтрока.Вставить("ПредоставленаСкидкаОтРРЦ", СтрокаТаблицы.ПредоставленаСкидкаОтРРЦ);	
		
        СтруктураДанных.Добавить(СтруктураСтрока);
    КонецЦикла;
    
    Возврат СтруктураДанных;
КонецФункции

&НаКлиенте
Процедура ВыгрузитьВExcel(Команда)

	ВывестиЗаполненныйМакет(ПроектСсылка);
КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
	
	ВывестиЗаполненныйМакет(ОбъектыНазначенияМассив[0]);
    
КонецПроцедуры

&НаКлиенте
Процедура ВывестиЗаполненныйМакет(Ссылка)
	Если Не ПроверитьЗаполнение() Тогда
        Возврат;
    КонецЕсли;
    
    // Если база серверная, то есть вероятность, что на сервере НЕ установлен Excel. Поэтому всю работу с Excel выполняем только на клиенте
    Попытка
        АдресВХранилище = ПолучитьДанныеМакета("МакетОтчетаМаржинальности");
        ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВХранилище);
        
        ИмяФайлаПолное = ПолучитьИмяВременногоФайла("xlsx");
        ДвоичныеДанные.Записать(ИмяФайлаПолное);
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
    Попытка
        Excel = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить("Ошибка при попытке создать объект ""MS Excel""!
                 |Возможно приложение ""MS Excel"" не установлено или установлено неправильно.", СтатусСообщения.Внимание);
    КонецПопытки;
    
    Книга = Excel.WorkBooks.Open(ИмяФайлаПолное);
    Лист1 = Книга.WorkSheets(1);
	
	НомерСтроки = 4;
	
	ПустыеСтроки = 5;
	КонецНоменклатур = ПсевдоПредопределенные_3с.Получить("ЛимитНоменклатурОтчетаМаржинальности") + 3;
	
	СтруктураДанных = ПолучитьДанныеНаСервере(Ссылка);
	
	Для каждого ЭлементСтруктуры Из СтруктураДанных Цикл                                          
		
		Лист1.Cells(НомерСтроки, 2).Value = Строка(ЭлементСтруктуры.Номенклатура);
		Лист1.Cells(НомерСтроки, 3).Value = Строка(ЭлементСтруктуры.НоменклатураАртикул);
        Лист1.Cells(НомерСтроки, 4).Value = Строка(ЭлементСтруктуры.Количество);
		Лист1.Cells(НомерСтроки, 5).Value = строка(Формат(ЭлементСтруктуры.Сумма, "ЧГ=0"));
		Лист1.Cells(НомерСтроки, 6).Value = Строка(ЭлементСтруктуры.Цена);
		Лист1.Cells(НомерСтроки, 7).Value = Строка(Формат(ЭлементСтруктуры.Курс, "ЧРД=."));
		//Лист1.Cells(НомерСтроки, 8).Value = строка(ЭлементСтруктуры.);
		Лист1.Cells(НомерСтроки, 13).Value = строка(Формат(ЭлементСтруктуры.ПриУсловииСкидкиКонечномуПотребителюНеМенееОтРРЦ, "ЧФ=Ч%"));
		Лист1.Cells(НомерСтроки, 15).Value = строка(Формат(ЭлементСтруктуры.ЦенаКонкурента, "ЧГ=0"));
		Лист1.Cells(НомерСтроки, 17).Value = строка("Бренд:" + ЭлементСтруктуры.МодельКонкурента);
		Лист1.Cells(НомерСтроки, 23).Value = строка(Формат(ЭлементСтруктуры.ПредоставленаСкидкаОтРРЦ, "ЧФ=Ч%"));
		
		НомерСтроки = НомерСтроки + 1;
				
	КонецЦикла;
    	
    Если НомерСтроки <= КонецНоменклатур Тогда
        Для ИндексСтроки = НомерСтроки по КонецНоменклатур Цикл
            Лист1.Rows(НомерСтроки).Delete();    
        КонецЦикла;
    КонецЕсли;
	
	Excel.DisplayAlerts = Ложь;
	
	//Диалог выбора пути сохранения
	Режим = РежимДиалогаВыбораФайла.Сохранение;  
	ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим); 
	ДиалогСохраненияФайла.ПолноеИмяФайла = "ОтчетМаржинальности"; 
	Фильтр = "Файлы Microsoft Excel(*.xlsx)|*.xlsx";                 
	ДиалогСохраненияФайла.Фильтр = Фильтр; 
	ДиалогСохраненияФайла.МножественныйВыбор = Ложь; 
	ДиалогСохраненияФайла.Заголовок = "Выберите файл"; 
	Если ДиалогСохраненияФайла.Выбрать() Тогда 
	    ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;
	КонецЕсли;
	Книга.SaveAs(ДиалогСохраненияФайла.ПолноеИмяФайла);
	Excel.Quit();
	Возврат;
	
КонецПроцедуры

&НаСервере
Функция ПолучитьДанныеМакета(ИмяМакета)
    ОбработкаОбъект = РеквизитФормыВЗначение("Отчет");
    Макет = ОбработкаОбъект.ПолучитьМакет(ИмяМакета);
    Возврат ПоместитьВоВременноеХранилище(Макет, Новый УникальныйИдентификатор());
КонецФункции

Функция СведенияОВнешнейОбработке() Экспорт
    ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке();
    ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиОтчет();
    ПараметрыРегистрации.Наименование = НСтр("ru='Анализ маржинальности'");
    ПараметрыРегистрации.БезопасныйРежим = Ложь;
    ПараметрыРегистрации.Версия = "1.0";
    ПараметрыРегистрации.Информация = НСтр("ru='Анализ маржинальности'");

	//ПараметрыРегистрации.Назначение.Добавить("Справочник.*"); 
	
    Команда = ПараметрыРегистрации.Команды.Добавить();
    Команда.Идентификатор = "Анализ маржинальности";
    Команда.Представление = "Анализ маржинальности";
    Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовКлиентскогоМетода(); 
	
	
    Возврат ПараметрыРегистрации;
КонецФункции

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
	//Вставить содержимое обработчика.
	ПараметрыФормы = Новый Структура("СформироватьПриОткрытии", Истина);
	ОткрытьФорму("Отчет.ОтчетМаржинальности.Форма", ПараметрыФормы, ПараметрыВыполненияКоманды.Источник, ПараметрыВыполненияКоманды.Уникальность, ПараметрыВыполненияКоманды.Окно);	
КонецПроцедуры