автор%also » Поиск

Результаты по ключевому слову: автор%also

Как добавить отбор в отчете СКД программно Категория: Схема Компоновки Данных

Как программно Изменить Отбор в отчете СКД

Эта тема тоже достаточна распространена. Нюанс программного изменения отбора заключается в том, что коллекция:

Код 1C v 8.х

 КомпоновщикНастроек.Настройки.Отбор.Элементы

в отличие от аналогичной коллекции параметров, не имеет метода Найти(). Можно конечно изменять отбор «в лоб», т.е. по индексу, но это не есть хорошо. Самый оптимальный вариант, обходить все поля отбора в цикле.

Приведу пример универсальной функции для изменения отбор компоновки данных:

Код 1C v 8.х

 //Ищет отбор в компоновщике настроек по параметрам, заданным через

//"СоответствиеПоискаОтбора", и заменяет

//на отбор с параметрами, указанными в "СоответствиеНовогоОтбора"

Процедура ИзменитьОтбор(ЭлементСтруктуры, 

СоответствиеПоискаОтбора = Неопределено, СоответствиеНовогоОтбора) Экспорт



Если ТипЗнч(ЭлементСтруктуры) = Тип("КомпоновщикНастроекКомпоновкиДанных")  Тогда

    Отбор = ЭлементСтруктуры.Настройки.Отбор;

Иначе

    Отбор = ЭлементСтруктуры;

КонецЕсли;



Если ТипЗнч(СоответствиеНовогоОтбора["ЛевоеЗначение"]) = Тип("Строка") Тогда

    нПоле = Новый ПолеКомпоновкиДанных(СоответствиеНовогоОтбора.ЛевоеЗначение);

Иначе

    нПоле = СоответствиеНовогоОтбора["ЛевоеЗначение"];

КонецЕсли;



Если СоответствиеНовогоОтбора.Получить("ВидСравнения") = Неопределено Тогда

    нВидСравнения = ВидСравненияКомпоновкиДанных.Равно;

Иначе

    нВидСравнения = СоответствиеНовогоОтбора["ВидСравнения"];

КонецЕсли;



Если СоответствиеНовогоОтбора.Получить("Использование") = Неопределено Тогда

    нИспользование = Истина;

Иначе

    нИспользование = СоответствиеНовогоОтбора["Использование"];

КонецЕсли;



нЗначение = СоответствиеНовогоОтбора["Значение"];



ТолькоПоЛевомуЗначению = Ложь;

Если СоответствиеПоискаОтбора = Неопределено Тогда

    ТолькоПоЛевомуЗначению = Истина;

КонецЕсли;



сЛевоеЗначение  =  СоответствиеПоискаОтбора.Получить("ЛевоеЗначение");

Если сЛевоеЗначение = Неопределено Тогда

    сЛевоеЗначение = нПоле;

КонецЕсли;



сВидСравнения  =  СоответствиеПоискаОтбора.Получить("ВидСравнения");

Если ВидСравнения = Неопределено Тогда

    сВидСравнения = ВидСравнения;

КонецЕсли;



сИспользование =  СоответствиеПоискаОтбора.Получить("Использование");

Если сИспользование = Неопределено Тогда

    сИспользование = нИспользование;

КонецЕсли;



Для каждого ЭлементОтбора Из Отбор.Элементы Цикл

    Если ТолькоПоЛевомуЗначению Тогда

        НайденныйОтбор = ЭлементОтбора;

        Прервать;

    Иначе

        Если (ЭлементОтбора.ЛевоеЗначение = сЛевоеЗначение)

            И (ЭлементОтбора.ВидСравнения = сВидСравнения)

            И (ЭлементОтбора.Использование = сИспользование) Тогда

            НайденныйОтбор = ЭлементОтбора;

            Прервать;

        КонецЕсли;

    КонецЕсли;

КонецЦикла;



Если НайденныйОтбор <> Неопределено Тогда

    НайденныйОтбор.ЛевоеЗначение  = нПоле;

    НайденныйОтбор.Использование  = нИспользование;

    НайденныйОтбор.ВидСравнения   = нВидСравнения;

    НайденныйОтбор.ПравоеЗначение = нЗначение;

КонецЕсли;



КонецПроцедуры

Пример вызова процедуры:

Код 1C v 8.х

 СоответствиеПоискаОтбора = Новый Соответствие;

    СоответствиеПоискаОтбора.Вставить("ЛевоеЗначение",Новый ПолеКомпоновкиДанных("Наименование"));

    СоответствиеПоискаОтбора.Вставить("ВидСравнения",ВидСравненияКомпоновкиДанных.Содержит);

    СоответствиеПоискаОтбора.Вставить("Использование",Истина);



    СоответствиеНовогоОтбора = Новый Соответствие;

    СоответствиеНовогоОтбора.Вставить("ЛевоеЗначение",Новый ПолеКомпоновкиДанных("Наименование"));

    СоответствиеНовогоОтбора.Вставить("ВидСравнения",ВидСравненияКомпоновкиДанных.Содержит);

    СоответствиеНовогоОтбора.Вставить("Использование",Истина);

    СоответствиеНовогоОтбора.Вставить("Значение","бла-бла-бла");



    ИзменитьОтбор(КомпоновщикНастроек,СоответствиеПоискаОтбора,СоответствиеНовогоОтбора);

Автор: also

Категория: Схема Компоновки Данных

Как программно Сохранить Схему СКД в XML Категория: Схема Компоновки Данных

Программный вывод отчета СКД

Несмотря на то, изучающие СКД встречаются с этим на первый или второй день, это должно быть в разделе FAQ. Простой пример программного вывода отчета на компоновке, использующий настройки по умолчанию.

Код 1C v 8.х

 //Получаем схему из макета

СхемаКомпоновкиДанных = ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");



//Из схемы возьмем настройки по умолчанию

Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;



//Помещаем в переменную данные о расшифровке данных

ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;



//Формируем макет, с помощью компоновщика макета

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;



//Передаем в макет компоновки схему, настройки и данные расшифровки

МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);



//Выполним компоновку с помощью процессора компоновки

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);



//Очищаем поле табличного документа

Результат = ЭлементыФормы.Результат;

Результат.Очистить();



//Выводим результат в табличный документ

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

ПроцессорВывода.УстановитьДокумент(Результат);



ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

Автор: also

Категория: Схема Компоновки Данных