Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
20 мая 2024, 04:18

Настройки СКД - загрузка из справочника

Автор Elena_13, 23 авг 2012, 15:17

0 Пользователей и 1 гость просматривают эту тему.

Elena_13

Помогите найти ошибку!!!Нужно программно создать скд – не получается применить настройки компоновки, ранее сохраненные в  реквизит справочника – возвращает пустой отчет

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск