1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
&НаСервереБезКонтекста Процедура УстановитьНаСервере() ОписанияОтказВДоступе=Новый Массив; ОтказВДоступе = Новый ОписаниеИспользованияСобытияОтказВДоступеЖурналаРегистрации; ОписанияОтказВДоступе.Добавить(ОтказВДоступе); ИспользованиеСобытия = Новый ИспользованиеСобытияЖурналаРегистрации; ИспользованиеСобытия.Использование = Истина; ИспользованиеСобытия.ОписаниеИспользования = ОписанияОтказВДоступе; УстановитьИспользованиеСобытияЖурналаРегистрации( "_$Access$_.AccessDenied", ИспользованиеСобытия); КонецПроцедуры |