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