Проблема с ИС ЭСФ

Функция СоздатьЭЦП(Знач СтрокаДляПодписи, Знач КлючBase64, Знач ПарольКлюча) Экспорт
	
	Попытка
				
		Криптопровайдер = КриптографияКлиентСервер.НовыйКриптопровайдер();		
		//Криптопровайдер.ИнициализироватьХранилищеКлюча(КлючBase64, ПарольКлюча, ИнициализироватьХранилищеКлюча_ТипДанных_СтрокаBase64());	
		//ЭЦП = Криптопровайдер.ПолучитьПодпись(СтрокаДляПодписи, ПолучитьПодпись_ТипДанных_UTF8());		
		
		//-->22.09.2016.  вмеренная заплатка, получение ЭЦП с локального сервера от egov.kz
		ЭЦП = "";
		
		ЗапросXML = ПолучитьМакет("ЗапросGenerateSignature").ПолучитьТекст();
		ЗапросXML = СтрЗаменить(ЗапросXML, "[%ТекстДляПодписи%]", СтрокаДляПодписи);
		ЗапросXML = СтрЗаменить(ЗапросXML, "<invoice>", "<nam1:invoice>");
		ЗапросXML = СтрЗаменить(ЗапросXML, "</invoice>", "</nam1:invoice>");
		
		ОтветXML = ВыполнитьМетодВебСервисаCУказаниемСервера(ЗапросXML, "generateSignature");
		
		ИнформацияОбОшибке = Неопределено;
		Если НЕ ЭтоМодульнаяОшибка(ОтветXML, ИнформацияОбОшибке) Тогда
			ОтветXDTO = ЭСФСервер.ОбъектXDTOИзСтрокиXML(ОтветXML, ФабрикаXDTO);
			invoiceHashList = ОтветXDTO.Body.signatureResponse.invoiceHashList;
			Если invoiceHashList <> Неопределено Тогда
				ЭЦП = ЭСФСервер.ПолучитьСвойство(invoiceHashList.invoiceHash, "signature", Неопределено);
			Иначе
				ВызватьИсключение "При подписании документа произошла ошибка.";	
			КонецЕсли;
			
			Если Не ЗначениеЗаполнено(ЭЦП) Тогда
				ВызватьИсключение "При подписании документа произошла ошибка.";		
			КонецЕсли;
			
		Иначе
			ВызватьИсключение НСтр("ru = 'При подписании документа произошла ошибка.'") + Символы.ПС + ИнформацияОбОшибке.ПодробноеПредставление;
		КонецЕсли;
		//<-- 22.09.2016. Вмеренная заплатка, получение ЭЦП с локального сервера от egov.kz
		
		Возврат ЭЦП;	
		
	Исключение
		
		Ошибка = ОшибкаКриптопровайдера(Криптопровайдер, ИнформацияОбОшибке());
		
		ЭСФВызовСервера.СоздатьЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка выполнения'"), "Ошибка", , , Ошибка.ПодробноеПредставление);
		
		ТекстИсключения = НСтр(
		"ru = 'Не удалось подписать электронный счет-фактуру.
		|[КраткоеПредставление]'");
		ТекстИсключения = СтрЗаменить(ТекстИсключения, "[КраткоеПредставление]", Ошибка.КраткоеПредставление);				
		
		ВызватьИсключение ТекстИсключения;
		
	КонецПопытки;
	
КонецФункции

//-->22.09.2016.  вмеренная заплатка, получение ЭЦП с локального сервера от egov.kz
Функция ВыполнитьМетодВебСервисаCУказаниемСервера(Знач ТекстМетода, Знач ИмяВебСервиса) Экспорт
	
	//ПараметрыПодключения = ЭСФСерверПовтИсп.ПолучитьПараметрыПодключенияКСерверуИСЭСФ();
	
	ПараметрыПодключения  = Новый Структура;
	ПараметрыПодключения.Вставить("СерверИСЭСФ_HTTPS", Ложь);
	ПараметрыПодключения.Вставить("СерверИСЭСФ_Адрес", "192.168.1.100");
	ПараметрыПодключения.Вставить("СерверИСЭСФ_Порт", 6666 );
	ПараметрыПодключения.Вставить("НовыйПроксиСерверИСЭСФ", Новый ИнтернетПрокси(Ложь));
	ПараметрыПодключения.Вставить("СерверИСЭСФ_Ресурс", "LocalService");
	
	Если ПараметрыПодключения.СерверИСЭСФ_HTTPS Тогда 
			
		HTTPСоединение = Новый HTTPСоединение(
			ПараметрыПодключения.СерверИСЭСФ_Адрес, 
			ПараметрыПодключения.СерверИСЭСФ_Порт, 
			, 
			, 
			, 
			,
			Новый ЗащищенноеСоединениеOpenSSL(,));
		
	Иначе
		
		HTTPСоединение = Новый HTTPСоединение(
			ПараметрыПодключения.СерверИСЭСФ_Адрес, 
			ПараметрыПодключения.СерверИСЭСФ_Порт, 
			, 
			, 
			);
			
	КонецЕсли;
		
   	HTTPЗапрос = Новый HTTPЗапрос();
	
	ПрефиксРесурса = ПараметрыПодключения.СерверИСЭСФ_Ресурс;
	ПрефиксРесурса = ?(Лев(ПрефиксРесурса, 1) = "/", Сред(ПрефиксРесурса, 2), ПрефиксРесурса);
	ПрефиксРесурса = ?(Прав(ПрефиксРесурса, 1) = "/", Сред(ПрефиксРесурса, 1, СтрДлина(ПрефиксРесурса) - 1), ПрефиксРесурса);	
	HTTPЗапрос.АдресРесурса	= "/" + ПрефиксРесурса + "/" + ИмяВебСервиса;
	
	Заголовки = Новый Соответствие();
	Заголовки.Вставить("Content-Type", "text/xml;charset=UTF-8");
	Заголовки.Вставить("SOAPAction", """""");
	HTTPЗапрос.Заголовки = Заголовки;
	HTTPЗапрос.УстановитьТелоИзСтроки(ТекстМетода, "UTF-8");
	
	HTTPОтвет = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);	
	ТекстОтвета = СокрЛП(HTTPОтвет.ПолучитьТелоКакСтроку());
	
	Возврат ТекстОтвета;
	
КонецФункции

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:nam="namespace.esf" xmlns:nam1="namespace.v1">
	<soapenv:Header/>
	<soapenv:Body>
		<nam:signatureRequest>
	  		<invoiceSet>
					[%ТекстДляПодписи%]			
		    </invoiceSet>
		    <certificatePath>ecp.p12</certificatePath>
		    <certificatePin>654321</certificatePin>
		</nam:signatureRequest>
	 </soapenv:Body>
</soapenv:Envelope>