ПодключениеТестовыхПериодов (БСП)

Подключение тестовых периодов. Обработчик регламентного задания "ПодключениеТестовыхПериодов"

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

///////////////////////////////////////////////////////////////////////////////////////////////////////
// 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
///////////////////////////////////////////////////////////////////////////////////////////////////////