|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
НастройкиСКД = Отчет.КомпоновщикНастроек.ПолучитьНастройки(); ОрганизацияСКД = Отчет.КомпоновщикНастроек.Настройки.Отбор.ДоступныеПоляОтбора.Элементы.Найти("Организация"); НастройкиСКД.ПараметрыДанных.Элементы.Найти("ПериодОтгрузки").Значение.ДатаНачала = Объект.ПериодОтгрузки.ДатаНачала; НастройкиСКД.ПараметрыДанных.Элементы.Найти("ПериодОтгрузки").Использование = Истина; НастройкиСКД.ПараметрыДанных.Элементы.Найти("ПериодОтгрузки").Значение.ДатаОкончания = Объект.ПериодОтгрузки.ДатаОкончания; НастройкиСКД.ПараметрыДанных.Элементы.Найти("ПериодОтгрузки").Использование = Истина; НастройкиСКД.ПараметрыДанных.Элементы.Найти("НачалоПериода").Значение = Объект.ПериодОтгрузки.ДатаНачала; НастройкиСКД.ПараметрыДанных.Элементы.Найти("НачалоПериода").Использование = Истина; НастройкиСКД.ПараметрыДанных.Элементы.Найти("КонецПериода").Значение = Объект.ПериодОтгрузки.ДатаОкончания; НастройкиСКД.ПараметрыДанных.Элементы.Найти("КонецПериода").Использование = Истина; НастройкиСКД.ПараметрыДанных.Элементы.Найти("СостояниеВОжидание").Использование = Истина; НастройкиСКД.ПараметрыДанных.Элементы.Найти("СостояниеВПодтверждение").Использование = Истина; НастройкиСКД.ПараметрыДанных.Элементы.Найти("КонецВселенной").Использование = Истина; НовыйОтбор = ""; Для Каждого Стр ИЗ НастройкиСКД.Отбор.Элементы Цикл Если Строка(Стр.левоеЗначение) = "Организация" Тогда НовыйОтбор = Стр; Прервать; КонецЕсли; КонецЦикла; Если ПустаяСтрока(НовыйОтбор) Тогда НовыйОтбор = НастройкиСКД.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); КонецЕсли; НовыйОтбор.ЛевоеЗначение = ОрганизацияСКД.Поле; НовыйОтбор.ПравоеЗначение = Объект.Организация; НовыйОтбор.Использование = Истина; Отчет.КомпоновщикНастроек.ЗагрузитьНастройки(НастройкиСКД); КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; МакетКомпоновки = КомпоновщикМакета.Выполнить(Отчет.СхемаКомпоновкиДанных, НастройкиСКД,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений")); ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки); ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений; ТЗ = Новый ТаблицаЗначений; ПроцессорВывода.УстановитьОбъект(ТЗ); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); |