gifts2017

Как сообщить пользователю, кто именно заблокировал необходимый для него документ.

Опубликовал Слава Демченко (A'Huli) в раздел Программирование - Практика программирования

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

Вполне возможно, что я изобретал велосипед, и решение данной задачи уже было придумано кем-то до меня и проще, но... я такого не нашел, хотя признаюсь: дальше первой страницы Google не заглядывал. Итак... Есть, конечно, еще вариант создавать регистр сведений, где будет храниться информация о блокировках, но я решил не создавать подобного, а пойти через журнал регистрации 1С.

В обработчик формы ПриОткрытии() поместим следующий код

Если ЭтоНовый() тогда

//обработчик для нового элементы


Иначе

  Попытка


   Заблокировать();
   ЭтотОбъект.Записать();   


  Исключение


   Блокировщик = ОпределитьАвтораБлокировки();


   Ответ = Вопрос("Документ находится на редактировании другим пользователем"
       + ?(Блокировщик.Пустая(), "." + Символы.ПС, ":" + Символы.ПС + Блокировщик.Наименование + ", тел. " + Блокировщик.Телефон)
       + Символы.ПС + "Открыть в режиме чтения?", РежимДиалогаВопрос.ДаНетОтмена);


   Если Ответ = КодВозвратаДиалога.Да тогда


    ТолькоПросмотр = Истина;


   ИначеЕсли Ответ = КодВозвратаДиалога.Нет тогда


    ЭтаФорма.Закрыть();


   ИначеЕсли Ответ = КодВозвратаДиалога.Отмена тогда


    ПриОткрытии();


   КонецЕсли;


  КонецПопытки;


 КонецЕсли; 

Также в модуле формы помещаем такую функцию

Функция ОпределитьАвтораБлокировки()


 ЖурналРегистрации = Новый ТаблицаЗначений;
 Фильтр = Новый Структура;
 Фильтр.Вставить("Данные", Ссылка);
 ВыгрузитьЖурналРегистрации(ЖурналРегистрации, Фильтр, "Пользователь",,1);
 ПолноеИмяПользователя = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ЖурналРегистрации[0].Пользователь).ПолноеИмя;
 Возврат Справочники.Пользователи.НайтиПоНаименованию(ПолноеИмяПользователя, Истина);


КонецФункции

 

Для работы в таком виде без изменений, у Вас в конфигурации должен быть справочник пользователи, куда в реквизит Наименование будет писаться полное имя ползователя ИБ и добавить реквизит Телефон в тотже справочник, тогда пользователю будет отображаться ФИО заблокировавшего и телефон по которому он может перезвонить.

Теперь, собственно о работе данного кода.

При открытии не нового документа, пользователь тут же пытается заблокировать объект. Если у него это не получается, то начинается поиск заблокировавшего объект. Если же получается, то документ тут же записывается. Важно это делать до каких-либо изменений в объекте, чтобы пользователю не выскакивало никаких сообщений, типа "Вы уверены, что хотите сохранить изменения" и не ставили его этим в тупик. Записывается объект для того, чтобы осталась запись в журнале регистрации, потому что сам факт открытия формы в нем не отображается.

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

Вопрос подразумевает три ответа: "Нет" - закрытие формы, "Да" - открытие в режиме чтение, "Отмена" - с тем чтобы пройти процедуру в надежде, что блокировка снята. Или позвонить уже использующему объект и попросить его закрыть и по кнопке "Отмена" открыть его уже в режиме для изменения. К сожалению, стандартные диалоги в 1С не подразумевают варианта "ДаНетПовторить"...

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Кирилл Краснов (kirillkr) 31.03.13 18:57
Что будет если журнал регистраций будет очень большой и действий совершается очень много?
Дмитрий74Чел; yuraos; +2 Ответить 2
2. Юрий Осипов (yuraos) 31.03.13 19:14
(1) kirillkr,
ага и база скульная и сам журнал регистрации где-нибудь в москве на сервере 1С
а канал связи узкий - преузкий!
3. Юрий Осипов (yuraos) 31.03.13 19:20
Но идея безусловно интересная.

Особенно когда юзвер сам блокирует документ, открыв его второй раз в другом окне и изменив там что-то,
снова возвращается в первое окно и пытается изменить что-то еще и там.

у меня такое было на практике.
:)
4. Юрий Осипов (yuraos) 31.03.13 19:24
Слава, советую раскрасить код в статье.

Есть прекрасная РАЗУКРАШКА

Сам сегодня скачал и разукрасил в один миг кучу кода
в приложении к своей статье.

:)
5. Слава Демченко (A'Huli) 31.03.13 19:32
(1) kirillkr, тесты показали, что отбор по журналу регистрации с таким фильтром ведется достаточно быстро. Даже на машине юзверя занимает около секунды. Что будет при узком канале связи - не знаю, потестите, отпишитесь. Кому не нравится такой вариант - покрутите с регистром сведений, куда писать в измерения объект, а в ресурс - открывшего пользователя. Только не забывать при закрытии объекта удалять запись, чтобы не разрастался регистр. Данный вариант мне показался изящнее. А так - каждому свое.
6. Слава Демченко (A'Huli) 31.03.13 19:39
(4) yuraos, спасибо, конечно, но блин... Как только надумаю выкладывать постоянно, так скачаю... А так... Заморачиваться нет ни желания, ни времени. Рассудил просто: кому будет нужно, будет рад скопипастить и без раскрашиваний.
P.S. про желание и время: данная вещь была придумана в полночь с пт на сб на рабочем месте:)
7. Юрий Осипов (yuraos) 31.03.13 19:45
(6) A'Huli, ну я тоже в принципе так думал...
но сегодня смотрю на статью - блин стремно выходит!
взял и скачал
;)
---

ну как можно сделать обсуждаемый функционал через регистр сведений
можно посмотреть в конфигурации "Документооборот".
8. Konstantin Konstantin (KonstB) 31.03.13 20:44
Вот вариант без ЖР:
Попытка           
		Заблокировать()
	Исключение
		Ошибка = ОписаниеОшибки();
		КемЗаблокирован = Сред(Ошибка, Найти(Ошибка, "Объект уже заблокирован:"));
		Если Вопрос(КемЗаблокирован + Символы.ПС + " Объект возможно открыть только для чтения. Продолжить?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
			ТолькоПросмотр = Истина;
		Иначе
			Закрыть();
		КонецЕсли; 
	КонецПопытки; 
...Показать Скрыть
Shrike; mymyka; whilefor; rayastar; MaxR1; +5 Ответить 1
9. Слава Демченко (A'Huli) 31.03.13 21:07
(8) KonstB, КемЗаблокирован = Сред(Ошибка, Найти(Ошибка, "Объект уже заблокирован:"));
вернет кучу ненужной пользователю информации, как-то: имя компа, сеанс, когда сеанс начат и т.п. Можно, конечно, из строки попробовать выбить имя пользователя следующим образом:
Ошибка = ОписаниеОшибки();
КемЗаблокирован = Сред(Ошибка, Найти(Ошибка, "пользователь:"));
КемЗаблокирован = СтрЗаменить(КемЗаблокирован, "пользователь: ", "");
КемЗаблокирован = Лев(КемЗаблокирован, Найти(КемЗаблокирован, ",")-1);
тогда, если не ошибаюсь, получим имя пользователя и по нему уже искать его в справочнике пользователей по коду... мне вариант с ЖР показался красивее
10. Konstantin Konstantin (KonstB) 31.03.13 21:29
(9) A'Huli,
1. Как привило имя Пользователя ИБ = имя Пользователя в справочника (не встречал иного...) смысл искать пользователя в справочнике, хотя как знать...
2. Мне необходимо знать Имя Комп и Время начала сеанса, есть ряд причин... я лишь привел альтернативу реалиазации Вашей задачи.
3. На счет Вашего варианта с ЖР хз хз:
а. Журнал регистрации - если он не ведется/"сломан"... решение не рабочее
б. Мой вариант явно быстрее
в. Много кода (по сравнению с тем что привел я)

Ничего личного, просто альтернативное решение :)
11. Слава Демченко (A'Huli) 31.03.13 21:43
(10) KonstB, даже не думал воспринимать как личное:) просто рассматривал и Ваш вариант, мне он не понравился. Тоже ничего личного.
12. Александр Капустин (kapustinag) 31.03.13 23:09
Вариант с записью документа при открытии формы ОЧЕНЬ ПЛОХОЙ для активно использующейся базы, так как запись - в любом случае требует некоторых ресурсов сервера и какого-то времени. То есть, в попытке сделать удобнее данному пользователю, мы тратим ресурсы сервера, и тем самым ухудшаем работу других пользователей.

Пользователи часто открывают форму документа вовсе не для изменения, а для просмотра содержимого. Или для проверки аналитики в строках табличной части, например. В результате проверки он иногда будет изменять документ, а иногда - ничего не будет менять.
Поэтому, если уж хочется сообщить пользователю, кто ему помешал, лучше бы перенести эти действия из ПриОткрытии в ПередЗаписью, например.
a.p.soft; Дмитрий74Чел; bulpi; +3 Ответить 1
13. dvv01 (dvv01) 01.04.13 10:08
(12) kapustinag,
1. Перед записью уже поздно - документ может быть большим, и вся работа насмарку? Тогда по уму придется куда-то сохранять результаты изменений.
2. И с записью сразу при открытии тоже согласен, что фигня, но уже по другой причине - непонятки возникнут у первого юзера, который тоже что-то делал, а документ вдруг в процессе работы изменился

2. Документов много, и во всех портить формы? и поиметь тотальный гимор при обновлении. А можно ли все перенести в общую подписку на событие "ПриОткрытии" документа (появилось, вроде с 8.3, в 8.2 такого напрямую нет, а если извратиться?)
14. Николай Зайцев (Zero_nv) 01.04.13 12:39
Поправьте меня если ошибаюсь: Когда открываешь док, который уже редактируется платформа 1С сама говорит об этом. Конешно не так красиво, но понять можно какой пользователь и на каком компе изменяет документ. Если док открыт другим пользователем только для просмотра (или не успел ничего изменить), то платформа дает тебе его редактировать.
P.S. очень часто наблюдаю такое явление на типовом ЗУПе.

P.P.S. еще раз перепроверил http://prntscr.com/yp4il Это скрин поведения штатных механизмов
15. Konstantin Konstantin (KonstB) 01.04.13 13:34
(14) Zero_nv, Если Ваши пользователи читают такие сообщения, то Вам повезло )
16. Борис Скворцов (gaglo) 04.04.13 10:28
(14) ИМХО это поведение характерно только для стандартных конфигураций самой 1С. Есть у нас "Управление складом" от Axelot, не очень новое, там на документах блокировки управляемые, так там "само" ничего не выдается. Кстати! ОписаниеОшибки() там возвращает пустую строку - ничего из нее не выудить. А вот УПП 1.3 стандартное, да, "само" сообщает, хотя и там вроде блокировки управляемые.
А еще - возможно - как-то это связано с режимом совместимости...
17. NPMar (NPMar) 05.04.13 09:43
Очень интересно и оригинально! Мы только начинаем внедрять восьмерку, пока в файловом режиме несколько человек (меньше 5-ти) и уже возникают проблемы открытия одного документа.
18. NPMar (NPMar) 05.04.13 09:48
Мы работаем В "Управление Производственным предприятием" внедрям зарплату пока. И никогда платформа не сообщала, что пересекаемя в одном документе. Просто подвисает.
19. NPMar (NPMar) 05.04.13 09:50
Возможно у нас это происходит из-за того, что пока не серверный вариант, позже мы перейдем на него. Все равно считаю, что предлагаемый вариант обязательно пригодится. Спасибо!
20. Серега Путин (Confucius) 21.11.13 09:06
Хорошая идея реализации данной задачи, но есть очень большой минус: скажем я открываю документ старый за прошлый период, который находится в закрытом периоде редактирования, то при попытке записать() возникает сообщение о закрытом периоде и у пользователя с ограниченными правами напрочь зависает 1с.
21. Артем Барышев (Baryshev) 21.07.14 18:22
Вариант с записью при открытии влечет за собой целую кучу проблем:
1. То, что описал kapustinag.
2. То, что описал Confucius.
3. Засорение журнала регистрации. Если потом нужно будет выяснить кто действительно изменял документ то разобраться будет ОЧЕНЬ трудно.
4. Будут работать обработчики ПриЗаписи, а это может повлечь за собой изменение данных в уже закрытых периодах.
5. В режиме РБД все документы, которые хоть раз открыли будут попадать в очередной обмен.
6. Если после открытия одним пользователем пройдет какое-либо событие от другого пользователя (например иногда в ЖР пишу свои события, которые потом помогают определить кто что сделал), то такая проверка выдаст не правильный результат.
7. Если кто-нибудь в событии ПередОткрытием напишет код изменяющий текущий объект, то появится очень жестокий гемор по восстановлению нормального состояния базы - это актуально, когда над одной конфигурацией работает несколько программистов.

