Работа с пользователями в 1С 8.2

01.11.10

База данных - Инструменты администратора БД

В данной статье речь пойдет о том, как синхронизировать пользователей БД со справочником Пользователи. В типовых конфигурациях от фирмы 1С синхронизация этих данных достаточна сложна для понимания людей только что столкнувшихся с программированием на данной платформе. Мы попытались на данном примере упростить эту схему. Что из этого получилось, читайте ниже.

Скачать файлы

Наименование Файл Версия Размер
Работа с пользователями
.zip 863,54Kb
89
.zip 863,54Kb 89 Скачать

 

 
        В данной статье речь пойдет о том, как синхронизировать пользователей БД со справочником Пользователи. В типовых конфигурациях от фирмы 1С синхронизация этих данных достаточна сложна для понимания людей только что столкнувшихся с программированием на данной платформе. Мы попытались на данном примере упростить эту схему. Что из этого получилось, читайте ниже.
 
 
        Для начала создадим новый справочник "Пользователи". Реквизитов никаких добавлять не будем, если кто захочет, потом самостоятельно добавит нужные ему реквизиты. Для отображения списка пользователей, мы создадим ФормуСписка, но на ней никаких реквизитов добавлять не будем. Вместо этого создадим реквизит типа ТаблицаЗначений и добавим в нее колонки, как показано на рисунке:
 

 
Теперь разместим на форме Элемент таблица и назовем ее "СписокПользователей" в которую добавим 2 поля - СписокПользователейИмя (Путь к данным - Список.Имя) и СписокПользователейПолноеИмя (Путь к данным - Список.Полное имя). После этого нам нужно заполнить эту таблицу данными. Для этого создадим событие формы ПриСозданииНаСервере и добавим следующий код:

&НаСервере 
Процедура ПриСозданииНаСервере(Отказ,СтандартнаяОбработка)

        ОМПользователи.ОбновитьСписокПользователей(Список); 

КонецПроцедуры

 


Функцию ОбновитьСписокПользователей(Список) мы разместим в общем модуле, а сама она будет выглядеть так:

 
Процедура ОбновитьСписокПользователей(СписокПользователей) Экспорт 

        Перем ПользователиИБ,СпрПользователейДляПоиска, СсылкаНаНайденногоПользователя; 

        СпрПользователейДляПоиска=Справочники.Пользователи;
        ПользователиИБ =ПользователиИнформационнойБазы.ПолучитьПользователей();

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

                СсылкаНаНайденногоПользователя =СпрПользователейДляПоиска.НайтиПоНаименованию(ПользовательИБ.Имя); 

                Если СсылкаНаНайденногоПользователя =СпрПользователейДляПоиска.ПустаяСсылка()Тогда 
                        НоваяСтрока =СписокПользователей.Добавить();
                        НоваяСтрока.Имя =ПользовательИБ.Имя; 
                        НоваяСтрока.ПолноеИмя =ПользовательИБ.ПолноеИмя;
                        НоваяСтрока.Ссылка =СсылкаНаНайденногоПользователя;
                        НоваяСтрока.СуществуетВСправочнике =Ложь;
                Иначе 
                        НоваяСтрока =СписокПользователей.Добавить(); 
                        НоваяСтрока.Имя =ПользовательИБ.Имя;
                        НоваяСтрока.ПолноеИмя =ПользовательИБ.ПолноеИмя;
                        НоваяСтрока.Ссылка =СсылкаНаНайденногоПользователя; 
                        НоваяСтрока.СуществуетВСправочнике =Истина;
                КонецЕсли;

        КонецЦикла; 

КонецПроцедуры

В этой функции мы перебираем пользователей БД, добавляем их в наш СписокПользователей и в зависимости от того, есть ли данный элемент в справочнике Пользователи устанавливаем флаг СуществуетВСправочнике. Для чего же нужен флаг СуществуетВСправочнике? Ответ прост. Этот флаг нам понадобится для условного форматирования в оформлении, т.е. программа будет видеть, что данный пользователь еще не заведен в справочник, и отображать другим цветом. Для этого в свойствах формы определим это самое форматирование:
 

 
 
Теперь создадим новое форматирование, нажав кнопку добавить. Значение в колонке "Оформление" будет выглядеть так:
 

 
значение в колонке "Условие":
 

 
значение в колонке "Оформляемые поля":
 

 
 
        Добавим новую форму в справочник пользователи:

Добавим в форму новое поле и строковой реквизит "ПолноеНаименование":
 

 
Теперь вернемся к форме "ФормаСписка" и создадим для списка "СписокПользователей" событие "Выбор", в которое добавим следующий код:

