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