Страница 1 из 1

1С УФ Быстрый отчет СКД программно

Добавлено: 01 авг 2019 14:33
admin
кидаем табличный документ на форму (ВыводТопаОшибок)
кидаем кнопку
рисуем макет скд (ТопОшибок)
на сервере:

Код: Выделить всё

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