И вообще нужно всегда искать компромисс между хотелками пользователей и надежной работой программы. Пользователи не всегда понимают к чему приведет его очередной каприз, а Вы как специалист в своей области должны его предупредить о возможных последствиях.
22. Александр (МимохожийОднако) 21.07.14 18:37
Добавить регистр сведений "ЗаблокированныеОбъекты". Измерение - ОбъектБлокировки . Ресурс - Пользователь, Компьютер.
При открытии объекта - создавать Запись. Если запись невозможно создать, то сообщить пользователю, что этот объект уже открыт с указанием пользователя и компьютера.
При закрытии объекта - удалять запись из РС.
..
Такой вариант кто-нибудь рассматривал?
23. Разве это имеет значение (-fox-) 21.07.14 18:48
Присоединюсь ко всем кто посчитал данное решение плохим ...
А вообще всегда ли нужно блокировать документ при открытие? Данное решение приводит к избыточности блокировок, вдруг я просто хочу открыть документ для просмотра.

24. Петр Петренко (PetroP) 11.08.14 19:35
(22) Судя по комментариям к данной статье, многие рассматривали. И автор в том числе.
(23) Делаю так (как вариант). Форма существующего объекта открывается в режиме чтения. Для редактирования жмем кнопку, при этом создается запись в РС и форма переходит в режим редактирования.
25. mozz mozz (mozz) 11.02.16 13:09
Чтобы не записывать объект при открытии можно просто в ЖР запись писать:

ЗаписьЖурналаРегистрации("Данные.Изменение", УровеньЖурналаРегистрации.Информация, Объект, Объект.Ссылка,"Объект заблокирован");


И в функции ОпределитьАвтораБлокировки фильтр более конкретный сделать:

Фильтр = Новый Структура;
 Фильтр.Вставить("Данные", Объект.Ссылка);
 Фильтр.Вставить("Комментарий", "Объект заблокирован");

Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа