Попытка
Заблокировать();
Исключение
ЭтаФорма.ТолькоПросмотр = Истина;
Ошибка_Содержание = ОписаниеОшибки();
Сообщить("Документ используется другим пользователем!"+Символы.ПС+Сред(Ошибка_Содержание,Найти(Ошибка_Содержание,"Объект уже заблокирован")));
КонецПопытки;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший