3_0_1_240

SSL/src/Roles/ИзменениеДополнительныхСведений/Rights.rights

@@ -75,8 +75,8 @@
   // Информационная база заблокирована для обновления.
   ГДЕ ЛОЖЬ
 
-#ИначеЕсли Не СтрСодержит(&ВерсииШаблоновОграниченияДоступа, ",ДляРегистра1,") #Тогда
-         И Не СтрСодержит(&ВерсииШаблоновОграниченияДоступа, ",ДляРегистра1ТребуетсяПерезапуститьСеанс,") #Тогда
+#ИначеЕсли Не СтрСодержит(&ВерсииШаблоновОграниченияДоступа, ",ДляРегистра2,") #Тогда
+         И Не СтрСодержит(&ВерсииШаблоновОграниченияДоступа, ",ДляРегистра2ТребуетсяПерезапуститьСеанс,") #Тогда
     Ошибка: Требуется обновить шаблон на актуальную версию, поставляемую в роли ИзменениеУчастниковГруппДоступа по причине: Используется устаревшая версия 1 шаблона ограничения доступа ДляРегистра. Объект: #ИмяТекущейТаблицы, Право: #ИмяТекущегоПраваДоступа.
 
 #ИначеЕсли &СпискиСОтключеннымОграничениемЧтения = "Все" #Тогда
@@ -86,7 +86,7 @@
 #ИначеЕсли СтрСодержит(&СпискиСОтключеннымОграничениемЧтения, #ИмяТекущейТаблицы) #Тогда
   // У пользователя отключено ограничение для текущей таблицы.
 
-#ИначеЕсли СтрСодержит(&ВерсииШаблоновОграниченияДоступа, ",ДляРегистра1ТребуетсяПерезапуститьСеанс,") #Тогда
+#ИначеЕсли СтрСодержит(&ВерсииШаблоновОграниченияДоступа, ",ДляРегистра2ТребуетсяПерезапуститьСеанс,") #Тогда
     Ошибка: Версия программы обновлена, требуется перезапустить сеанс. Объект: #ИмяТекущейТаблицы, Право: #ИмяТекущегоПраваДоступа.
 
 #ИначеЕсли #ИмяТекущегоПраваДоступа <> "Чтение" #Тогда
@@ -108,7 +108,7 @@
   ИЗ РегистрСведений.#Регистр КАК КлючиДоступаКРегистрам
 #КонецЕсли
 #Если Не СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;") #Тогда
-  ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КлючиДоступаГруппДоступа КАК РазрешенныеКлючиДоступа
+  ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КлючиДоступаНаборовГруппДоступа КАК РазрешенныеКлючиДоступа
   
 #ИначеЕсли &ТекущийВнешнийПользователь = Значение(Справочник.ВнешниеПользователи.ПустаяСсылка) #Тогда
   ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КлючиДоступаПользователей КАК РазрешенныеКлючиДоступа
@@ -274,14 +274,29 @@
   
   #Если Не СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;") #Тогда
     И РазрешенныеКлючиДоступа.КлючДоступа = КлючиДоступаКРегистрам.КлючДоступа
-    И РазрешенныеКлючиДоступа.ГруппаДоступа В (&ГруппыДоступаАвторизованногоПользователя)
-    
+    И РазрешенныеКлючиДоступа.НаборГруппДоступа В (&РазрешенныйНаборГруппДоступа
+      #Если СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаГруппДоступа,  #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;*+")
+        Или СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаГруппДоступа,  #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;*") #Тогда
+        , &РазрешенныйПустойНаборГруппДоступа
+      #КонецЕсли
+      )
   #ИначеЕсли &ТекущийВнешнийПользователь = Значение(Справочник.ВнешниеПользователи.ПустаяСсылка) #Тогда
     И РазрешенныеКлючиДоступа.КлючДоступа = КлючиДоступаКРегистрам.КлючДоступа
-    И РазрешенныеКлючиДоступа.Пользователь = &ТекущийПользователь
+    И РазрешенныеКлючиДоступа.Пользователь В (&РазрешенныйПользователь, &РазрешенныйНаборГруппДоступа
   #Иначе
     И РазрешенныеКлючиДоступа.КлючДоступа = КлючиДоступаКРегистрам.КлючДоступа
-    И РазрешенныеКлючиДоступа.ВнешнийПользователь = &ТекущийВнешнийПользователь
+    И РазрешенныеКлючиДоступа.ВнешнийПользователь В (&РазрешенныйПользователь, &РазрешенныйНаборГруппДоступа
+  #КонецЕсли
+  #Если СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;") #Тогда
+      #Если СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;*+")
+        Или СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;+") #Тогда
+        , &РазрешенныйНаборГруппПользователей
+      #КонецЕсли
+      #Если СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;*+")
+        Или СтрСодержит(&СпискиСОграничениемЧерезКлючиДоступаПользователей, #ИмяТекущейТаблицы + ":[#Регистр]:#Поле1:#Поле2:#Поле3:#Поле4:#Поле5;*") #Тогда
+        , &РазрешенныйПустойНаборГруппДоступа
+      #КонецЕсли
+      )
   #КонецЕсли
  )