Отбор компоновки данных: Добавление
НовыйЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
НовыйЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ИмяРеквизита");
НовыйЭлементОтбора.Использование = ЛОЖЬ;
НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии;
НовыйЭлементОтбора.ПравоеЗначение = Неопределено;
Установка значения параметра из элемента формы:
Процедура УстановитьПараметр(Элемент)
Если НЕ ЗначениеЗаполнено(Элемент.Значение) Тогда
//Покажем пользователю предупреждение
Предупреждение("Параметр не может быть пустым!", 60, "Ошибка");
Если Элемент.Имя = "НачалоПериода" Тогда
Элемент.Значение = НачалоГода(НачалоПериода);
ИначеЕсли Элемент.Имя = "КонецПериода" Тогда
Элемент.Значение = КонецГода(КонецПериода);
КонецЕсли;
КонецЕсли;
ПараметрСКД = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(Элемент.Имя);
ПараметрСКД.Использование = Истина;
ПараметрСКД.Значение = Элемент.Значение;
КонецПроцедуры
НовыйЭлементОтбора = КомпоновщикНастроек.Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
НовыйЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ИмяРеквизита");
НовыйЭлементОтбора.Использование = ЛОЖЬ;
НовыйЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСпискеПоИерархии;
НовыйЭлементОтбора.ПравоеЗначение = Неопределено;
Установка значения параметра из элемента формы:
Процедура УстановитьПараметр(Элемент)
Если НЕ ЗначениеЗаполнено(Элемент.Значение) Тогда
//Покажем пользователю предупреждение
Предупреждение("Параметр не может быть пустым!", 60, "Ошибка");
Если Элемент.Имя = "НачалоПериода" Тогда
Элемент.Значение = НачалоГода(НачалоПериода);
ИначеЕсли Элемент.Имя = "КонецПериода" Тогда
Элемент.Значение = КонецГода(КонецПериода);
КонецЕсли;
КонецЕсли;
ПараметрСКД = КомпоновщикНастроек.Настройки.ПараметрыДанных.Элементы.Найти(Элемент.Имя);
ПараметрСКД.Использование = Истина;
ПараметрСКД.Значение = Элемент.Значение;
КонецПроцедуры
Комментариев нет:
Отправить комментарий