Вполне возможно, что я изобретал велосипед, и решение данной задачи уже было придумано кем-то до меня и проще, но… я такого не нашел, хотя признаюсь: дальше первой страницы Google не заглядывал. Итак… Есть, конечно, еще вариант создавать регистр сведений, где будет храниться информация о блокировках, но я решил не создавать подобного, а пойти через журнал регистрации 1С.
В обработчик формы ПриОткрытии() поместим следующий код
Если ЭтоНовый() тогда
//обработчик для нового элементы
Иначе
Попытка
Заблокировать();
ЭтотОбъект.Записать();
Исключение
Блокировщик = ОпределитьАвтораБлокировки();
Ответ = Вопрос(«Документ находится на редактировании другим пользователем»
+ ?(Блокировщик.Пустая(), «.» + Символы.ПС, «:» + Символы.ПС + Блокировщик.Наименование + «, тел. » + Блокировщик.Телефон)
+ Символы.ПС + «Открыть в режиме чтения?», РежимДиалогаВопрос.ДаНетОтмена);
Если Ответ = КодВозвратаДиалога.Да тогда
ТолькоПросмотр = Истина;
ИначеЕсли Ответ = КодВозвратаДиалога.Нет тогда
ЭтаФорма.Закрыть();
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена тогда
ПриОткрытии();
КонецЕсли;
КонецПопытки;
КонецЕсли;
Также в модуле формы помещаем такую функцию
Функция ОпределитьАвтораБлокировки()
ЖурналРегистрации = Новый ТаблицаЗначений;
Фильтр = Новый Структура;
Фильтр.Вставить(«Данные», Ссылка);
ВыгрузитьЖурналРегистрации(ЖурналРегистрации, Фильтр, «Пользователь»,,1);
ПолноеИмяПользователя = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ЖурналРегистрации[0].Пользователь).ПолноеИмя;
Возврат Справочники.Пользователи.НайтиПоНаименованию(ПолноеИмяПользователя, Истина);
КонецФункции
Для работы в таком виде без изменений, у Вас в конфигурации должен быть справочник пользователи, куда в реквизит Наименование будет писаться полное имя ползователя ИБ и добавить реквизит Телефон в тотже справочник, тогда пользователю будет отображаться ФИО заблокировавшего и телефон по которому он может перезвонить.
Теперь, собственно о работе данного кода.
При открытии не нового документа, пользователь тут же пытается заблокировать объект. Если у него это не получается, то начинается поиск заблокировавшего объект. Если же получается, то документ тут же записывается. Важно это делать до каких-либо изменений в объекте, чтобы пользователю не выскакивало никаких сообщений, типа «Вы уверены, что хотите сохранить изменения» и не ставили его этим в тупик. Записывается объект для того, чтобы осталась запись в журнале регистрации, потому что сам факт открытия формы в нем не отображается.
Теперь, если документ заблокировать не получилось, то происходит определение автора блокировки соответствующей процедурой. По фильтру на текущие данные мы выгружаем последнюю запись с пользователем (отбор по журналу в таком случае происходит быстро даже на машине пользователя) — из журнала регистрации выгружается УИД, после чего по полному имени пользователя ИБ находим соответствие в справочники пользователи и сообщаем его имя и телефон страждущему доступа к документу.
Вопрос подразумевает три ответа: «Нет» — закрытие формы, «Да» — открытие в режиме чтение, «Отмена» — с тем чтобы пройти процедуру в надежде, что блокировка снята. Или позвонить уже использующему объект и попросить его закрыть и по кнопке «Отмена» открыть его уже в режиме для изменения. К сожалению, стандартные диалоги в 1С не подразумевают варианта «ДаНетПовторить»…
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
Что будет если журнал регистраций будет очень большой и действий совершается очень много?
(1) kirillkr,
ага и база скульная и сам журнал регистрации где-нибудь в москве на сервере 1С
а канал связи узкий — преузкий!
Но идея безусловно интересная.
Особенно когда юзвер сам блокирует документ, открыв его второй раз в другом окне и изменив там что-то,
снова возвращается в первое окно и пытается изменить что-то еще и там.
у меня такое было на практике.
🙂
Слава, советую раскрасить код в статье.
Есть прекрасная
Сам сегодня скачал и разукрасил в один миг кучу кода
в приложении к своей .
🙂
(1) kirillkr, тесты показали, что отбор по журналу регистрации с таким фильтром ведется достаточно быстро. Даже на машине юзверя занимает около секунды. Что будет при узком канале связи — не знаю, потестите, отпишитесь. Кому не нравится такой вариант — покрутите с регистром сведений, куда писать в измерения объект, а в ресурс — открывшего пользователя. Только не забывать при закрытии объекта удалять запись, чтобы не разрастался регистр. Данный вариант мне показался изящнее. А так — каждому свое.
(4) yuraos, спасибо, конечно, но блин… Как только надумаю выкладывать постоянно, так скачаю… А так… Заморачиваться нет ни желания, ни времени. Рассудил просто: кому будет нужно, будет рад скопипастить и без раскрашиваний.
P.S. про желание и время: данная вещь была придумана в полночь с пт на сб на рабочем месте:)
(6) ну я тоже в принципе так думал…
но сегодня смотрю на статью — блин стремно выходит!
взял и скачал
😉
—
ну как можно сделать обсуждаемый функционал через регистр сведений
можно посмотреть в конфигурации «Документооборот».
Вот вариант без ЖР:
Показать
(8) KonstB, КемЗаблокирован = Сред(Ошибка, Найти(Ошибка, «Объект уже заблокирован:»));
вернет кучу ненужной пользователю информации, как-то: имя компа, сеанс, когда сеанс начат и т.п. Можно, конечно, из строки попробовать выбить имя пользователя следующим образом:
Ошибка = ОписаниеОшибки();
КемЗаблокирован = Сред(Ошибка, Найти(Ошибка, «пользователь:»));
КемЗаблокирован = СтрЗаменить(КемЗаблокирован, «пользователь: «, «»);
КемЗаблокирован = Лев(КемЗаблокирован, Найти(КемЗаблокирован, «,»)-1);
тогда, если не ошибаюсь, получим имя пользователя и по нему уже искать его в справочнике пользователей по коду… мне вариант с ЖР показался красивее
(9)
1. Как привило имя Пользователя ИБ = имя Пользователя в справочника (не встречал иного…) смысл искать пользователя в справочнике, хотя как знать…
2. Мне необходимо знать Имя Комп и Время начала сеанса, есть ряд причин… я лишь привел альтернативу реалиазации Вашей задачи.
3. На счет Вашего варианта с ЖР хз хз:
а. Журнал регистрации — если он не ведется/»сломан»… решение не рабочее
б. Мой вариант явно быстрее
в. Много кода (по сравнению с тем что привел я)
Ничего личного, просто альтернативное решение 🙂
(10) KonstB, даже не думал воспринимать как личное:) просто рассматривал и Ваш вариант, мне он не понравился. Тоже ничего личного.
Вариант с записью документа при открытии формы ОЧЕНЬ ПЛОХОЙ для активно использующейся базы, так как запись — в любом случае требует некоторых ресурсов сервера и какого-то времени. То есть, в попытке сделать удобнее данному пользователю, мы тратим ресурсы сервера, и тем самым ухудшаем работу других пользователей.
Пользователи часто открывают форму документа вовсе не для изменения, а для просмотра содержимого. Или для проверки аналитики в строках табличной части, например. В результате проверки он иногда будет изменять документ, а иногда — ничего не будет менять.
Поэтому, если уж хочется сообщить пользователю, кто ему помешал, лучше бы перенести эти действия из ПриОткрытии в ПередЗаписью, например.
(12) kapustinag,
1. Перед записью уже поздно — документ может быть большим, и вся работа насмарку? Тогда по уму придется куда-то сохранять результаты изменений.
2. И с записью сразу при открытии тоже согласен, что фигня, но уже по другой причине — непонятки возникнут у первого юзера, который тоже что-то делал, а документ вдруг в процессе работы изменился
2. Документов много, и во всех портить формы? и поиметь тотальный гимор при обновлении. А можно ли все перенести в общую подписку на событие «ПриОткрытии» документа (появилось, вроде с 8.3, в 8.2 такого напрямую нет, а если извратиться?)
Поправьте меня если ошибаюсь: Когда открываешь док, который уже редактируется платформа 1С сама говорит об этом. Конешно не так красиво, но понять можно какой пользователь и на каком компе изменяет документ. Если док открыт другим пользователем только для просмотра (или не успел ничего изменить), то платформа дает тебе его редактировать.
P.S. очень часто наблюдаю такое явление на типовом ЗУПе.
P.P.S. еще раз перепроверил Это скрин поведения штатных механизмов
(14) Zero_nv, Если Ваши пользователи читают такие сообщения, то Вам повезло )
(14) ИМХО это поведение характерно только для стандартных конфигураций самой 1С. Есть у нас «Управление складом» от Axelot, не очень новое, там на документах блокировки управляемые, так там «само» ничего не выдается. Кстати! ОписаниеОшибки() там возвращает пустую строку — ничего из нее не выудить. А вот УПП 1.3 стандартное, да, «само» сообщает, хотя и там вроде блокировки управляемые.
А еще — возможно — как-то это связано с режимом совместимости…
Очень интересно и оригинально! Мы только начинаем внедрять восьмерку, пока в файловом режиме несколько человек (меньше 5-ти) и уже возникают проблемы открытия одного документа.
Мы работаем В «Управление Производственным предприятием» внедрям зарплату пока. И никогда платформа не сообщала, что пересекаемя в одном документе. Просто подвисает.
Возможно у нас это происходит из-за того, что пока не серверный вариант, позже мы перейдем на него. Все равно считаю, что предлагаемый вариант обязательно пригодится. Спасибо!
Хорошая идея реализации данной задачи, но есть очень большой минус: скажем я открываю документ старый за прошлый период, который находится в закрытом периоде редактирования, то при попытке записать() возникает сообщение о закрытом периоде и у пользователя с ограниченными правами напрочь зависает 1с.
Вариант с записью при открытии влечет за собой целую кучу проблем:
1. То, что описал kapustinag.
2. То, что описал Confucius.
3. Засорение журнала регистрации. Если потом нужно будет выяснить кто действительно изменял документ то разобраться будет ОЧЕНЬ трудно.
4. Будут работать обработчики ПриЗаписи, а это может повлечь за собой изменение данных в уже закрытых периодах.
5. В режиме РБД все документы, которые хоть раз открыли будут попадать в очередной обмен.
6. Если после открытия одним пользователем пройдет какое-либо событие от другого пользователя (например иногда в ЖР пишу свои события, которые потом помогают определить кто что сделал), то такая проверка выдаст не правильный результат.
7. Если кто-нибудь в событии ПередОткрытием напишет код изменяющий текущий объект, то появится очень жестокий гемор по восстановлению нормального состояния базы — это актуально, когда над одной конфигурацией работает несколько программистов.
И вообще нужно всегда искать компромисс между хотелками пользователей и надежной работой программы. Пользователи не всегда понимают к чему приведет его очередной каприз, а Вы как специалист в своей области должны его предупредить о возможных последствиях.
Добавить регистр сведений «ЗаблокированныеОбъекты». Измерение — ОбъектБлокировки . Ресурс — Пользователь, Компьютер.
При открытии объекта — создавать Запись. Если запись невозможно создать, то сообщить пользователю, что этот объект уже открыт с указанием пользователя и компьютера.
При закрытии объекта — удалять запись из РС.
..
Такой вариант кто-нибудь рассматривал?
Присоединюсь ко всем кто посчитал данное решение плохим …
А вообще всегда ли нужно блокировать документ при открытие? Данное решение приводит к избыточности блокировок, вдруг я просто хочу открыть документ для просмотра.
(22) Судя по комментариям к данной статье, многие рассматривали. И автор в том числе.
(23) Делаю так (как вариант). Форма существующего объекта открывается в режиме чтения. Для редактирования жмем кнопку, при этом создается запись в РС и форма переходит в режим редактирования.
Чтобы не записывать объект при открытии можно просто в ЖР запись писать:
И в функции ОпределитьАвтораБлокировки фильтр более конкретный сделать:
Я на управляемых формах вот так сделал:
В этом варианте второй пользователь при попытке открыть документ получает сообщение о том что документ заблокирован. В сообщении указываться имя пользователя который уже открыл документ. Минус этого способа, в том что второму пользователю нельзя открыть документ на просмотр.