Имя: Пароль:
1C
1С v8
Установить отбор в скд
0 HelenSn
 
23.08.12
21:19
Помогите найти ошибку!!!Нужно установить отбор в скд - настройки компоновки, ранее сохранены в  реквизит справочника. возвращает пустой отчет

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