Оптимизация кода на разграничение прав доступа к элементам формы

    Если РольДоступна("ГлавныйМеханик") И Не РольДоступна("НачальникТранспортногоУчастка") Тогда     
        Элементы.ВыполненныеРаботы.ТолькоПросмотр                = Ложь;
        Элементы.ВремяРабот.ТолькоПросмотр                      = Ложь;
        Элементы.КомментарийМеханика.ТолькоПросмотр                = Ложь; 
        Элементы.Статус.ТолькоПросмотр                          = Ложь;
        Элементы.Локация.ТолькоПросмотр                            = Истина;
        Элементы.Сотрудник.ТолькоПросмотр                        = Истина;
        Элементы.Спецтехника.ТолькоПросмотр                    = Истина;
        Элементы.ТекущийПробег.ТолькоПросмотр                    = Истина;
        Элементы.ОписаниеНеисправности.ТолькоПросмотр            = Истина;
        Элементы.ЭксплуататцияАвтоНевозможна.ТолькоПросмотр    = Истина;
        Элементы.ПлановыйРемонт.ТолькоПросмотр                  = Истина;
        Элементы.НеисправностьПолученаПриДТП.ТолькоПросмотр        = Истина;
        Элементы.ЗаполнитьЗапчаcти.Видимость                   = Истина;
        Элементы.Очистить.Видимость                            = Истина;
    ИначеЕсли РольДоступна("НачальникТранспортногоУчастка") И Не РольДоступна("ГлавныйМеханик") Тогда   
        Элементы.ВыполненныеРаботы.ТолькоПросмотр                = Истина; 
        Элементы.ВремяРабот.ТолькоПросмотр                      = Истина;
        Элементы.КомментарийМеханика.ТолькоПросмотр                = Истина; 
        Элементы.Статус.ТолькоПросмотр                          = Истина;
        Элементы.Локация.ТолькоПросмотр                            = Ложь;
        Элементы.Сотрудник.ТолькоПросмотр                        = Ложь;
        Элементы.Спецтехника.ТолькоПросмотр                    = Ложь;
        Элементы.ТекущийПробег.ТолькоПросмотр                    = Ложь;
        Элементы.ОписаниеНеисправности.ТолькоПросмотр            = Ложь;
        Элементы.ЭксплуататцияАвтоНевозможна.ТолькоПросмотр    = Ложь;
        Элементы.ПлановыйРемонт.ТолькоПросмотр                  = Ложь;
        Элементы.НеисправностьПолученаПриДТП.ТолькоПросмотр        = Ложь;
        Элементы.ЗаполнитьЗапчаcти.Видимость                   = Ложь;
        Элементы.Очистить.Видимость                            = Ложь;     
    КонецЕсли;

    ГлавныйМеханик = РольДоступна("ГлавныйМеханик");
    НачальникТУ = РольДоступна("НачальникТранспортногоУчастка");
    Элементы.ВыполненныеРаботы.ТолькоПросмотр           = НачальникТУ;
    Элементы.ВремяРабот.ТолькоПросмотр                  = НачальникТУ;
    Элементы.КомментарийМеханика.ТолькоПросмотр         = НачальникТУ;
    Элементы.Статус.ТолькоПросмотр                      = НачальникТУ;
    Элементы.Локация.ТолькоПросмотр                     = ГлавныйМеханик;
    Элементы.Сотрудник.ТолькоПросмотр                   = ГлавныйМеханик;
    Элементы.Спецтехника.ТолькоПросмотр                 = ГлавныйМеханик;
    Элементы.ТекущийПробег.ТолькоПросмотр               = ГлавныйМеханик;
    Элементы.ОписаниеНеисправности.ТолькоПросмотр       = ГлавныйМеханик;
    Элементы.ЭксплуататцияАвтоНевозможна.ТолькоПросмотр = ГлавныйМеханик;
    Элементы.ПлановыйРемонт.ТолькоПросмотр              = ГлавныйМеханик;
    Элементы.НеисправностьПолученаПриДТП.ТолькоПросмотр = ГлавныйМеханик;
    Элементы.ЗаполнитьЗапчаcти.Видимость               = ГлавныйМеханик;
    Элементы.Очистить.Видимость                        = ГлавныйМеханик;