Программная установка условного оормления (УФ)

&НаКлиенте
Процедура ПерсональныеПраваРучнПравоДоступаПриИзменении(Элемент)
	
	ТекДанные = Элементы.ПерсональныеПрава.ТекущиеДанные;
	Если Не ТекДанные = Неопределено Тогда
		ПравоДоступа = Элементы.ПерсональныеПрава.ТекущиеДанные.ПравоДоступа;
		Отбор = Новый Структура();
		Отбор.Вставить("Право",ПравоДоступа);
		МассивПовторБП = Объект.БазовыеПрава.НайтиСтроки(Отбор); //колонка
		
		Если ЗначениеЗаполнено(МассивПовторБП) Тогда
			
			Если ГруппаДоступаПомеченаНаУдаление(ПравоДоступа) Тогда
				ОбщегоНазначенияКлиентСервер.СообщитьПользователю("Помеченные на удаление группы доступа не доступны для выбора!");
				Элементы.ПерсональныеПрава.ТекущиеДанные.ПравоДоступа = 
				ПредопределенноеЗначение("Справочник.ГруппыДоступаРесурсов.ПустаяСсылка");  			
			Иначе
				ТекДанные.ВидРесурса = ПолучитьВидРесурса(ПравоДоступа);
				Если ТекДанные.ВидРесурса = ПредопределенноеЗначение("Справочник.ВидыРесурсов.АД") Тогда
					ТекДанные.Ресурс = ПредопределенноеЗначение("Справочник.Ресурсы.АД");
					ТекДанные.ПользовательРесурсов = ПолучитьПользователяРесурса(ТекДанные.Ресурс, ТекДанные.Сотрудник);
				ИначеЕсли ТекДанные.ВидРесурса = ПредопределенноеЗначение("Справочник.ВидыРесурсов.NEDAP") Тогда 
					ТекДанные.Ресурс = ПредопределенноеЗначение("Справочник.Ресурсы.NEDAP");
					ТекДанные.ПользовательРесурсов = ПолучитьПользователяРесурса(ТекДанные.Ресурс,ТекДанные.Сотрудник);
				Иначе
					ТекДанные.Ресурс = ОбщиеМеханизмыСУМДСервер.ПолучитьРесурc(ТекДанные.ВидРесурса);
					ТекДанные.ПользовательРесурсов = ПолучитьПользователяРесурса(ТекДанные.Ресурс,ТекДанные.Сотрудник);
				КонецЕсли;
			КонецЕсли;		
		
		Если ТекДанные.Ресурс <> ПредопределенноеЗначение("Справочник.Ресурсы.NEDAP") Тогда
			ТекДанные.Расписание = ПредопределенноеЗначение("Справочник.Ресурсы.ПустаяСсылка");
		КонецЕсли;
		
		Иначе  //зачеркнуть и удалить при обновлении или повторном входе
			УсловноеОформлениеДляПовторяющихсяГД(ТекДанные);
		КонецЕсли;
		
	КонецЕсли;

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


&НаСервере
Процедура УсловноеОформлениеДляПовторяющихсяГД(ТекДанные)
	
	ЭлементОформления = Список.УсловноеОформление.Элементы.Добавить();
	
	ЭлементОтбора = ЭлементОформления.Отбор.Элементы.Добавить(тип("ЭлементОтбораКомпоновкиДанных"));
	ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ИмяПоля);
	ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
	Элементотбора.ПравоеЗначение = ЗначениеДляОтбора;
	ЭлементОтбора.ПравоеЗначение = Новый ПолеКомпоновкиДанных(ИмяПоля);
    ЭлементОтбора.Использование = Истина;
	
	Элемент = ЭлементОформления.Оформление.Элементы[0];
    ЭлементОформления.Оформление.УстановитьЗначениеПараметра("Шрифт", ШрифтыСтиля.ШрифтТекста.Зачеркивание);
	Элемент.Использование = Истина;

	ПолеОформления = ЭлементОформления.Поля.Элементы.Добавить();
	ПолеОформления.Поле = Новый ПолеКомпоновкиДанных(ПолеДляОформления);
	ПолеОформления.Использование = Истина;
	
КонецПроцедуры

Элемент =  ЭлементОформления.Оформление.Элементы[0];