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

Запись от Maks размещена 13.04.2026 в 09:33

Показов 2554 Комментарии 0

Метки 1с, ка2, оптимизация, права доступа

Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2.
Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива.

Было так:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Если РольДоступна("ГлавныйМеханик") И Не РольДоступна("НачальникТранспортногоУчастка") Тогда     
        Элементы.ВыполненныеРаботы.ТолькоПросмотр                = Ложь;
        Элементы.ВремяРабот.ТолькоПросмотр                      = Ложь;
        Элементы.КомментарийМеханика.ТолькоПросмотр                = Ложь; 
        Элементы.Статус.ТолькоПросмотр                          = Ложь;
        Элементы.Локация.ТолькоПросмотр                            = Истина;
        Элементы.Сотрудник.ТолькоПросмотр                        = Истина;
        Элементы.Спецтехника.ТолькоПросмотр                    = Истина;
        Элементы.ТекущийПробег.ТолькоПросмотр                    = Истина;
        Элементы.ОписаниеНеисправности.ТолькоПросмотр            = Истина;
        Элементы.ЭксплуататцияАвтоНевозможна.ТолькоПросмотр    = Истина;
        Элементы.ПлановыйРемонт.ТолькоПросмотр                  = Истина;
        Элементы.НеисправностьПолученаПриДТП.ТолькоПросмотр        = Истина;
        Элементы.ЗаполнитьЗапчаcти.Видимость                   = Истина;
        Элементы.Очистить.Видимость                            = Истина;
    ИначеЕсли РольДоступна("НачальникТранспортногоУчастка") И Не РольДоступна("ГлавныйМеханик") Тогда   
        Элементы.ВыполненныеРаботы.ТолькоПросмотр                = Истина; 
        Элементы.ВремяРабот.ТолькоПросмотр                      = Истина;
        Элементы.КомментарийМеханика.ТолькоПросмотр                = Истина; 
        Элементы.Статус.ТолькоПросмотр                          = Истина;
        Элементы.Локация.ТолькоПросмотр                            = Ложь;
        Элементы.Сотрудник.ТолькоПросмотр                        = Ложь;
        Элементы.Спецтехника.ТолькоПросмотр                    = Ложь;
        Элементы.ТекущийПробег.ТолькоПросмотр                    = Ложь;
        Элементы.ОписаниеНеисправности.ТолькоПросмотр            = Ложь;
        Элементы.ЭксплуататцияАвтоНевозможна.ТолькоПросмотр    = Ложь;
        Элементы.ПлановыйРемонт.ТолькоПросмотр                  = Ложь;
        Элементы.НеисправностьПолученаПриДТП.ТолькоПросмотр        = Ложь;
        Элементы.ЗаполнитьЗапчаcти.Видимость                   = Ложь;
        Элементы.Очистить.Видимость                            = Ложь;     
    КонецЕсли;

Изменил на следующее:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    ГлавныйМеханик = РольДоступна("ГлавныйМеханик");
    НачальникТУ = РольДоступна("НачальникТранспортногоУчастка");
    Элементы.ВыполненныеРаботы.ТолькоПросмотр           = НачальникТУ;
    Элементы.ВремяРабот.ТолькоПросмотр                  = НачальникТУ;
    Элементы.КомментарийМеханика.ТолькоПросмотр         = НачальникТУ;
    Элементы.Статус.ТолькоПросмотр                      = НачальникТУ;
    Элементы.Локация.ТолькоПросмотр                     = ГлавныйМеханик;
    Элементы.Сотрудник.ТолькоПросмотр                   = ГлавныйМеханик;
    Элементы.Спецтехника.ТолькоПросмотр                 = ГлавныйМеханик;
    Элементы.ТекущийПробег.ТолькоПросмотр               = ГлавныйМеханик;
    Элементы.ОписаниеНеисправности.ТолькоПросмотр       = ГлавныйМеханик;
    Элементы.ЭксплуататцияАвтоНевозможна.ТолькоПросмотр = ГлавныйМеханик;
    Элементы.ПлановыйРемонт.ТолькоПросмотр              = ГлавныйМеханик;
    Элементы.НеисправностьПолученаПриДТП.ТолькоПросмотр = ГлавныйМеханик;
    Элементы.ЗаполнитьЗапчаcти.Видимость               = ГлавныйМеханик;
    Элементы.Очистить.Видимость                        = ГлавныйМеханик;

Метки 1с, ка2, оптимизация, права доступа

Размещено в 1С

« Контроль заполнения и очистка дат в зависимости от значения перечислений Главная страница Фиксация колонок в отчёте СКД »

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Всего комментариев 0

Комментарии

Maks

Регистрация 13.03.2013
Адрес Тюменская область
Сообщений 18,753
Записей в блоге 50

Новые блоги и статьи Все статьи Все блоги /
[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .	[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .

Наверх

Сообщение форума

Отменить изменения