ОбластьДанныхЗаблокирована (БСП)

Область данных заблокирована. Проверяет блокировку области данных.

// Проверяет блокировку области данных.
//
// Параметры:
//  ОбластьДанных -  Число - значение разделителя области данных, 
//   блокировку которой требуется проверить.
//
// Возвращаемое значение:
//  Булево - если Истина, область данных заблокирована, иначе нет.
//
Функция ОбластьДанныхЗаблокирована(Знач ОбластьДанных) Экспорт
	
	Ключ = СоздатьКлючЗаписиРегистраСведенийВспомогательныхДанных(
	    РегистрыСведений.ОбластиДанных,
	    Новый Структура(РазделительВспомогательныхДанных(), ОбластьДанных));
	
	Попытка
		
		ЗаблокироватьДанныеДляРедактирования(Ключ);
		
	Исключение
		
		Возврат Истина;
		
	КонецПопытки;
	
	РазблокироватьДанныеДляРедактирования(Ключ);
	
	Если НЕ ДоступноИспользованиеРазделенныхДанных() Тогда
		
		Попытка
			
			УстановитьРазделениеСеанса(Истина, ОбластьДанных);
			
		Исключение
			
			УстановитьРазделениеСеанса(Ложь);
			Возврат Истина;
			
		КонецПопытки;
		
		УстановитьРазделениеСеанса(Ложь);
		
	КонецЕсли;
	
	Возврат Ложь;
	
КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

// Проверяет блокировку области данных.
//
// Параметры:
//  ОбластьДанных -  Число - значение разделителя области данных, 
//   блокировку которой требуется проверить.
//
// Возвращаемое значение:
//  Булево - если Истина, область данных заблокирована, иначе нет.
//
Функция ОбластьДанныхЗаблокирована(Знач ОбластьДанных) Экспорт
	
	Ключ = СоздатьКлючЗаписиРегистраСведенийВспомогательныхДанных(
	    РегистрыСведений.ОбластиДанных,
	    Новый Структура(РазделительВспомогательныхДанных(), ОбластьДанных));
	
	Попытка
		
		ЗаблокироватьДанныеДляРедактирования(Ключ);
		
	Исключение
		
		Возврат Истина;
		
	КонецПопытки;
	
	РазблокироватьДанныеДляРедактирования(Ключ);
	
	Если НЕ ДоступноИспользованиеРазделенныхДанных() Тогда
		
		Попытка
			
			УстановитьРазделениеСеанса(Истина, ОбластьДанных);
			
		Исключение
			
			УстановитьРазделениеСеанса(Ложь);
			Возврат Истина;
			
		КонецПопытки;
		
		УстановитьРазделениеСеанса(Ложь);
		
	КонецЕсли;
	
	Возврат Ложь;
	
КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////