0
HelenSn
23.08.12
✎
21:19
|
Помогите найти ошибку!!!Нужно установить отбор в скд - настройки компоновки, ранее сохранены в реквизит справочника. возвращает пустой отчет
СхемаКомпоновкиДанных = ПолучитьОбщийМакет(Метаданные.ОбщиеМакеты.Макет);
АдресСхемыКомпоновкиДанных = ПоместитьВоВременноеХранилище(СхемаКомпоновкиДанных, УникальныйИдентификатор);
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресСхемыКомпоновкиДанных));
спрНастройки = Объект.Стелаж.ХранилищеНастроек.настройки.Получить();
если спрНастройки = Неопределено тогда
КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);
иначе
КомпоновщикНастроек.ЗагрузитьНастройки(спрНастройки);
конецЕсли;
Параметр = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Размер"));
если Параметр <> Неопределено тогда
Параметр.Значение =100;
Параметр.Использование = Истина;
конецЕсли;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(ПолучитьИзВременногоХранилища(АдресСхемыКомпоновкиДанных),КомпоновщикНастроек.Настройки);
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, , , Истина);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ТабДок);
ПроцессорВывода.Вывести(ПроцессорКомпоновки);
ТабДок.Показать();
|
|