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

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

Первое, что приходит на ум – использовать в качестве семафора константу. Но это плохое решение. Если клиент, установивший семафор, вдруг по какой-то причине отвалится (банальный сбой питания или «коврик выполнил недопустимую операцию и будет свёрнут»), то семафор так и останется поднятым.

Возвращать его в нулевое состояние придётся руками, а это сводит на нет всю идею семафора – и подниматься, и опускаться он должен на полном автомате. По этой же причине нельзя использовать в качестве семафора наличие/отсутствие каких-то файлов и т.п.

Возникает вопрос – а нельзя ли использовать для механизма блокировок и семафоров какие-либо штатные возможности V7? Можно. В частности, отлично подойдёт самый обыкновенный справочник.

Окончательное решение выглядит так:

• Заводим в конфигурации специальный справочник, например, SysLock
• Код каждого конкретного элемента будет соответствовать какому-либо конкретному событию, которое управляется семафором.
• Если элемент справочника удалось заблокировать, это значит, что семафор опущен и обработку можно запускать.
• Если блокировка не удалась – значит, семафор поднят и обработка уже кем-то используется.
• При закрытии формы обработки, использующей семафор, ссылка на блокируемый элемент справочника автоматически удаляется и семафор возвращается в нулевое состояние.

Перем _лок; // переменная модуля

Процедура ПриОткрытии()

_лок=СоздатьОбъект("Справочник.SysLock");

Если _лок.НайтиПоКоду("01",0)=0 Тогда
Сообщить("не найден флаг 01");
СтатусВозврата(0);
Возврат;
КонецЕсли;

Если _лок.Блокировка(1)=0 Тогда
Сообщить("кто не успел, тот опоздал");
СтатусВозврата(0);
Возврат;
КонецЕсли;
КонецПроцедуры

Процедура ПриЗакрытии()
// на всякий случай
_лок.Блокировка(0);
_лок="";
КонецПроцедуры

Такой механизм будет работать в любой ситуации – поскольку он построен на штатном механизме шаринга и блокировок. Даже при аварийном завершении сессии семафор будет корректно возвращён в исходное (нулевое) состояние.

В принципе, механизм блокировок можно использовать не только для контроля за доступом к отчётам и обработкам. С его помощью, например, можно программно получать список пользователей, гарантированно работающих в настоящий момент с базой данных, и делать другие интересные вещи…