0
vechiy
25.02.14
✎
18:06
|
Собственно, не пойму, почему не указывает, кем заблокирован отчет, но крайне хотелось бы как-нибудь это узнать) Есть рецепты?
|
|
1
H A D G E H O G s
25.02.14
✎
18:08
|
Функция ЗаблокироватьДокумент(мСохраненныйДок)
Попытка
мСохраненныйДок.Заблокировать();
Возврат Истина;
Исключение
//Предупреждение("Не удается заблокировать документ!" + Символы.ПС + "Возможно, документ уже открыт другим пользователем!");
ТекстОшибки=_ОбщегоНазначенияКлиентСервер.ПолучитьРасширенноеОписаниеОшибки(ОписаниеОшибки(),ИнформацияОбОшибке());
Предупреждение("Не удается заблокировать документ по причине:" + Символы.ПС+ ТекстОшибки);
Возврат Ложь;
Конецпопытки;
КонецФункции
Функция ПолучитьРасширенноеОписаниеОшибки(ТекстОшибки,Информация) Экспорт
ТекстВозврата=ТекстОшибки;
ТекстВозвратаРасширенный="";
ЕстьТекстВозвратаРасширенный=Ложь;
ТекущаяИнформация=Информация;
Префикс="";
Пока Истина Цикл
ТекстВозвратаРасширенный=ТекстВозвратаРасширенный+Префикс+ТекущаяИнформация.Описание+?(ЗначениеЗаполнено(ТекущаяИнформация.ИмяМодуля), ". Модуль:"+ТекущаяИнформация.ИмяМодуля,"")+?(ЗначениеЗаполнено(ТекущаяИнформация.НомерСтроки), ". Строка:"+ТекущаяИнформация.НомерСтроки,"");
ЕстьТекстВозвратаРасширенный=Истина;
Если ТекущаяИнформация.Причина=Неопределено Тогда
Прервать;
КонецЕсли;
ТекущаяИнформация=ТекущаяИнформация.Причина;
Префикс=Символы.ПС;
КонецЦикла;
Возврат ?(ЕстьТекстВозвратаРасширенный,ТекстВозвратаРасширенный,ТекстВозврата);
КонецФункции
|
|