ДанныеОповещенийОбОбработкеЗапросов (БСП)

Данные оповещений об обработке запросов. Формирует массив данных для вывода оповещений.

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

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

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

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