1С 8.3 Программная установка условного оформления поля динамического списка
Данные > Примеры кода 1С > 1С 8.3 Динамический список
Перейти в раздел примеры кода 1С 8.3:
Установить условное оформление для поля ДС в 1С 8.3:
//Вызывать процедуру из модуля формы "ПриОткрытии"
&НаКлиенте
Процедура УстановитьУсловноеОформлениеДляПоляДатаДоговора()
// Создание элемента условного оформления
ЭлементыОформления = СписокПартийДС.УсловноеОформление.Элементы.Добавить();
ЭлементыОформления.Использование = Истина;
// Настройка оформляемого поля
Поля = ЭлементыОформления.Поля.Элементы.Добавить();
Поля.Использование = Истина;
Поля.Поле = Новый ПолеКомпоновкиДанных("ДатаДог");
Поля = ЭлементыОформления.Поля.Элементы.Добавить();
Поля.Использование = Истина;
// Создание условия для элемента оформления
Отбор = ЭлементыОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Отбор.Использование = Истина;
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше;
Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДатаДог");
Отбор.ПравоеЗначение = ТекущаяДата() + 31557600;
// Установка цвета оформления
Оформление = ЭлементыОформления.Оформление;
Оформление.УстановитьЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ЦветФона"), WebЦвета.ЛососьСветлый);
КонецПроцедуры
&НаКлиенте
Процедура УстановитьУсловноеОформлениеДляПоляДатаДоговора()
// Создание элемента условного оформления
ЭлементыОформления = СписокПартийДС.УсловноеОформление.Элементы.Добавить();
ЭлементыОформления.Использование = Истина;
// Настройка оформляемого поля
Поля = ЭлементыОформления.Поля.Элементы.Добавить();
Поля.Использование = Истина;
Поля.Поле = Новый ПолеКомпоновкиДанных("ДатаДог");
Поля = ЭлементыОформления.Поля.Элементы.Добавить();
Поля.Использование = Истина;
// Создание условия для элемента оформления
Отбор = ЭлементыОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
Отбор.Использование = Истина;
Отбор.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше;
Отбор.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ДатаДог");
Отбор.ПравоеЗначение = ТекущаяДата() + 31557600;
// Установка цвета оформления
Оформление = ЭлементыОформления.Оформление;
Оформление.УстановитьЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ЦветФона"), WebЦвета.ЛососьСветлый);
КонецПроцедуры
1
комментарий
Дмитрий
28 мар 2024
Код рабочий, спасибо.
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник