Каталог решений - Пауза на платформе 1С, очень нативная и очень бережная к ресурсам

Для реализации будем использовать:

1. Механизм управляемых блокировок

2. Механизм фоновых заданий и их метод: "ОжидатьЗавершенияВыполнения"

Смысл данной реализации схематично можно представить следующим образом:

Теперь к реализации:

1. Решение состоит из общего модуля и регистра сведений. (+ тестовая обработка для демонстрации работы паузы)

2. Регистр сведений необходим для реализации блокировки, по определенному условию. В нашем случае, это "НомерСеанса" (Число). Так как в одну единицу времени у информационной базы не может быть два сеанса с одинаковым номером, что позволяет нам утверждать, что пересечений по блокировкам не будет. Другими словами — одна пауза не помешает другому сеансу установить свою паузу.

3. Процедуры и функции

Процедура ВыполнитьПаузу_вСекундах(ВремяПуаузыСек,Причина="")

Параметры: 

     ВремяПаузыСек — Число — Количество секунд, на которое необходимо установить паузу

     Причина — Строка — произвольный текст, будут установлен в запись регистра сведений

Текст с пояснениями:

Процедура ВыполнитьПаузу_ВСекундах(ВремяПаузыСек,Причина="") Экспорт

	пНомерСеанса 	= НомерСеансаИнформационнойБазы(); // Номер текущего сеанса
	пИмяИнициатора 	= ИмяПользователя(); // имя пользователя
	
    // Создаем запись о паузе в регистре сведений
	МЗ = РегистрыСведений.apПауза.СоздатьМенеджерЗаписи();
	МЗ.НомерСеанса 			= пНомерСеанса;
	МЗ.ДатаНачалаПаузы 		= ТекущаяУниверсальнаяДата();
	МЗ.ДатаОкончанияПаузы	= МЗ.ДатаНачалаПаузы + ВремяПаузыСек + 3; // Необходимо значение для сборщика зависших пауз (+3 секунды на всякий случай "оверхеда")
	МЗ.Причина 				= Причина;
	МЗ.ИмяИнициатора 		= пИмяИнициатора;
	МЗ.Записать();
	
	НачатьТранзакцию(); // Вне транзакций блокировка невозможна
		Блокировка = новый БлокировкаДанных;
		Элементблокировки = Блокировка.Добавить("Регистрсведений.apПауза");
		Элементблокировки.УстановитьЗначение("НомерСеанса",пНомерСеанса);
		Элементблокировки.Режим=РежимБлокировкиДанных.Исключительный;
		Блокировка.Заблокировать(); // Установили блокировку (ни один другой сеанс не может прочесть это значение)
		
		МассивПараметров = Новый Массив;
		МассивПараметров.Добавить(пНомерСеанса);
		МассивПараметров.Добавить(МЗ.ДатаОкончанияПаузы + ВремяПаузыСек);
		
        //Запускаем фоновое задание, передаем параметр текущего номера сеанса
		ФЗ = ФоновыеЗадания.Выполнить("apПауза.сис_Пауза",МассивПараметров,,"пауза от " + пИмяИнициатора + " (" + пНомерСеанса + ")");
		
		
		Если РежимСовместимости_8_13_ИВыше() Тогда // у платформы с 8.3.13 "ОжидатьЗавершенияВыполнения", более ранняя "ОжидатьЗавершения"
			Попытка
				ФЗ = ФЗ.ОжидатьЗавершенияВыполнения(ВремяПаузыСек); // Время ожидания равно времени паузы	
			Исключение;
			КонецПопытки;
		Иначе
			Попытка
				ФЗ.ОжидатьЗавершения(ВремяПаузыСек); // Время ожидания равно времени паузы
			Исключение;
			КонецПопытки;
		КонецесЛИ;
	ОтменитьТранзакцию(); // пауза закончена, снимем блокировку
	
	МЗ.НомерСеанса = пНомерСеанса;
	МЗ.Удалить(); // Удалим запись о паузе
КонецПроцедуры

Процедура сис_Пауза(НомерСеанса,ВремяОкончанияПаузы)

Параметры: 

     НомерСеанса — Число — Номер сеанса, который ставится на паузу

     ВремяОкончанияПаузы— Дата в UTC- Когда должна закончится пауза (когда пауза больше времени ожидания на снятие блокировки)

Текст с пояснениями:

Процедура сис_Пауза(НомерСеанса,ВремяОкончанияПаузы) Экспорт
	МЗ = РегистрыСведений.apПауза.СоздатьМенеджерЗаписи();
	МЗ.НомерСеанса = НомерСеанса;
	
	Пока ТекущаяУниверсальнаяДата() < ВремяОкончанияПаузы Цикл // Для пуаз больше 20 сек (Таймаута ожидания запроса по умолчанию)
		Попытка;
			МЗ.Прочитать(); // попытка чтения заблокированной запись - здесь и возникает ожидание паузы
		Исключение;
		КонецПопытки;
	КонецЦикла;
	
КонецПроцедуры

Процедура сборщика выполняется регламентным заданием и удаляет неактуальные записи, которые могли остаться в регистре сведений (не критично, будет работать и без регулярной чистки)

