УдалитьДанныеПоЛицензиям (БСП)

Удалить данные по лицензиям. Обновляет данные по лицензиям в РС "ЗанятыеЛицензии".

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

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

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

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