Блокировка от параллельного выполнения функционала на примере регламентных заданий

16.09.19

Разработка - Механизмы платформы 1С

Как не допустить одновременного выполнения каких-либо функций в системе. Например, есть 2 регламентных задания, которые выполняют один и тот же функционал параллельно.

У меня есть регламентное задание, которое выполняет функцию каждые 15 минут. Также функцию может вызвать вручную пользователь. Если функция уже выполняется, то пользователь, запустив ее вручную, рискует получить ошибки в данных.

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

Придется писать проверки, которые смотрят за статистикой выполнения и если интервал превышен, то...

Но есть способ гораздо проще. Это стандартные блокировки объектов 1С. Для этого у меня есть справочник:

Поле ТипОбъектаКонтроля - это перечисление в котором находятся все разделы функционала вызываемые регламентными заданиями. Стандартная функция, которая осуществляет блокировку:

ОбъектСправочника.Заблокировать();

Если мы в функции, которая выполняется будем проверять блокировку и блокировать элемент справочника. То даже если сессия упадет, или закончится ошибкой, у нас не возникнет ситуации "вечной блокировки".

Немного кода. Очень важно вернуть в вашу функцию объект блокировки. Если этого не сделать, блокировка снимется автоматически.
 

 
&НаСервере
Функция ЗаблокироватьПоТипуОбъектаКонтроля(_ТипОбъектаКонтроля, _Комментарий = "") Экспорт
	
	Результат = Неопределено;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	БлокировкиФункционала.Ссылка
		|ИЗ
		|	Справочник.БлокировкиФункционала КАК БлокировкиФункционала
		|ГДЕ
		|	БлокировкиФункционала.ПометкаУдаления = ЛОЖЬ
		|	И БлокировкиФункционала.ТипОбъектаКонтроля = &ТипОбъектаКонтроля";
	
	Запрос.УстановитьПараметр("ТипОбъектаКонтроля", _ТипОбъектаКонтроля);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Если  Не ВыборкаДетальныеЗаписи.Количество() = 1 Тогда
		Возврат Результат;
	КонецЕсли;
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		БФ = ВыборкаДетальныеЗаписи.Ссылка;
		
		БФО = БФ.ПолучитьОбъект();
		
		Попытка
			БФО.Заблокировать();
			БФО.ДатаБлокировки	= ТекущаяДата();
			БФО.Комментарий		= _Комментарий;
			БФО.Записать();
		Исключение
			Результат = Неопределено;
		КонецПопытки;
		
		Результат = БФО;
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции

&НаСервере
Функция РазблокироватьПоТипуОбъектаКонтроля(_ТипОбъектаКонтроля, _Комментарий = "") Экспорт 
	
	Результат = Неопределено;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	БлокировкиФункционала.Ссылка
		|ИЗ
		|	Справочник.БлокировкиФункционала КАК БлокировкиФункционала
		|ГДЕ
		|	БлокировкиФункционала.ПометкаУдаления = ЛОЖЬ
		|	И БлокировкиФункционала.ТипОбъектаКонтроля = &ТипОбъектаКонтроля";
	
	Запрос.УстановитьПараметр("ТипОбъектаКонтроля", _ТипОбъектаКонтроля);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Если  Не ВыборкаДетальныеЗаписи.Количество() = 1 Тогда
		Возврат Результат;
	КонецЕсли;

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		БФ = ВыборкаДетальныеЗаписи.Ссылка;
		
		БФО = БФ.ПолучитьОбъект();
		
		Попытка
			БФО.ДатаБлокировки	= ОбщийСерверКеш.ПустаяДата();
			БФО.Комментарий		= "";
			БФО.Записать();
			
			БФО.Разблокировать();
		Исключение
			Результат = Неопределено;
		КонецПопытки;
		
		Результат = БФО;
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции

&НаСервере
Функция ПроверитьБлокировкуПоТипуОбъектаКонтроля(_ТипОбъектаКонтроля) Экспорт
	
	Результат = Ложь;
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	БлокировкиФункционала.Ссылка
		|ИЗ
		|	Справочник.БлокировкиФункционала КАК БлокировкиФункционала
		|ГДЕ
		|	БлокировкиФункционала.ПометкаУдаления = ЛОЖЬ
		|	И БлокировкиФункционала.ТипОбъектаКонтроля = &ТипОбъектаКонтроля";
	
	Запрос.УстановитьПараметр("ТипОбъектаКонтроля", _ТипОбъектаКонтроля);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Если  Не ВыборкаДетальныеЗаписи.Количество() = 1 Тогда
		Возврат Результат;
	КонецЕсли;

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		БФ = ВыборкаДетальныеЗаписи.Ссылка;
		
		БФО = БФ.ПолучитьОбъект();
		
		Попытка
			БФО.Заблокировать();
		Исключение
			Результат = Истина;
		КонецПопытки;
	КонецЦикла;
	
	Возврат Результат;
	
КонецФункции



 
 

 

Регламентные задания блокировка

См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4484    dsdred    53    

71

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5284    YA_418728146    25    

63

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6401    dsdred    36    

111

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18466    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12086    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8804    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6273    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    15974    SeiOkami    31    

103
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. soft_wind 16.09.19 15:15 Сейчас в теме
а вы сами тестировали свой функционал? там на глаз пара дырок точно есть
1.обход выборки циклом! если есть несколько элементов с одним типом, то блокировки на первые сбросятся
2.при установке блокировки, вы не обрабатываете исключение, и если блокировка не произошла вы всеравно возвращаете объект
и др.
4. 2tvad 70 16.09.19 16:51 Сейчас в теме
(1) Спасибо. Я несколько упростил функции для публикации.
1. Контроль уникальности есть: проверки на дубли значения в справочнике при чтении и записи. Они стопорят функционал и пишут пользователю, в лог на e_mail.
2. Вы правы. Поправлю.
2. VmvLer 16.09.19 16:46 Сейчас в теме
не увидел транзакции - это будет работать без них?
5. 2tvad 70 16.09.19 16:52 Сейчас в теме
(2) Будет работать без транзакций.
3. пользователь 16.09.19 16:50
Сообщение было скрыто модератором.
...
6. fancy 35 17.09.19 07:45 Сейчас в теме
Для таких случаев возможно проще создавать предопределенные элементы спр-ка "БлокировкиФункционала" по одному для каждого нужного задания, тогда не нужно искать запросом нужный элемент для блокировки

БФО = Справочники.БлокировкаФункционала.НужныйЭлемент.ПолучитьОбъект();


а так метод рабочий, используем
7. 2tvad 70 17.09.19 11:15 Сейчас в теме
(6) Да, спасибо. Действительно так будет проще.
8. Lapitskiy 1057 19.09.19 07:49 Сейчас в теме
Прекрасная идея.

Но если поставить ключ регламентного задания, оно и так не будет выполнятся одновременно.
Или о чем речь ?
9. 2tvad 70 19.09.19 10:09 Сейчас в теме
(8) Ну например, у нас интеграция выполняется по регламентному заданию. Так же пользователь может запустить этот же функционал в ручном режиме, когда интеграция еще не отработала, что может вызвать коллизии. На самом деле у нас есть еще ряд интеграции, которые взаимосвязаны и выполняются с разными интервалами.

Ну например, при передаче данных на сайт, есть идея, сначала подготовить все данные - в виде текста SQL запросов, а потом выполнять их. Т.е. блокировать функционал, нужно будет только во время подготовки SQL запросов, а выполнять их можно уже не обращая внимание на изменение данных другими регламентными заданиями. Т.е. блокировка будет действовать, не 5 минут, а 1 минуту.
Оставьте свое сообщение