lucyrlv
Людмила Рожнёва

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