Блокировка документа от изменений, если он открыт у другого пользователя

// Проверяем документ на предмет его использования в данный момент другим пользователем
// При необходимости, выводим соответствующее предупреждение, открыв документ только для чтения
&НаСервере
Процедура ПроверитьБлокировку()
    Попытка
        ЗаблокироватьДанныеДляРедактирования(Объект.Ссылка,, ЭтаФорма.УникальныйИдентификатор);
    Исключение
        Ошибка = ОписаниеОшибки();
        ОбрезанаОшибка = Сред(Ошибка, Найти(Ошибка, "сеанс:")+6); 
        НомерСеанса = Число(Сред(ОбрезанаОшибка, 0 , Найти(ОбрезанаОшибка,", начат:")-1));
        УстановитьПривилегированныйРежим(Истина);
        АктивныеСеансы = ПолучитьСеансыИнформационнойБазы();
        УстановитьПривилегированныйРежим(Ложь);
        ИмяПользователяЗаблокировавшегоДок = "";
        Для Каждого Элемент Из АктивныеСеансы Цикл
            Если Элемент.НомерСеанса = НомерСеанса Тогда
                ИмяПользователяЗаблокировавшегоДок = Элемент.Пользователь.ПолноеИмя;
                Прервать;
            КонецЕсли;
        КонецЦикла;
        Сообщить("Документ открыт в режиме просмотра, поскольку редактируется пользователем: " + ИмяПользователяЗаблокировавшегоДок); 
        ЭтаФорма.ТолькоПросмотр = Истина;
    КонецПопытки;
КонецПроцедуры
 
// Вызываем процедуру при открытии документа
&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПроверитьБлокировку();
КонецПроцедуры