Проверка шаблонов ограничений (RLS для 1С 8.2-8.3)
Программирование - Инструментарий
Все вы, наверное знакомы с RLS (ограничения на уровне записей), но не многие смогут с лёгкостью написать свой шаблон и ограничения по нему, а тем более разобраться в чужих.
Эта обработка позволяет ввести текст шаблона ограничения и текст ограничения доступа для определённой таблицы и на выходе получить готовый запрос и его параметры, который в последствии легко отладить в такой обработке, как "Консоль запросов".
Эта обработка будет полезна как для программистов, для отладки собственных ограничений, так и администраторам, которым может понадобится для определения причины недоступности тех или иных данных у конкретных пользователей.
Исправлено:
- Указывается #ИмяТекущейТаблицы, #ИмяТекущегоПраваДоступа
- Выполняется инструкция СтрСодержит()
Выявленные ошибки:
- Пока таковых нет
Скачать файлы
| Наименование | Файл | Версия | Размер | |||
|---|---|---|---|---|---|---|
|
Проверка шаблонов ограничений RLS
.epf 10,63Kb
04.06.14
478
|
.epf | 1.0 | 10,63Kb | 478 | Скачать |
См. также
Посмотрел код, на мой взгляд можно было найти решение и получше. К примеру, один из правильных вариантов использование варианта алгоритма конечных автоматов.
К недостаткам могу отнести отсутствие в примере хотя бы краткой инструкции, и возможно добавления некого упрощенного варианта консоли запросов для проверки результата на месте.
upd. Решил попробовать на другой конфигурации (УТ) - вроде отработало. Поэтому делаю вывод, что данная обработка работоспособна не для всех версий и конфигураций. Предлагаю автору, все же доработать ее, либо описать ограничения, чтобы не вводить в заблуждение пользователей.
Я не претендую на ультра правильное решение этой задачи, делал обработку для себя и она мне помогла в моих проблемах. Развивать дальше планирую по мере потребностей, с консолью конечно удобнее, но проще совместить её с более продвинутой версией.
Ну и результат запроса можно прямо в обработку выводить.
инструкции предпроцессору обрабатываются? если да, то как? имею в виду такую конструкцию #Если #Иначе #КонецЕсли
Текст ограничения - это и есть текст запроса. Просто без "ВЫБРАТЬ", без явного указания одной таблицы и без кучи возможностей обычного запроса.
Каким образом вы захотите это инструкциями препроцессору разбавить, ни одна обработка не знает. А отсутствующие возможности - ну будет она ругаться, что у вас "ПОМЕСТИТЬ" в запросе. Толку-то от этого? все равно руками разбирать.
2. Нет возможности сохранять настройки, идеально - навигация по сохраненным настройкам - это видимо уже следующий уровень - среда разработки для RLS.
3. Возможность выполнения сформированного запроса с заданными параметрами
#Если &ИспользоватьОграничениеПоКонтрагенты ИЛИ &ИспользоватьОграничениеПоОрганизации ИЛИ &ИспользоватьОграничениеПоПроекты #Тогда
ТекущаяТаблица
ИЗ
#ТекущаяТаблица КАК ТекущаяТаблица
ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ РАЗЛИЧНЫЕ
СоставГруппы.Ссылка КАК ГруппаПользователей
ИЗ
Справочник.ГруппыПользователей.ПользователиГруппы КАК СоставГруппы
ГДЕ
СоставГруппы.Пользователь = &ТекущийПользователь) КАК ГруппыПользователей
ПО (ИСТИНА)
ГДЕ
НЕ ГруппыПользователей.ГруппаПользователей ЕСТЬ NULL
И
(НЕ 1 В
(ВЫБРАТЬ ПЕРВЫЕ 1
1
ИЗ
РегистрСведений.НазначениеВидовОбъектовДоступа КАК НазначениеВидовОбъектовДоступа
#Если &ИспользоватьОграничениеПоКонтрагенты #Тогда
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
ПО Контрагенты.Ссылка = ТекущаяТаблица.#Параметр(1)
#КонецЕсли
ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НастройкиПравДоступаПользователей КАК НастройкиПравДоступаПользователей
ПО
НастройкиПравДоступаПользователей.ОбъектДоступа = ВЫБОР
#Если &ИспользоватьОграничениеПоКонтрагенты #Тогда
КОГДА НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Контрагенты)
ТОГДА ЕСТЬNULL(Контрагенты.ГруппаДоступаКонтрагента, ЗНАЧЕНИЕ(Справочник.ГруппыДоступаКонтрагентов.ПустаяСсылка))
#КонецЕсли
#Если &ИспользоватьОграничениеПоОрганизации #Тогда
КОГДА НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Организации)
ТОГДА ТекущаяТаблица.#Параметр(2)
#КонецЕсли
#Если &ИспользоватьОграничениеПоПроекты #Тогда
КОГДА НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Проекты)
ТОГДА ТекущаяТаблица.#Параметр(3)
#КонецЕсли
КОНЕЦ
И НастройкиПравДоступаПользователей.ВидОбъектаДоступа = НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа
И
НастройкиПравДоступаПользователей.ОбластьДанных =
#Если &ИспользоватьОграничениеПоКонтрагенты #Тогда
ВЫБОР КОГДА НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа = ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Контрагенты)
ТОГДА ЗНАЧЕНИЕ(Перечисление.ОбластиДанныхОбъектовДоступа.КонтрагентыДанные)
ИНАЧЕ
ЗНАЧЕНИЕ(Перечисление.ОбластиДанныхОбъектовДоступа.ПустаяСсылка)
КОНЕЦ
#Иначе
ЗНАЧЕНИЕ(Перечисление.ОбластиДанныхОбъектовДоступа.ПустаяСсылка)
#КонецЕсли
И НастройкиПравДоступаПользователей.Пользователь = ГруппыПользователей.ГруппаПользователей
ГДЕ
НазначениеВидовОбъектовДоступа.ГруппаПользователей = ГруппыПользователей.ГруппаПользователей
И НазначениеВидовОбъектовДоступа.ВидОбъектаДоступа В (
ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.ПустаяСсылка)
#Если &ИспользоватьОграничениеПоКонтрагенты #Тогда
, ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Контрагенты)
#КонецЕсли
#Если &ИспользоватьОграничениеПоОрганизации #Тогда
, ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Организации)
#КонецЕсли
#Если &ИспользоватьОграничениеПоПроекты #Тогда
, ЗНАЧЕНИЕ(Перечисление.ВидыОбъектовДоступа.Проекты)
#КонецЕсли
)
И НастройкиПравДоступаПользователей.ОбъектДоступа ЕСТЬ NULL))
#КонецЕсли ПоказатьВсе же с обработкой было бы легче.
СтрСодержит() в выражении для Вычислить() под УФ(толстый клиент) идет по ветке Исключение
то есть не отрабатывает
запускаю туже конфу под обычными формами (толстый клиент) вычисляет без проблем
почему так?
Текст = СтрЗаменить(Текст,"#ИмяТекущейТаблицы",""""+ИмяТекущейТаблицы+"""");
У меня в шаблоне текст #ТекущаяТаблица соответсвенно замена не выполнилась.
Заменил руками получил такую строку ТекущаяТаблица ИЗ Контрагенты КАК ТекущаяТаблица
В консоли она понятно дело не сработала, консоль хочет слово Выбрать, как тут быть ?
Ошибка при выполнении запроса POST к ресурсу /e1cib/logForm:
по причине:
Ошибка SDBL:
Поле ",ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеСведения,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеСведения,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеСведения,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеСведения,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеОтчетыИОбработки,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ДополнительныеСведения,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,ДополнительныеСведения,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеСведения,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеСведения,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ПодразделенияОрганизаций,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ГруппыФизическихЛиц,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеОтчетыИОбработки,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ДополнительныеСведения,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,ПодразделенияОрганизаций,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,Пользователи,УчетныеЗаписиЭлектроннойПочты,
,ВнешниеПользователи,УчетныеЗаписиЭлектроннойПочты,
" имеет неограниченную длину и не может участвовать в сравнении.
И Завершить или Перезапустить
1С:ERP Управление предприятием 2.0.10.145
1С:Предприятие 8.3 (8.3.9.1818)
Невосстановимая ошибка
Ошибка при выполнении запроса POST к ресурсу /e1cib/logForm:
по причине:
Ошибка SDBL:
Поле ",ВидыЦен,ВнешниеПользователи,ГруппыНоменклатуры,ГруппыПартнеров,ДополнительныеСведения,Кассы,КассыККМ,Подразделения,ПодразделенияОрганизаций,Пользователи,СоглашенияСКлиентамиИзменение,СоглашенияСКлиентамиЧтение,УчетныеЗаписиЭлектроннойПочты,ЭквайринговыеТерминалы,
,ВидыЦен,ВнешниеПользователи,ГруппыНоменклатуры,ГруппыПартнеров,ДополнительныеСведения,ЭквайринговыеТерминалы,
* * * * * *
(много чего про ВидыЦен)
* * * * * *
" имеет неограниченную длину и не может участвовать в сравнении.
И - вылетает платформа.
УТ 11.2 (11.2.3.108)
#ПоНаборамЗначений( "Документ.ТелефонныйЗвонок","","РасширенноеИЛИ","")
{ВнешняяОбработка.ПроверкаШаблоновОграниченийRLS.Форма.Форма.Форма(341)}: Ошибка компиляции при вычислении выражения или выполнении фрагмента кода
Выполнить("РезультатВыполнения = "+НРег(СтрокаВыполнения));
по причине:
{(1,29)}: Ожидается выражение
РезультатВыполнения = найти(<<?>>&видыдоступасотключеннымиспользованием, ",пользователи,")
Просмотры 28107
Загрузки 205
Комментарии 36
Создание 15.03.14 00:03
Обновление 04.06.14 13:19
№ Публикации 264989
Рубрики
Инструментарий,
Системное
Кому
Администратор ,
Программист
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.x (все механизмы)
Конфигурация Конфигурации 1cv8
Операционная система Не имеет значения
Страна Не имеет значения
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Раздел учета Не имеет значения
Доступ к файлу Абонемент ($m)
Код открыт Не указано