Функция получения режима совместимости и версии платформы, необходима для определения какой из методов ожидания завершения использовать у фонового задания

Процедура СборщикЗависшихПауз() Экспорт
	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ
		|	apПауза.НомерСеанса КАК НомерСеанса
		|ИЗ
		|	РегистрСведений.apПауза КАК apПауза
		|ГДЕ
		|	apПауза.ДатаОкончанияПаузы < &ТекущаяУниверсальнаядата";
	запрос.УстановитьПараметр("ТекущаяУниверсальнаядата",ТекущаяУниверсальнаяДата());
	Выборка = запрос.Выполнить().Выбрать();
	Пока Выборка.Следующий() Цикл
		МЗ = РегистрыСведений.Пауза.СоздатьМенеджерЗаписи();
		МЗ.НомерСеанса = Выборка.НомерСеанса;
		МЗ.Удалить();
	КонецЦикла;
конецПроцедуры

Функция РежимСовместимости_8_13_ИВыше() Экспорт
	ТекРежим = Метаданные.РежимСовместимости;
	
	Если ТекРежим = Метаданные.СвойстваОбъектов.РежимСовместимости.НеИспользовать тогда
	 	пСис = Новый СистемнаяИнформация;
		пВерсия = пСис.ВерсияПриложения;
		пВерсия = СтрЗаменить(пВерсия,".",Символы.ПС);
		пПерваяВерсия = Число(СтрПолучитьСтроку(пВерсия,1));
		пВтораяВерсия = Число(СтрПолучитьСтроку(пВерсия,2));
		пТретьяВерсия = Число(СтрПолучитьСтроку(пВерсия,3));
	Иначе
		пВерсия	= СтрЗаменить(СтрЗаменить(Строка(ТекРежим),"Версия",""),"_",Символы.ПС);
		пПерваяВерсия = Число(СтрПолучитьСтроку(пВерсия,1));
		пВтораяВерсия = Число(СтрПолучитьСтроку(пВерсия,2));
		пТретьяВерсия = Число(СтрПолучитьСтроку(пВерсия,3));
		
	КонецЕсли;	
		
	Если пТретьяВерсия <= 12 И пВтораяВерсия <= 3 И пПерваяВерсия = 8 Тогда
		Возврат Ложь;
	Иначе
		Возврат Истина;
	КонецЕсли;
КонецФункции

Тест паузы, как видно, в реальности пауза устанавливается на больше, чем указано в значении, примерно на 0.03 секунды.

Эти 30 мил.сек. как раз затраты на реализацию и обслуживание выполнения паузы.

Текст модуля формы обработки Теста паузы

&НаСервере
Процедура ВстатьНаПаузуНаСервере()
	пТекДата = ТекущаяДата();
	мНачало = ТекущаяУниверсальнаяДатаВМиллисекундах();
		apПауза.ВыполнитьПаузу_ВСекундах(ПаузавСекундах,"Тестовая пауза");
	Результаты.ДобавитьСтроку(Формат(пТекДата,"ДФ='dd.MM.yy HH:mm:ss'") + " пауза на " + Строка(ПаузавСекундах) +" сек. выполнена за " + Формат(ТекущаяУниверсальнаяДатаВМиллисекундах()-мНачало,"ЧГ=0") + " мил.сек.");
	
КонецПроцедуры

&НаКлиенте
Процедура ВстатьНаПаузу(Команда)
	ВстатьНаПаузуНаСервере();
КонецПроцедуры

Теперь в любом месте конфигурации можно написать "apПауза.ВыполнитьПаузу_ВСекундах(5);"

И система встанет в ожидание на 5 секунд, при этом будет работать на любой платформе, без использования внешних компонент и большого потребления ресурсов сервера.

На картинке видно ожидание на управляемой блокировке, что фоновое задание, ждет, когда Тонкий клиент "отпустит" ресурс.

… Протестировано на нагрузке в 50 и более сеансов.

тестировалось на платформах 8.3.12, 8.3.15 без режима совместимости и в режиме совместимости 8.3.12

Для примера приведу рабочий кейс использования такой паузы:

Дано: система расчета показателей Apdex в режиме условно реального времени. По алгоритму для расчета индекса APDEX, необходимо знать время выполнения последних 100 таких же ключевых операций. Одна и та же ключевая операция может быть выполнена одновременно несколькими пользователями.

Решение: 

1. Есть API, которая регистрирует выполнение ключевой операции в регистре сведений,

2. Регламентное задание, с периодичностью 1 раз в 60 сек стартует фоновые задания с анализом по каждому виду ключевых операции

3. Анализ по ключевой операции заключается в следующем:

   Получение последних 100 записей из регистра сведений по данной ключевой операции

   Создание таблицы значений с этими операциями

   замещение новыми операциями, если есть (получение новых операций)

   Подсчет итога по таблице

   Установка паузы в 3 секунды и далее получение новых операций, без запроса к старым

   Если нового замера по ключевой операции не поступало в течении 30 минут, то фоновое задание завершается

Такая реализация позволила убрать постоянный запрос к регистру с историей операций (более 10 млн. записей)

…

В файлах можно скачать расширение или конфигурацию, в которой реализован описанный выше механизм паузы.

…

А зачем вам нужна пауза в 1С?