11 июн. 2018 г.

СКД из ТаблицыЗначений \ ВнешниеИсточники

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; // Подготавливаем таблицу значений ДоходДоллар = ДоходДолларПолучить(); РасходГривна = РасходГривнаПолучить(); РасходДоллар = РасходДолларПолучить(); РасходыПроизводство = РасходыПроизводствоПолучить(); ТаблицаРезультат = Новый ТаблицаЗначений; ТаблицаРезультат.Колонки.Добавить("ДоходДоллар"); ТаблицаРезультат.Колонки.Добавить("РасходГривна"); ТаблицаРезультат.Колонки.Добавить("РасходДоллар"); ТаблицаРезультат.Колонки.Добавить("РасходыПроизводство"); новстр = ТаблицаРезультат.Добавить(); новстр.ДоходДоллар = 10; новстр.РасходГривна = 13; новстр.РасходДоллар = 111; новстр.РасходыПроизводство = 8; новстр.ДоходДоллар = ДоходДоллар; новстр.РасходГривна = РасходГривна; новстр.РасходДоллар = РасходДоллар; новстр.РасходыПроизводство = РасходыПроизводство; //Получаем схему из макета СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных"); //Из схемы возьмем настройки по умолчанию Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию; //Помещаем в переменную данные о расшифровке данных ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных; //Формируем макет, с помощью компоновщика макета КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных; //Передаем в макет компоновки схему, настройки и данные расшифровки МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки); //Выполним компоновку с помощью процессора компоновки ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных; ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, Новый Структура("ТаблицаРезультат", ТаблицаРезультат), ДанныеРасшифровки); //Очищаем поле табличного документа ДокументРезультат.Очистить(); //Выводим результат в табличный документ ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент; ПроцессорВывода.УстановитьДокумент(ДокументРезультат); ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных); КонецПроцедуры



Комментариев нет:

Отправить комментарий

 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07