&НаСервере

Функция ДоступнаРоль(Знач стрРольНаСервере)

            Попытка        

                        Если РольДоступна(стрРольНаСервере) Тогда

                                   Возврат Истина;

                        Иначе

                                   Возврат Ложь;          

                        КонецЕсли;  

            Исключение     

                        Возврат Ложь;

            КонецПопытки;       

КонецФункции

&НаКлиенте

Процедура ПриОткрытии(Отказ)

            Если ДоступнаРоль("ПолныеПрава") или

                         ДоступнаРоль("CRM_ДобавлениеИзменениеКлиентов") Тогда

                                    Возврат;

            ИначеЕсли ДоступнаРоль("ДоговорыКонтрагентовДляЮристов") Тогда

                        Для Каждого Элем Из Элементы Цикл

                                   Если ТипЗнч(Элем) = Тип("ПолеФормы") Тогда

                                               Если СтрНайти(Элем.Имя, "Жильцы") = 0 Тогда

                                                           Элем.Доступность = Ложь; 

                                               КонецЕсли;

                                   КонецЕсли;

                        КонецЦикла;

            КонецЕсли;

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