PDA

Просмотр полной версии : Помогите доделать обработку.



Антон_1988
13.06.2019, 18:14
Только устроился работать, и практики код в стиле "Хелло Ворлд".
Попросили по правам доступа обработку сделать, вроде нашел, доработал. Хотел делать через СКД, но так и не понял, как обратиться к метаданным.
Вот код:



мПользователей = ПользователиИнформационно йБазы.ПолучитьПользовател� �й() ;

Для Каждого Пользователь Из мПользователей Цикл




ОбластьСтрока.Параметры.По льзователь = Пользователь.ПолноеИмя;
ТабДок.Вывести(ОбластьСтро ка);
Для Каждого спр Из Метаданные.Справочники Цикл
ОбластьСтрокаПр.Параметры. Чтение = ПравоДоступа_("Чтение",спр,Пользователь);
ОбластьСтрокаПр.Параметры. Просмотр = ПравоДоступа_("Просмотр",спр,Пользователь);
ОбластьСтрокаПр.Параметры. Изменение = ПравоДоступа_("Изменение",спр,Пользователь);
ОбластьСтрокаПр.Параметры. Редактирование = ПравоДоступа_("Редактирование",спр,Пользователь);
ТабДок.Присоединить(Област ьСтрокаПр);
КонецЦикла;

Для Каждого док Из Метаданные.Документы Цикл
ОбластьСтрокаПр.Параметры. Чтение = ПравоДоступа_("Чтение",док,Пользователь);
ОбластьСтрокаПр.Параметры. Просмотр = ПравоДоступа_("Просмотр",док,Пользователь);
ОбластьСтрокаПр.Параметры. Изменение = ПравоДоступа_("Изменение",док,Пользователь);
ОбластьСтрокаПр.Параметры. Редактирование = ПравоДоступа_("Редактирование",док,Пользователь);
ТабДок.Присоединить(Област ьСтрокаПр);
КонецЦикла;
КонецЦикла;

Появилось пожелание, чтоб выводились, только те пользователи, у которых стоит галочка "Аутентификация 1С предприятия".
Кто даст мудрый совет, буду благодарен, если в Москве, то угощаю пивом, если леди то шоколадом. :cool:

dmitry.karih
23.06.2019, 20:28
Наверное уже не актуально, первые две строки замени на эти:
мПользователей = ПользователиИнформационно йБазы.ПолучитьПользовател� �й() ;

Для Каждого Пользователь Из мПользователей Цикл
Если Пользователь .АутентификацияСтандартна� � тогда


....... все что далее написано


КонецЕсли;
КонецЦикла;