Библиотека универсальной обработки асинхронных вызовов

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

Например, во всех моих постоянно используемых конфигурациях была функция получения согласия на выполнение некоторого действия. Т.е. задавался вопрос, и если ответ утвердительный, функция возвращала Истина, иначе Ложь - простой механизм. Первым делом, я решил перевести на асинхронное исполнение именно эту функцию. Все оказалось весьма непросто и в результате появилась данная библиотека. Результат перевода на асинхронные рельсы рассматриваемого примера отражен в библиотеке функцией ПоказатьВопросИсполнения

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

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

Библиотека универсальных функций опубликована здесь:

//infostart.ru/public/319157/

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

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

// Выполняется при возникновении ошибок обработки оповещения
//
Процедура ОбработкаОшибокОповещения() Экспорт
	Сообщить("В процессе обработки оповещения возникла ошибка по причине: "+ОписаниеОшибки());
КонецПроцедуры

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

// Выполняет команду обработки оповещения на сервере (см. ОбработкаРезультатаОповещения)
//
Процедура ВыполнитьОповещениеНаСервере(ОбъектОповещения,КомандаИсполнения,Результат = Неопределено) Экспорт
	Выполнить(КомандаИсполнения);
КонецПроцедуры