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