ОтменитьВыгрузку (БСП)

Отменить выгрузку. Отменяет выгрузку.

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

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

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

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