&НаКлиенте
Процедура СписокПользователейВыбор(Элемент,ВыбраннаяСтрока, Поле,СтандартнаяОбработка) 

        Перем ТекущиеДанные;

        ТекущиеДанные =Элементы.СписокПользователей.ТекущиеДанные;

        //Если в справочнике Пользователи элемента нет тогда создаем новый
        Если ТекущиеДанные.Ссылка.Пустая() Тогда

                //В открываемую форму передаем 2 параметра: 
                //имя пользователя и полное имя пользователя 
                ОткрытьФорму("Справочник.Пользователи.ФормаОбъекта", 
                НовыйСтруктура("ИмяПользователя, ПолноеИмяПользователя", 
                ТекущиеДанные.Имя,ТекущиеДанные.ПолноеИмя)); 
 
        //Иначе открываем существующий элемент справочника 
        Иначе 
                //В открываемую форму передаем 2 параметра: 
                //ссылка на существующий справочник и полное имя пользователя 
                ОткрытьФорму("Справочник.Пользователи.ФормаОбъекта",
                Новый Структура("Ключ, ПолноеИмяПользователя",
                ТекущиеДанные.Ссылка, ТекущиеДанные.ПолноеИмя)); 
        КонецЕсли; 

КонецПроцедуры

 


Параметры в открываемую форму мы отправили, теперь необходимо их принять и обработать. Для этого открываем форму элемента справочника Пользователи и создаем новое событие формы "ПриСозданииНаСервере":

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) 

        Попытка 
                Объект.Наименование =Параметры.ИмяПользователя;
        Исключение 
        КонецПопытки; 

        Попытка 
                ПолноеНаименование =Параметры.ПолноеИмяПользователя;
        Исключение 
        КонецПопытки;

КонецПроцедуры

 


Форма элемента готова. Но при записи элемента справочника форма списка не обновляется. Чтобы обновить форму справочника воспользуемся функцией ОбработкаОповещения. Для этого в форме элемента справочника создадим событие ПослеЗаписи и добавим код:

&НаКлиенте 
Процедура ПослеЗаписи(ПараметрыЗаписи)
        Оповестить("ОбновитьФормуСписка");
КонецПроцедуры

а в форме списка справочника создадим событие ОбработкаОповещения с кодом:

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия,Параметр,Источник) 

        Если ИмяСобытия = "ОбновитьФормуСписка" Тогда 
                ЭтаФорма.Список.Очистить(); 
                ОбновитьСписокПользователей();
        КонецЕсли; 
КонецПроцедуры

где функция ОбновитьСписокПользователей() будет выглядеть так:

&НаСервере
Процедура ОбновитьСписокПользователей() 
        ОМПользователи.ОбновитьСписокПользователей(Список);
КонецПроцедуры

Теперь наша конфигурация готова:

 

См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

Инструменты администратора БД Роли и права 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 15.12.2023, версия 1.1.

12000 руб.

06.12.2023    2972    13    1    

34

SALE! 20%

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

10000 8000 руб.

10.11.2023    3521    11    1    

34

SALE! 30%

PowerTools

Инструментарий разработчика Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177734    1073    0    

849

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27374    79    146    

59

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015    61313    88    59    

73

"Менеджер потоков 2.1": УПП: "Восстановление партий"

Инструменты администратора БД Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Платные (руб)

Как оптимизировать то, что, считалось, не поддается оптимизации? Как повысить доступность базы данных? Как проводить самую «времяемкую» операцию не по паре раз в неделю, а по несколько раз в день*? Ответ есть!

20000 руб.

12.09.2019    11745    5    9    

7

Брандмауэр для сервера 1С Предприятие 8 - внешнее управление сеансами

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Управление возможностью начала и возобновления сеансов пользователей по различным условиям, ограничение общего числа возможных сеансов для работы с информационной базой, резервирование возможности работы с информационной базой определенных польззователей, запрет запуска нескольких сеансов для пользователя, журнализация событий начала (возобновления) и завершения (гибернации) сеансов, ведение списка активных сеансов для информационных баз кластера серверов

3600 руб.

06.02.2017    31109    31    18    

47

Хранилище файлов на SQL

Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Управленческий учет Платные (руб)

Привязка файлов / сканов к объектам 1С с сохранением их на SQL-сервере

12000 руб.

09.10.2019    10982    5    8    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. e-tixom 108 08.11.10 10:09 Сейчас в теме
А для чего нужен этот справочник? Почему недостаточно того списка, который заводится в конфигураторе?
2. Fil15 2 21.12.11 11:40 Сейчас в теме
Мне понравилось. Показывает для новичка, как работать с пользователями. Очень полезно!
3. denissv 27.05.20 01:57 Сейчас в теме
У тебя ошибка, надо искать не по наименованию а по коду пользователя (синхронизируется код)

Вместо:
СсылкаНаНайденногоПользователя =СпрПользователейДляПоиска.НАЙТИПОНАИМЕНОВАНИЮ(ПользовательИБ.Имя);

Надо:
СсылкаНаНайденногоПользователя =СпрПользователейДляПоиска.НАЙТИПОКОДУ(ПользовательИБ.Имя);
Оставьте свое сообщение