Подписание_ПослеВыполненияHash_ПодписываемыйТег (БСП)

Подписание после выполнения hash подписываемый тег.

Процедура Подписание_ПослеВыполненияHash_ПодписываемыйТег(DigestValue, Параметры, Контекст) Экспорт
	
	Если DigestValue = Неопределено Тогда
		НачатьПолучениеТекстаОшибки(НСтр("ru = 'При выполнении метода Hash произошла ошибка:'"), Контекст);
		Возврат;
	КонецЕсли;
	
	Контекст.КонвертSOAP = СтрЗаменить(Контекст.КонвертSOAP, "%DigestValue%", DigestValue);
	
	Попытка
		
		ОписаниеОповещения = Новый ОписаниеОповещения(
			"Подписание_ПослеВыполненияC14N_SignedInfo", ЭтотОбъект, Контекст,
			"Подписание_ПослеВыполненияC14N_SignedInfo_Ошибка", ЭтотОбъект);
		
		Контекст.ОбъектКомпоненты.НачатьВызовC14N(
			ОписаниеОповещения,
			Контекст.КонвертSOAP,
			Контекст.ДанныеАлгоритмаПодписания.XPathSignedInfo);
		
	Исключение
		
		ЗавершитьОперациюСОшибкой(
			Контекст,
			НСтр("ru = 'Ошибка вызова метода C14N компоненты XMLDSig.'") + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
		
	КонецПопытки;
	
КонецПроцедуры

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

Процедура Подписание_ПослеВыполненияHash_ПодписываемыйТег(DigestValue, Параметры, Контекст) Экспорт
	
	Если DigestValue = Неопределено Тогда
		НачатьПолучениеТекстаОшибки(НСтр("ru = 'При выполнении метода Hash произошла ошибка:'"), Контекст);
		Возврат;
	КонецЕсли;
	
	Контекст.КонвертSOAP = СтрЗаменить(Контекст.КонвертSOAP, "%DigestValue%", DigestValue);
	
	Попытка
		
		ОписаниеОповещения = Новый ОписаниеОповещения(
			"Подписание_ПослеВыполненияC14N_SignedInfo", ЭтотОбъект, Контекст,
			"Подписание_ПослеВыполненияC14N_SignedInfo_Ошибка", ЭтотОбъект);
		
		Контекст.ОбъектКомпоненты.НачатьВызовC14N(
			ОписаниеОповещения,
			Контекст.КонвертSOAP,
			Контекст.ДанныеАлгоритмаПодписания.XPathSignedInfo);
		
	Исключение
		
		ЗавершитьОперациюСОшибкой(
			Контекст,
			НСтр("ru = 'Ошибка вызова метода C14N компоненты XMLDSig.'") + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
		
	КонецПопытки;
	
КонецПроцедуры

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