|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
// Процедура - Ожидание // // Параметры: // Длительность - Число - длительность ожидания в секундах. // Процедура Ожидание(Длительность) Экспорт Идентификатор = Новый УникальныйИдентификатор; НачатьТранзакцию(); Блокировка = Новый БлокировкаДанных; Элемент = Блокировка.Добавить("РегистрСведений.сшпБлокировкаОчереди"); Элемент.Режим = РежимБлокировкиДанных.Исключительный; Элемент.УстановитьЗначение("Идентификатор", Идентификатор); Блокировка.Заблокировать(); мсвПараметров = Новый Массив; мсвПараметров.Добавить(Идентификатор); Задание = ФоновыеЗадания.Выполнить("сшпОбщегоНазначения.ВыполнитьПаузу", мсвПараметров,, "Выполнить паузу "+Длительность+" сек."); Попытка Задание.ОжидатьЗавершения(Длительность); Исключение КонецПопытки; ОтменитьТранзакцию(); КонецПроцедуры |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
// Процедура - Выполнить паузу // // Параметры: // Идентификатор - УникальныйИдентификатор - идентификатор сессии ожидания. // Процедура ВыполнитьПаузу(Идентификатор) Экспорт НачатьТранзакцию(); Блокировка = Новый БлокировкаДанных; Элемент = Блокировка.Добавить("РегистрСведений.сшпБлокировкаОчереди"); Элемент.Режим = РежимБлокировкиДанных.Исключительный; Элемент.УстановитьЗначение("Идентификатор", Идентификатор); Попытка Блокировка.Заблокировать(); Исключение КонецПопытки; ОтменитьТранзакцию(); КонецПроцедуры |