Как программно сформировать отчет СКД указав параметры и на выходе получить таблице значений? В одном документе для расчета потребовалось получать данные из отчета на СКД, реализовал следующим образом:
Код 1C v 8.х
СхемаОст = Отчеты. ТоннажПоЭкспедиторам. ПолучитьМакет( "ОсновнаяСхемаКомпоновкиДанных" ) ;
КомпоновщикНастроекНастройки = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроекНастройки. Инициализировать( Новый ИсточникДоступныхНастроекКомпоновкиДанных( СхемаОст) ) ;
КомпоновщикНастроекНастройки. ЗагрузитьНастройки( СхемаОст. НастройкиПоУмолчанию) ;
КомпоновщикНастроекНастройки. Настройки. ПараметрыДанных. УстановитьЗначениеПараметра( "НачалоПериода" , НачалоМесяца( МесяцРасчета) ) ;
КомпоновщикНастроекНастройки. Настройки. ПараметрыДанных. УстановитьЗначениеПараметра( "КонецПериода" , КонецМесяца( МесяцРасчета) ) ;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновкиДанных = КомпоновщикМакета. Выполнить( СхемаОст, КомпоновщикНастроекНастройки. Настройки, , , Тип( "ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений" ) ) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновкиДанных) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ДанныеТЗ = Новый ТаблицаЗначений;
ПроцессорВывода. УстановитьОбъект( ДанныеТЗ) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных) ;
ТоннажПоЭкспедиторам. Очистить( ) ;
Для каждого СтрокаТЗ Из ДанныеТЗ Цикл
Если ЗначениеЗаполнено( СтрокаТЗ. Экспедитор) и СтрокаТЗ. Доставка= Неопределено Тогда
нСтр = ТоннажПоЭкспедиторам. Добавить( ) ;
ЗаполнитьЗначенияСвойств( нСтр, СтрокаТЗ) ;
нСтр. Сотрудник= СтрокаТЗ. Экспедитор;
Иначе
Продолжить;
КонецЕсли ;
КонецЦикла ;
Категория:
Схема Компоновки Данных Как в СКД повторять шапку на каждой странице при печати и вывести колонтитулы? Нужно выводить на каждой странице отчета, шапку. Отчет сделан через СКД (Схема компоновки данных). В схеме есть макет, в нем есть ячейки шапки.
Для этого используется метод - ПовторятьПриПечатиСтроки, о нем я уже писал: Как при печати выводить шапку на каждой странице (ПовторятьПриПечатиСтроки)?
Код кнопки формирования отчета:
Код 1C v 8.3 СводнаяКартаРезультат = Новый ТабличныйДокумент;
ПечатьСводнойКартыНаСервере( СводнаяКартаРезультат) ;
СводнаяКартаРезультат. Показать( "СводнаяКарта" ) ; Процедура вывода отчета:
Код 1C v 8.3 &НаСервере
Процедура ПечатьСводнойКартыНаСервере(СводнаяКартаРезультат) = Справочники. Номенклатура. ПолучитьМакет( "МакетСводнаяКарта" ) ;
СводнаяКартаРезультат. ПовторятьПриПечатиСтроки = СводнаяКартаРезультат. Область( 7 , , 7 ) ;
Настройки = СхемаКомпоновкиДанных. НастройкиПоУмолчанию;
НомеклатураСсылка = Настройки. ПараметрыДанных. Элементы. Найти( "НоменклатураСсылка" ) ;
НомеклатураСсылка. Значение = Объект. Ссылка;
НомеклатураСсылка. Использование = Истина ;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки, , ДанныеРасшифровки) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( СводнаяКартаРезультат) ;
ПроцессорВывода. НачатьВывод( ) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных, Истина ) ;
ПроцессорВывода. ЗакончитьВывод( ) ;
КонецПроцедуры Если дополнительно нужно вывести колонтитулы,
тогда:
Код 1C v 8.3
ТабДок. ВерхнийКолонтитул. Выводить = Истина ;
ТабДок. ВерхнийКолонтитул. НачальнаяСтраница = 2 ;
ТабДок. ВерхнийКолонтитул. Шрифт = Новый Шрифт( Результат. ВерхнийКолонтитул. Шрифт, , , , Истина ) ;
ТабДок. ВерхнийКолонтитул. ТекстСлева = "Заголовок отчета" ;
ТабДок. ВерхнийКолонтитул. ТекстВЦентре = "Стр. [&НомерСтраницы] из [&СтраницВсего]" ;
ТабДок. ВерхнийКолонтитул. ТекстСправа = "Дата/время печати: [&Дата]/[&Время]" ;
ТабДок. НижнийКолонтитул. Выводить = Истина ;
ТабДок. НижнийКолонтитул. Шрифт = Новый Шрифт( Результат. ВерхнийКолонтитул. Шрифт, , , , Истина ) ;
ТабДок. НижнийКолонтитул. ТекстВЦентре = "Заголовок отчета" ; Категория:
Схема Компоновки Данных Получение уникального идентификатора ссылки в СКД Как известно, с помощью языка запросов 1С получить уникальный идентификатор объекта ссылочного типа на данный момент нельзя. Но используя возможность СКД обращаться к внешним функциям можно получить строковое представление уникального идентификатора ссылки. Для этого необходимо использовать глобальную функцию XMLСтрока в вычисляемых полях в макете схемы компоновки.
Далее проведем эксперимент по быстродействию получения результата через запрос с последующей обработкой выборки и вариантов с использованием СКД.
Рассмотрим два случая - вывод в табличный документ и формирование текстового документа.
Так же в случае с СКД мы можем создать схему компоновки программно или использовать готовую. Результат работы СКД так же можно обойти в цикле, либо вывести в таблицу значений с последующей обработкой. Для экспериментов будет использоваться платформа 8.3, конфигурация УТ11 (файловая), справочник "КлассификаторБанковРФ", более 4000 элементов.
Схему компоновки и макет можно посмотреть, скачав обработку (ссылка в конце).
Код 1C v 8.2 УП &НаКлиентеНаСервереБезКонтекста
Функция ПолучитьТекстЗапроса() Возврат "ВЫБРАТЬ
| КлассификаторБанковРФ.Ссылка,
| КлассификаторБанковРФ.Наименование
|ИЗ
| Справочник.КлассификаторБанковРФ КАК КлассификаторБанковРФ" ;
КонецФункции
&НаСервере
Функция ПолучитьСхемуОбработки() Возврат РеквизитФормыВЗначение( "Отчет" ) . ПолучитьМакет( "Макет" ) ;
КонецФункции
&НаСервереБезКонтекста
Функция ПолучитьСхемуКомпоновки() = Новый СхемаКомпоновкиДанных;
ИсточникДанных = Схема. ИсточникиДанных. Добавить( ) ;
ИсточникДанных. Имя = "Источник" ;
ИсточникДанных. ТипИсточникаДанных = "Local" ;
НаборДанных = Схема. НаборыДанных. Добавить( Тип( "НаборДанныхЗапросСхемыКомпоновкиДанных" ) ) ;
НаборДанных. Имя = "НаборДанных" ;
НаборДанных. ИсточникДанных = "Источник" ;
НаборДанных. Запрос = ПолучитьТекстЗапроса( ) ;
НаборСсылка = НаборДанных. Поля. Добавить( Тип( "ПолеНабораДанныхСхемыКомпоновкиДанных" ) ) ;
НаборСсылка. Поле = "Ссылка" ;
НаборСсылка. ПутьКДанным = "Ссылка" ;
НаборНаименование= НаборДанных. Поля. Добавить( Тип( "ПолеНабораДанныхСхемыКомпоновкиДанных" ) ) ;
НаборНаименование. Поле = "Наименование" ;
НаборНаименование. ПутьКДанным = "Наименование" ;
ПолеИД = Схема. ВычисляемыеПоля. Добавить( ) ;
ПолеИД. Выражение = "XMLСтрока(Ссылка)" ;
ПолеИД. Заголовок = "ИД" ;
ПолеИД. ПутьКДанным = "ИД" ;
СтрокаТЗ = Схема. НастройкиПоУмолчанию. Структура. Добавить( Тип( "ГруппировкаКомпоновкиДанных" ) ) ;
СтрокаТЗ. Выбор. Элементы. Добавить( Тип( "АвтоВыбранноеПолеКомпоновкиДанных" ) ) ;
ЭлементыВыбора = Схема. НастройкиПоУмолчанию. Выбор. Элементы;
ПолеСсылка = ЭлементыВыбора. Добавить( Тип( "ВыбранноеПолеКомпоновкиДанных" ) ) ;
ПолеСсылка. Поле = Новый ПолеКомпоновкиДанных( "Ссылка" ) ;
ПолеНаименование = ЭлементыВыбора. Добавить( Тип( "ВыбранноеПолеКомпоновкиДанных" ) ) ;
ПолеНаименование. Поле = Новый ПолеКомпоновкиДанных( "Наименование" ) ;
ПолеИД = ЭлементыВыбора. Добавить( Тип( "ВыбранноеПолеКомпоновкиДанных" ) ) ;
ПолеИД. Поле = Новый ПолеКомпоновкиДанных( "ИД" ) ;
Возврат Схема;
КонецФункции
&НаСервереБезКонтекста
Функция ЗаполнитьПоКомпоновкеПрямойОбход(Схема) = Новый ТекстовыйДокумент;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
Макет = КомпоновщикМакета. Выполнить( Схема, Схема. НастройкиПоУмолчанию, , , Тип( "ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений" ) ) ;
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки. Инициализировать( Макет, , , Истина ) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ПроцессорВывода. УстановитьОбъект( Новый ТаблицаЗначений) ;
ПроцессорВывода. НачатьВывод( ) ;
Пока Истина Цикл
ЭлементКомпоновки = ПроцессорКомпоновки. Следующий( ) ;
Если ЭлементКомпоновки = Неопределено Тогда
Прервать ;
КонецЕсли ;
ПроцессорВывода. ВывестиЭлемент( ЭлементКомпоновки) ;
Если ЭлементКомпоновки. Макет = "Макет2" И ЭлементКомпоновки. ТипЭлемента = ТипЭлементаРезультатаКомпоновкиДанных. НачалоИКонец Тогда
Док. ДобавитьСтроку( ЭлементКомпоновки. ЗначенияПараметров. П2 . Значение + ";" + ЭлементКомпоновки. ЗначенияПараметров. П3 . Значение) ;
КонецЕсли ;
КонецЦикла ;
ТЗ = ПроцессорВывода. ЗакончитьВывод( ) ;
Возврат Док;
КонецФункции
&НаСервере
Функция ЗаполнитьОбходТЗ(ИспользоватьСхемуОбработки) Если ИспользоватьСхемуОбработки Тогда
Схема = ПолучитьСхемуОбработки( ) ;
Иначе
Схема = ПолучитьСхемуКомпоновки( ) ;
КонецЕсли ;
Возврат ЗаполнитьПоКомпоновкеОбходТЗ( Схема) ;
КонецФункции
&НаСервере
Функция ЗаполнитьПрямойОбход(ИспользоватьСхемуОбработки) Если ИспользоватьСхемуОбработки Тогда
Схема = ПолучитьСхемуОбработки( ) ;
Иначе
Схема = ПолучитьСхемуКомпоновки( ) ;
КонецЕсли ;
Возврат ЗаполнитьПоКомпоновкеПрямойОбход( Схема) ;
КонецФункции
&НаСервереБезКонтекста
Функция ЗаполнитьПоКомпоновкеОбходТЗ(Схема) = Новый ТекстовыйДокумент;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
Макет = КомпоновщикМакета. Выполнить( Схема, Схема. НастройкиПоУмолчанию, , , Тип( "ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений" ) ) ;
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки. Инициализировать( Макет, , , Истина ) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
ПроцессорВывода. УстановитьОбъект( Новый ТаблицаЗначений) ;
ТЗ = ПроцессорВывода. Вывести( ПроцессорКомпоновки) ;
Для Каждого СтрокаТЗ Из ТЗ Цикл
Док. ДобавитьСтроку( СтрокаТЗ. Наименование + ";" + СтрокаТЗ. ИД) ;
КонецЦикла ;
Возврат Док;
КонецФункции
&НаСервереБезКонтекста
Функция ЗаполнитьПоЗапросу() = Новый ТекстовыйДокумент;
Запрос = Новый Запрос( ПолучитьТекстЗапроса( ) ) ;
Результат = Запрос. Выполнить( ) . Выбрать( ) ;
Пока Результат. Следующий( ) Цикл
Док. ДобавитьСтроку( Результат. Наименование + ";" + XMLСтрока( Результат. Ссылка) ) ;
КонецЦикла ;
Возврат Док;
КонецФункции
&НаСервере
Процедура ЗаполнитьТабДокСхема(ИспользоватьСхемуОбработки) Если ИспользоватьСхемуОбработки Тогда
Схема = ПолучитьСхемуОбработки( ) ;
ТабДок = ТабДок1 ;
Иначе
Схема = ПолучитьСхемуКомпоновки( ) ;
ТабДок = ТабДок2 ;
КонецЕсли ;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
Макет = КомпоновщикМакета. Выполнить( Схема, Схема. НастройкиПоУмолчанию) ;
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки. Инициализировать( Макет, , , Истина ) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( ТабДок) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновки) ;
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьТабДокЗапрос() = РеквизитФормыВЗначение( "Отчет" ) . ПолучитьМакет( "Отчет" ) ;
ОбластьСтрока = Макет. ПолучитьОбласть( "Строка" ) ;
Запрос = Новый Запрос( ПолучитьТекстЗапроса( ) ) ;
Результат = Запрос. Выполнить( ) . Выбрать( ) ;
Пока Результат. Следующий( ) Цикл
ОбластьСтрока. Параметры. Заполнить( Результат) ;
ОбластьСтрока. Параметры. ИД = XMLСтрока( Результат. Ссылка) ;
ТабДок3 . Вывести( ОбластьСтрока) ;
КонецЦикла ;
КонецПроцедуры
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) ( Истина ) ;
ЗаполнитьТабДокСхема( Ложь ) ;
ЗаполнитьТабДокЗапрос( ) ;
Т1 = ЗаполнитьПоЗапросу( ) ;
Т2 = ЗаполнитьОбходТЗ( Ложь ) ;
Т3 = ЗаполнитьОбходТЗ( Истина ) ;
Т4 = ЗаполнитьПрямойОбход( Ложь ) ;
Т5 = ЗаполнитьПрямойОбход( Истина ) ;
КонецПроцедуры
По результатам замера производительности видно, что вывод результата в табличный документ происходит быстрее при использовании СКД, причем вариант с программным созданием схемы отрабатывает несколько быстрее.
В тоже время вывод результатов в текстовый документ отрабатывает быстрее для запроса.
Программное создание схемы компоновки отработало быстрее, чем получение макета схемы.
Источник
Категория:
Схема Компоновки Данных Печатная форма с использованием СКД Создаем макет СКД, там произвольно или с какими-нибудь условиями выбираем в наборе данных поля табличной части, ставим условие на документ владелец, и задаем оформление. В форме документа добавляем кнопку печать, прописываем в параметрах наш документ и оп-ля - печатная форма готова
Код 1C v 8.х Процедура ОсновныеДействияФормыПечать(Кнопка) Если Ссылка = Документы. РасчетЗаказа. ПустаяСсылка( ) тогда
Предупреждение( "Документ не записан" ) ;
Возврат ;
Иначе
Схема = ПолучитьМакет( "Макет1" ) ;
Настройки = Схема. НастройкиПоУмолчанию;
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных( ) ;
КомпоновщикНастроек. ЗагрузитьНастройки( Настройки) ;
ПараметрДок = Новый ПараметрКомпоновкиДанных( "документ" ) ;
ЗначениеПараметраДок = КомпоновщикНастроек. Настройки. ПараметрыДанных. НайтиЗначениеПараметра( ПараметрДок) ;
ЗначениеПараметраДок. Значение = Ссылка;
ЗначениеПараметраДок. Использование = Истина ;
Настройки = КомпоновщикНастроек. Настройки;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( Схема, Настройки) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки) ;
ДокументРезультат = Новый ТабличныйДокумент;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( ДокументРезультат) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных) ;
ДокументРезультат. ОтображатьЗаголовки = Ложь ;
ДокументРезультат. ОтображатьСетку = Ложь ;
ДокументРезультат. АвтоМасштаб = Истина ;
ДокументРезультат. Показать( ) ;
КонецЕсли ;
КонецПроцедуры
Автор:
sanja Категория:
Схема Компоновки Данных Пример программного вызова СКД отчета Пример использования СКД отчета для заполнения табличного документа.
Вызываем отчет “Маркетинговый план” сделаного на основе СКД.
Установка параметр “Вероятность”. И отбора по ключу “Основание.МВЗ.СПО”
Код 1C v 8.х Отчет = Отчеты. МаркетинговыйПлан. Создать( ) ;
Схема = Отчет. ПолучитьМакет( "ОсновнаяСхемаКомпоновкиДанных" ) ;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ТабДок = Новый ТабличныйДокумент;
ИсточникДоступныхНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных( Схема) ;
КомпоновщикНастроек. Инициализировать( ИсточникДоступныхНастроек) ;
Настройки = Схема. НастройкиПоУмолчанию;
насВероятнось = Настройки. ПараметрыДанных. Элементы. Найти( "Вероятность" ) ;
насВероятнось. Использование = Истина ;
насВероятнось. Значение = Веротяность;
Если ЗначениеЗаполнено( СПО) тогда
ПолеОтбораСПО = Новый ПолеКомпоновкиДанных( "Основание.МВЗ.СПО" ) ;
ОтборПоСПО = Настройки. Отбор. Элементы. Добавить( Тип( "ЭлементОтбораКомпоновкиДанных" ) ) ;
ОтборПоСПО. ЛевоеЗначение = ПолеОтбораСПО;
ОтборПоСПО. ВидСравнения = ВидСравненияКомпоновкиДанных. Равно;
ОтборПоСПО. ПравоеЗначение = СПО;
ОтборПоСПО. Использование = Истина ;
КонецЕсли ;
Макет = КомпоновщикМакета. Выполнить( Схема, Настройки) ;
ПроцессорКомпоновки. Инициализировать( Макет, , , Истина ) ;
ПроцессорВывода. УстановитьДокумент( ТабДок) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновки) ;
Категория:
Схема Компоновки Данных Как результат СКД в виде Табличного Документа разобрать и вывести в Дерево Значений Процедура получает из СКД результат в виде Табличного документа, парсит его, создает в Дереве на форме колонки и заполняет дерево данными результата СКД
Смысл в том, что СКД не может вывести результат в объект на форму, если он Таблица - выдает ошибку "Не поддерживается вывод таблиц, диаграмм и вложенных отчетов в универсальную коллекцию значений".
Поэтому я выгружаю СКД в ТабличныйДокумент и вытаскиваю данные уже из него, далее строю и заполняю Дерево на форме
Код 1C v 8.х Процедура ЗаполнитьДерево() . Строки. Очистить( ) ;
КолРазмеров = 0 ;
СхемаКомпоновкиДанных = ПолучитьМакет( "Схема" ) ;
Настройки = СхемаКомпоновкиДанных. НастройкиПоУмолчанию;
Для Каждого ЭлементОтбора Из ПостроительОтчета. Отбор Цикл
Если Не ЭлементОтбора. Использование Тогда
Продолжить;
КонецЕсли ;
ВидСравненияВОтборе = мСоответствиеВидовСравнения. Получить( ЭлементОтбора. ВидСравнения) ;
Если ВидСравненияВОтборе = Неопределено Тогда
Продолжить;
КонецЕсли ;
Если Лев( ЭлементОтбора. ПутьКДанным, 8 ) = "Свойство" Тогда
ИмяПоля = "Номенклатура.[" + мСоответствиеНазначений[ЭлементОтбора. Представление]+ " (свойство)]" ;
ИначеЕсли Лев( ЭлементОтбора. ПутьКДанным, 9 ) = "Категория" Тогда
ИмяПоля = "Номенклатура.[" + мСоответствиеНазначений[ЭлементОтбора. Представление]+ " (категория)]" ;
Иначе
ИмяПоля = ЭлементОтбора. ПутьКДанным;
КонецЕсли ;
ПолеОтбора = Новый ПолеКомпоновкиДанных( ИмяПоля) ;
Отбор = Настройки. Отбор. Элементы. Добавить( Тип( "ЭлементОтбораКомпоновкиДанных" ) ) ;
Отбор. ЛевоеЗначение = ПолеОтбора;
Отбор. Использование = Истина ;
Отбор. ВидСравнения = ВидСравненияВОтборе;
Отбор. ПравоеЗначение = ЭлементОтбора. Значение;
КонецЦикла ;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки, , Тип( "ГенераторМакетаКомпоновкиДанных" ) ) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки, , ДанныеРасшифровки) ;
ТабличныйДокумент = Новый ТабличныйДокумент;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( ТабличныйДокумент) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных, Истина ) ;
КолДанных = 5 ;
СоздатьДерево( ТабличныйДокумент, КолДанных) ;
СтКол = Новый Структура;
СтКол. Вставить( "Ном" , 1 ) ;
СтКол. Вставить( "Дат1" , 2 ) ;
СтКол. Вставить( "Дат2" , 3 ) ;
СтКол. Вставить( "Прих" , 4 ) ;
СтКол. Вставить( "Реал" , 5 ) ;
СтКол. Вставить( "Возв" , 6 ) ;
СтКол. Вставить( "Остат" , 7 ) ;
СтКол. Вставить( "ВПути" , 8 ) ;
СтрНом = Неопределено ;
СтрДерева = Неопределено ;
Для i= 3 По ТабличныйДокумент. ВысотаТаблицы Цикл
ПерваяКолонка = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Ном) ;
Если ТипЗнч( ПерваяКолонка) = Тип( "СправочникСсылка.Номенклатура" ) Тогда
Если СтрНом Неопределено Тогда
СтрНом. Строки. Сортировать( "Продажи УБЫВ" ) ;
СтрНом. ОстатокМагазин = СтрНом. Строки. Итог( "ОстатокМагазин" ) ;
СтрНом. ОстатокСклад = СтрНом. Строки. Итог( "ОстатокСклад" ) ;
КонецЕсли ;
СтрНом = ДеревоЗначений. Строки. Добавить( ) ;
СтрДерева = СтрНом;
ИначеЕсли ТипЗнч( ПерваяКолонка) = Тип( "СправочникСсылка.Склады" ) Тогда
СтрДерева = СтрНом. Строки. Добавить( ) ;
Дат1 = Формат( ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Дат1 ) , "ДФ=dd.MM.yy" ) ;
Дат2 = Формат( ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Дат2 ) , "ДФ=dd.MM.yy" ) ;
СтрДерева. Период = "" + Дат1 + " - " + Дат2 ;
Иначе
Продолжить;
КонецЕсли ;
СтрДерева. Номенклатура = ПерваяКолонка;
СтрДерева. Остаток = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Остат, Истина ) ;
СтрДерева. Приход = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Прих, Истина ) ;
СтрДерева. Продажи = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Реал, Истина ) ;
СтрДерева. Возврат = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, СтКол. Возв, Истина ) ;
Если ЗначениеЗаполнено( СтрДерева. Родитель) Тогда
Если ПерваяКолонка. ТипСклада = Перечисления. ТипыСкладов. ТорговыйЗал Тогда СтрДерева. ОстатокМагазин = СтрДерева. Остаток;
Иначе СтрДерева. ОстатокСклад = СтрДерева. Остаток;
КонецЕсли ;
Попытка СтрДерева. ПроцентПродаж = СтрДерева. Продажи * 100 / СтрДерева. Родитель. Продажи;
Исключение СтрДерева. ПроцентПродаж = "-" ;
КонецПопытки ;
Иначе
СтрДерева. ПроцентПродаж = "100%" ;
КонецЕсли ;
Для j= 1 По КолРазмеров Цикл
СтрДерева["Ост" + j] = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, 3 + КолДанных * j + 4 , Истина ) ;
СтрДерева["Пут" + j] = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, i, 3 + КолДанных * j + 5 , Истина ) ;
КонецЦикла ;
КонецЦикла ;
КонецПроцедуры
Процедура СоздатьДерево(ТабличныйДокумент, КолДанных) = Новый КвалификаторыЧисла( 10 , 0 ) ;
Массив = Новый Массив;
Массив. Добавить( Тип( "Число" ) ) ;
ОписаниеТиповЧ = Новый ОписаниеТипов( Массив, , , КЧ) ;
Ном = 3 + КолДанных + 1 ;
КолРазмеров = ( ТабличныйДокумент. ШиринаТаблицы - Ном- 1 ) / КолДанных + 1 ;
Для i= 1 По КолРазмеров Цикл
Размер = ПолучитьЗначениеРасшифровки( ТабличныйДокумент, 1 , Ном, Истина , Ложь ) ;
Ном = Ном + КолДанных;
Попытка
ДеревоЗначений. Колонки. Добавить( "Ост" + i, ОписаниеТиповЧ, Размер, 5 ) ;
ДеревоЗначений. Колонки. Добавить( "Пут" + i, ОписаниеТиповЧ, "Путь" , 5 ) ;
ДеревоЗначений. Колонки. Добавить( "Пер" + i, ОписаниеТиповЧ, "Пер" , 5 ) ;
Исключение
КонецПопытки ;
КонецЦикла ;
ЭтаФорма. ЭлементыФормы. ДеревоЗначений. Значение = ДеревоЗначений;
ЭтаФорма. ЭлементыФормы. ДеревоЗначений. СоздатьКолонки( ) ;
i= 1 ; НомерРазмера= 1 ;
Для Каждого Кол Из ЭтаФорма. ЭлементыФормы. ДеревоЗначений. Колонки Цикл
Кол. ТолькоПросмотр = Истина ;
Если i = ( НомерРазмера + 8 + 1 ) Тогда
Кол. Положение = ПоложениеКолонки. НоваяКолонка;
ИначеЕсли i = ( НомерРазмера + 8 + 2 ) Тогда
Кол. Положение = ПоложениеКолонки. НаСледующейСтроке;
ИначеЕсли i = ( НомерРазмера + 8 + 3 ) Тогда
Кол. Положение = ПоложениеКолонки. ВТойЖеКолонке;
Кол. ТолькоПросмотр = Ложь ;
НомерРазмера = НомерРазмера + 3 ;
КонецЕсли ;
Если i= 1 Тогда
Кол. Ширина = 20 ;
Иначе
Если i= 2 Тогда Кол. Ширина = 11 ;
ИначеЕсли i9 Тогда Кол. Ширина = 7 ;
Иначе Кол. Ширина = 5 ;
КонецЕсли ;
Кол. ИзменениеРазмера = ИзменениеРазмераКолонки. НеИзменять;
КонецЕсли ;
i= i+ 1 ;
КонецЦикла ;
КонецПроцедуры
Автор:
Абазин Антон Категория:
Схема Компоновки Данных СКД и Сводная таблица В СКД - набор данных Объект. Имя объекта - Табл
Табл - это Таблица Значений, которую я получаю из внешнего файла
В форме отчета, в процедуре
ПередОткрытием() есть следующий код:
Код 1C v 8.х ВнешниеНаборыДанных = Новый Структура;
ВнешниеНаборыДанных. Вставить( "Табл" , Табл) ;
СхемаКомпоновкиДанных = ПолучитьМакет( "ОсновнаяСхемаКомпоновкиДанных1" ) ;
Настройки = СхемаКомпоновкиДанных. НастройкиПоУмолчанию;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( СхемаКомпоновкиДанных, Настройки) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки, ВнешниеНаборыДанных) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( ЭлементыФормы. Результат) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных) ;
ИсточникСводнойТаблицы = Новый ИсточникДанныхСводнойТаблицыКомпоновкиДанных;
ИсточникСводнойТаблицы. УстановитьСхему( СхемаКомпоновкиДанных) ;
ЭлементыФормы. Результат. ВстроенныеТаблицы. СводнаяТаблица1 . ИсточникДанных = ИсточникСводнойТаблицы;
ИсточникНастроек = Новый ИсточникДоступныхНастроекКомпоновкиДанных( СхемаКомпоновкиДанных) ;
КомпоновщикНастроек. Инициализировать( ИсточникНастроек) ;
ИсточникСводнойТаблицы. УстановитьНастройки( КомпоновщикНастроек. Настройки) ;
Нужно сделать набор данных - запрос и оставить код, который выше, после "Затем добавляю строки по выводу СКД:" и все прекрасно выводится в сводной таблице
ПодводныйТаракан Категория:
Схема Компоновки Данных Использования Внешнего набора данных - Таблица Значений Для использования в схеме компоновки данных внешнего набора данных сначала необходимо создать набор данных объект, и указать имя объекта, содержащего данные:
Далее необходимо программно выполнить формирование отчета, заполнив внешний набор данных:
Код 1C v 8.х ВнешниеНаборыДанных = Новый Структура;
ВнешниеНаборыДанных. Вставить( "тз" , тз) ;
СхемаКомпоновкиДанных = ПолучитьМакет( "ОсновнаяСхемаКомпоновкиДанных" ) ;
Настройки = СхемаКомпоновкиДанных. НастройкиПоУмолчанию;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( СхемаКомпоновкиДанных, Настройки) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки, ВнешниеНаборыДанных) ;
ТабДок = Новый ТабличныйДокумент;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( ТабДок) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных) ;
В данном примере тз – переменная с типом таблица значений.
also Категория:
Схема Компоновки Данных Как изменить слово «Итого» в общих итогах? Иногда возникает желание изменить само слово Итого в общих итогах.
Сделаем это следующим образом:
Код 1C v 8.х
СхемаКомпоновкиДанных = ПолучитьМакет( "ОсновнаяСхемаКомпоновкиДанных" ) ;
Настройки = СхемаКомпоновкиДанных. НастройкиПоУмолчанию;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( СхемаКомпоновкиДанных,
Настройки, ДанныеРасшифровки) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки, ,
ДанныеРасшифровки) ;
Результат = ЭлементыФормы. Результат;
Результат. Очистить( ) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанных
ВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( Результат) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных) ;
ТекОбласть = Результат. НайтиТекст( "Итого" , ТекОбласть, Результат. Область( ) ,
Истина , Истина , Истина , Ложь ) ;
Если ТекОбласть < > Неопределено Тогда
ТекОбласть. Текст = "МоёИтого" ;
КонецЕсли ;
После этого общие итоги выглядят примерно так:
also Категория:
Запросы Использование двух Схем Компоновки Данных - загрузка, получение параметров и настроек Есть две схемы, основная и не основная:
Код 1C v 8.х
НоваяСхема = ПолучитьМакет( НеОсновнаяСхемаКомпоновкиДанных) ;
Отчет. СхемаКомпоновкиДанных = НоваяСхема;
Отчет. КомпоновщикНастроек. ЗагрузитьНастройки( НоваяСхема. НастройкиПоУмолчанию) ; Код 1C v 8.х
Схема = ПолучитьМакет( "НеОсновнаяСхемаКомпоновкиДанных" ) ;
ПараметрыСхемы = Схема. Параметры; Код 1C v 8.х
Макет = ПолучитьМакет( "Настройка" ) ;
Макет. Записать( ИмяФайла) ;
Чтение = Новый ЧтениеXML;
НовыйСXDTO = Новый СериализаторXDTO( ФабрикаXDTO) ;
Чтение. ОткрытьФайл( ИмяФайла) ;
Настройки = НовыйСXDTO. ПрочитатьXML( Чтение) ;
КомпоновщикНастроек1 = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек1 . ЗагрузитьНастройки( Настройки) ; Категория:
Схема Компоновки Данных Программный вывод отчета СКД Несмотря на то, изучающие СКД встречаются с этим на первый или второй день, это должно быть в разделе FAQ. Простой пример программного вывода отчета на компоновке, использующий настройки по умолчанию.
Код 1C v 8.х
СхемаКомпоновкиДанных = ПолучитьМакет( "ОсновнаяСхемаКомпоновкиДанных" ) ;
Настройки = СхемаКомпоновкиДанных. НастройкиПоУмолчанию;
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета. Выполнить( СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки) ;
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных. Инициализировать( МакетКомпоновки, , ДанныеРасшифровки) ;
Результат = ЭлементыФормы. Результат;
Результат. Очистить( ) ;
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода. УстановитьДокумент( Результат) ;
ПроцессорВывода. Вывести( ПроцессорКомпоновкиДанных) ;
Автор:
also Категория:
Схема Компоновки Данных 
Как программно сформировать отчет СКД указав параметры и на выходе получить таблице значений? Категория: Схема Компоновки Данных
