Пример формирования внешнего отчета программно и в фоновом режиме

28.08.18

Разработка - Инструментарий разработчика

–

Пример формирования внешнего отчета программно и фоновом режиме на управляемых формах, также можно подключить его как внешний отчет.

Скачать исходный код

	Наименование	Файл	Версия	Размер
	Пример внешнего отчета: .erf 13,18Kb 91	.erf		13,18Kb	91	Скачать

Этот отчет (ОСВ) был сделан для примера, так сказать показать наглядно на практике, какие есть возможности формирования отчета в платформе 1С.

На форме присутствуют 4 кнопки, которые формируют отчет тем или иным способом.

1. Сформировать - Отчет будет формироваться штатным образом, то есть стандартная команда формы "Сформировать".

2. Сформировать (программно) - Отчет будет формироваться программным образом вызывая процедуру "СформироватьОтчет" в модуле объекта. Передавая в качестве параметров "СхемуКомпоновкиДанных" и АдресХранилища куда будет помещатся результат процедуры.

3. Сформировать (длительные операции в фоне) - Отчет формируется по средствам БСП используя модули "ДлительныеОперации.ЗапуститьВыполнениеВФоне" и "ДополнительныеОтчетыИОбработки.ВыполнитьКоманду". Также как и во 2-ом способе основной процедурой обработчиком будет являтся "СформироватьОтчет" в модуле объекта. Этот способ формирования я считаю самой сложной (по крайней мере для меня), так как в свое время, чтобы релизовать этот способ у меня ушло много времени. И собственно порадило эту публикация, чтобы другие тоже не теряли время. Главным услувием является добавления отчета как внешний отчет в режиме предприятия в подсистему "ДополнительныеОтчетыИОбработки".

4. Сформировать отчет (режим компоновки в фоне) - Отчет формируется также как и первый способ, исключение лишь в том что задается режим компоновки как "РежимКомпоновкиРезультат.Фоновый".

Отчет тестировался на версия БСП - 2.2.5.32, который был в конфигурации Бухгалтерия для Казахстана ред. 3.0 релиз 3.0.9.35. Отчет можно в дальнейшем использовать для разработок новых отчетов, без добавления его в конфигурацию как объект отчет. Тем самым облегчая дальнейшее сопровождение конфигурации.

В отчете достаточно изменить Запрос СКД, в коде КлючТекущегоВарианта ну и везде где есть упоминание про "Пример отчета".

Ниже приведу весь код отчета

Модуль формы отчета:

&НаКлиенте
Перем ПараметрыОбработчикаОжидания;

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	ЭтаФорма.КлючТекущегоВарианта = "ПримерОтчета";
	Если Параметры.ДополнительнаяОбработкаСсылка = Справочники.ДополнительныеОтчетыИОбработки.ПустаяСсылка() Тогда
		// Почему то не передаются "Параметры" ДополнительнаяОбработкаСсылка, так что ищем сами
		// Если же и здесь не находит, то служебные процедуры выведут ошибки.
		ВременнаяСсылка	=	Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию("Пример отчета");
		Параметры.ДополнительнаяОбработкаСсылка	= ВременнаяСсылка;	
		ОбъектСсылка = ВременнаяСсылка; 
	Иначе 
		ОбъектСсылка = Параметры.ДополнительнаяОбработкаСсылка;
	КонецЕсли;
	
КонецПроцедуры

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

&НаКлиенте
Процедура СформироватьОтчетПрограммно(Команда)
	
	СформироватьОтчетПрограммноНаСервере()
	
КонецПроцедуры

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

