&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ДобавитьДопРеквизиты();
ДобавитьУФ();
КонецПроцедуры
&НаСервере
Процедура ДобавитьДопРеквизиты()
МассивРеквизитов = Новый Массив;
НовРек = Новый РеквизитФормы("НовРек", Новый ОписаниеТипов("Число"), "Объект.ТЧ", "Нов рек", Ложь);
МассивРеквизитов.Добавить(НовРек);
ИзменитьРеквизиты(МассивРеквизитов);
Эл = Элементы.Вставить("НовРек", Тип("ПолеФормы"), Элементы.ТЧ);
Эл.Вид = ВидПоляФормы.ПолеВвода;
Эл.ПутьКДанным = "Объект.ТЧ.НовРек";
КонецПроцедуры
&НаСервере
Процедура ДобавитьУФ()
УсловноеОформление.Элементы.Очистить();
ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();
ЭлементУсловногоОформления.Использование = Истина;
ЭлементОтбораДанных = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
ЭлементОтбораДанных.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Объект.ТЧ.НовРек");
ЭлементОтбораДанных.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
ЭлементОтбораДанных.ПравоеЗначение = 0;
ЭлементОтбораДанных.Использование = Истина;
НовыйЭлемент = ЭлементУсловногоОформления.Поля.Элементы.Добавить();
НовыйЭлемент.Поле = Новый ПолеКомпоновкиДанных("ТЧРек");
//НовыйЭлемент.Поле = Новый ПолеКомпоновкиДанных("ТЧНовРек");
ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра("ЦветФона", WebЦвета.Кирпичный);
КонецПроцедуры