&НаСервере
Процедура СформироватьОтчетВФонеДлительныеОперацииНаСервере()
	
	ДлительныеОперации.ОтменитьВыполнениеЗадания(ИдентификаторЗадания);
		
	ИдентификаторЗадания 	= Неопределено;
	Выполнено 				= Ложь;
	АдресХранилища 			= ПоместитьВоВременноеХранилище(Неопределено, УникальныйИдентификатор);
	
	ОтчетОбъект	= РеквизитФормыВЗначение("Отчет");
	
	ПараметрыКоманды = Новый Структура;
	ПараметрыКоманды.Вставить("АдресХранилища"         			, АдресХранилища);
	ПараметрыКоманды.Вставить("ДополнительнаяОбработкаСсылка" 	, ОбъектСсылка);
	ПараметрыКоманды.Вставить("СопровождающийТекст"				, НСтр("ru = 'Выполнение отчета...'"));
	ПараметрыКоманды.Вставить("ИдентификаторКоманды"			, "СформироватьОтчет");
	ПараметрыКоманды.Вставить("УникальныйИдентификатор"         , УникальныйИдентификатор);
	ПараметрыКоманды.Вставить("СхемаКомпоновкиДанных"			, ОтчетОбъект.СхемаКомпоновкиДанных);	
	ПараметрыКоманды.Вставить("НастройкиПользователя"			, Отчет.КомпоновщикНастроек.ПользовательскиеНастройки);	
	
	Попытка
		
		ЗаданиеРезультат = ДлительныеОперации.ЗапуститьВыполнениеВФоне(
			УникальныйИдентификатор,
			"ДополнительныеОтчетыИОбработки.ВыполнитьКоманду",
			ПараметрыКоманды,
			СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
				НСтр("ru = 'Выполнение дополнительного отчета или обработки ""%1"", имя команды ""%2""'"),
				Строка(ПараметрыКоманды.ДополнительнаяОбработкаСсылка),
				ПараметрыКоманды.ИдентификаторКоманды));
		
		Выполнено = ЗаданиеРезультат.ЗаданиеВыполнено;
		ВызваноИсключение = Ложь;
		
		Если Выполнено Тогда
			ЗагрузитьПодготовленныеДанные();
		Иначе
			ИдентификаторЗадания  = ЗаданиеРезультат.ИдентификаторЗадания;
		КонецЕсли;
		
	Исключение
		
		Выполнено = Ложь;
		ВызваноИсключение = Истина;
		ТекстОшибки = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
		
	КонецПопытки;
	
		
КонецПроцедуры

&НаКлиенте
Процедура СформироватьОтчетВФонеРежимКомпоновки(Команда)
	
 	ЭтаФорма.СкомпоноватьРезультат(РежимКомпоновкиРезультата.Фоновый);
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ПроверитьВыполнениеЗадания()
	
	Попытка
		Если ЗаданиеВыполнено(ИдентификаторЗадания) Тогда 

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

&НаКлиенте
Процедура ЗагрузитьПодготовленныеДанныеНаКлиенте()
	
	ЗагрузитьПодготовленныеДанные();
		
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьПодготовленныеДанные()

	РезультатВыполнения = ПолучитьИзВременногоХранилища(АдресХранилища);
	
	Результат = РезультатВыполнения.Результат;	

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

&НаСервереБезКонтекста
Функция ЗаданиеВыполнено(ИдентификаторЗадания)
	
	Возврат ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания);
	
КонецФункции

Модуль объекта:

#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда

////////////////////////////////////////////////////////////////////////////////
// ПРОГРАММНЫЙ ИНТЕРФЕЙС

#Область ПрограммныйИнтерфейс

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

// Интерфейс для выполнения команд обработки.
Процедура ВыполнитьКоманду(ИмяКоманды,ПараметрыВыполненияКоманды) Экспорт
	
	Если ИмяКоманды = "СформироватьОтчет" Тогда
		СформироватьОтчет(ПараметрыВыполненияКоманды,ПараметрыВыполненияКоманды.АдресХранилища);
	КонецЕсли;
	
КонецПроцедуры
#КонецОбласти

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

#КонецЕсли

Внешний отчеты и обработки ДополнительныеОтчетыИОбработки СКД Выполенение в фоне.

–

См. также

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020 124829 682 389

732

Infostart PrintWizard - создание и редактирование печатных форм в 1С 8.3

Пакетная печать Печатные формы Инструментарий разработчика Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 руб.

06.10.2023 7756 24 6

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 руб.

10.11.2023 4267 12 2

SALE! %

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

~~3600~~ 2280 руб.

14.01.2013 178629 1083 0

861

Многопоточность. Универсальный «Менеджер потоков» 2.1

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

5000 руб.

07.02.2018 99606 239 97

298

[ЕХТ] Фреймворк для Расширений 1С

Инструментарий разработчика Платформа 1С v8.3 Управляемые формы Платные (руб)

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019 18378 6 8

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

Инструментарий разработчика Обмен между базами 1C Платформа 1С v8.3 Платные (руб)

В процессе работы в 1С часто возникает потребность получить данные из другой базы. Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019 23853 16 15

1С HTML Шаблоны / HTML Templates

Инструментарий разработчика Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017 28310 3 10

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. shura_k 15.11.17 10:58 Сейчас в теме

пробую ваш обработку, для меня так же важно запустить отчет в фоне.
отчет сам формируется нормально, и штатными средствами и вашей процедурой СформироватьОтчетПрограммноНаСервере.
но вот с фоновом формированием - проблема.
ничего не возвращается из Временного Хранилища!
помогите пожалуйста разобраться...

Разобрался - проблемы была в Параметры.ДополнительнаяОбработкаСсылк

2. Bakytzhan_777 61 15.11.17 11:59 Сейчас в теме

(1)Рад что разобрались). Я тоже с этим сталкивался, многие часы отладки таки не дали ответа, почему ссылка пустая. Пришлось самому присваивать ссылку в "Параметры.ДополнительнаяОбработкаСсылка".

3. shura_k 15.11.17 13:10 Сейчас в теме

но в обработке есть реально две ошибки:
1. НоваяКоманда.Идентификатор = "СформироватьОтчет";
НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
у вас изначально вариант - открытиеформы, а надо вызовсерверногометода.
У вас же даже Процедура ВыполнитьКоманду для этого уже была.
2. ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
ТекущийИнтервал = ПараметрыОбработчикаОжидания.ТекущийИнтервал;
ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания",ТекущийИнтервал, Истина);
надо инициализировать ПараметрыОбработчикаОжидания, иначе потом в процедуре Подключаемый_ПроверитьВыполнениеЗадания будет ошибка на ТекущийИнтервал

4. Bakytzhan_777 61 15.11.17 17:00 Сейчас в теме

(3)

1. НоваяКоманда.Идентификатор = "СформироватьОтчет";
НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
у вас изначально вариант - открытиеформы, а надо вызовсерверногометода.

Если ставить "ТипКомандыВызовСерверногоМетода()" вместо "ТипКомандыОткрытиеФормы()" то форма не откроется и запуститься сразу команда по идентификатору "СформироватьОтчет".

2. ДлительныеОперацииКлиент.ИнициализироватьПараметрыОбработчикаОжидания(ПараметрыОбработчикаОжидания);
ТекущийИнтервал = ПараметрыОбработчикаОжидания.ТекущийИнтервал;
ПодключитьОбработчикОжидания("Подключаемый_ПроверитьВыполнениеЗадания",ТекущийИнтервал, Истина);
надо инициализировать ПараметрыОбработчикаОжидания, иначе потом в процедуре Подключаемый_ПроверитьВыполнениеЗадания будет ошибка на ТекущийИнтервал

Здесь все поправил.
Спасибо вам за замечания.

9. Mikhail-Kobtsev 27.08.18 16:57 Сейчас в теме

(3)

ыОбработчикаОжидания.ТекущийИ

подскажи в каком именно моменте необходимо инициализация ПараметрыОбработчикаОжидания ?

10. Bakytzhan_777 61 28.08.18 07:02 Сейчас в теме

(9) В типовых инициализируют при открытии формы. Я сделал в команде "СформироватьОтчетВФонеДлительныеОперации".

5. shura_k 15.11.17 17:43 Сейчас в теме

да, тоже до этого дошел.
в итоге сделал две команды: одну на открытие формы другую на ВызовСерверногоМетода.
потому как без первого - реально форма не открывается, а без второго не работает сформировать отчет в фоне.
я в процедуре формирования еще запихиваю тз во внешние данные.