Система электронных паспортов (ELPTS) - кто сталкивался?

&НаКлиенте
Процедура Тест2(Команда)
	текстXML_ = ЗаполнениеМакетаСтатус();
	XMLИсходный  =текстXML_;
	ФорматироватьXML(текстXML_);
	КонвертXML  =текстXML_;

	ТекстЗапроса=КонвертXML;
	 	// Компонента = КомпонентаПодписи();
	ПараметрыXMLDSig=ЭлектроннаяПодписьКлиент.ПараметрыXMLDSig();
	ПараметрыXMLDSig.XPathSignedInfo       = "(//. | //@* | //namespace::*)[ancestor-or-self::*[local-name()='SignedInfo']]";
	ПараметрыXMLDSig.XPathПодписываемыйТег = "(//. | //@* | //namespace::*)[not(ancestor-or-self::ds:Signature)]";
	ПараметрыXMLDSig.ИмяАлгоритмаПодписи = "GR 34.10-2012 256";
	ПараметрыXMLDSig.OIDАлгоритмаПодписи = "1.2.643.7.1.1.3.2";
	ПараметрыXMLDSig.ИмяАлгоритмаХеширования = "GR 34.11-2012 256";
	ПараметрыXMLDSig.OIDАлгоритмаХеширования = "1.2.643.7.1.1.2.2";
	ПараметрыXMLDSig.АлгоритмПодписи     ="urn:ietf:params:xml:ns:cpxmlsec:algorithms:gostr34102012-gostr34112012-256";
	ПараметрыXMLDSig.АлгоритмХеширования = "urn:ietf:params:xml:ns:cpxmlsec:algorithms:gostr34112012-256";
	СтруктураПодписи = Новый Структура("КонвертSOAP,ПараметрыXMLDSig"); 
	
	  //ПараметрыКонверта=Неопределено;
	// ПараметрыКонверта = ЭлектроннаяПодписьКлиент.ПараметрыКонвертаXML(); 
	// ПараметрыКонверта.СообщениеXML = ТекстЗапроса ;
	СтруктураПодписи.КонвертSOAP = ТекстЗапроса;//ЭлектроннаяПодписьКлиент.КонвертXML(ПараметрыКонверта);
	СтруктураПодписи.ПараметрыXMLDSig = ПараметрыXMLDSig;
	ОписаниеДанных = Новый Структура;
	ОписаниеДанных.Вставить("Операция", "ПодписаниеДанных");
	ОписаниеДанных.Вставить("ЗаголовокДанных", "Подписание хмл файла - " );
	ОписаниеДанных.Вставить("Данные", СтруктураПодписи);
	ОписаниеОповещения = Новый ОписаниеОповещения("ОбработатьРезультатПодписи", ЭтотОбъект); 
	ЭлектроннаяПодписьКлиент.Подписать( ОписаниеДанных, Неопределено, ОписаниеОповещения)

КонецПроцедуры
 &НаКлиенте
Процедура ОбработатьРезультатПодписи(РезультатПодписи, ДополнительныеПараметры=Неопределено) Экспорт
	Если не РезультатПодписи.Успех  Тогда  
		ОТвет ="Ошибка при подписании";
		Для каждого Элемент Из РезультатПодписи.Данные.ПараметрыXMLDSig Цикл
			ОТвет =ОТвет+Символы.ПС + Элемент.Ключ + " = " + Элемент.Значение;
		КонецЦикла; 
		
		//  Сообщить("Ошибка при подписании: " + РезультатПодписи.ОписаниеОшибки);
		Возврат;
	КонецЕсли;
	
	
	// Сохраняем подписанный документ 
	ПодписанныйXML = РезультатПодписи.СвойстваПодписи.Подпись;   // ПодписанныйXML = РезультатПодписи.Данные.КонвертSOAP ;
	XMLПодпись="<?xml version=""1.0"" encoding=""UTF-8""?>" + Символы.ПС + ПодписанныйXML;  
КонецПроцедуры

Функция ЗаполнениеМакетаСтатус()	
	Обработка =  РеквизитФормыВЗначение("Объект");
	МакетТекст = Обработка.ПолучитьМакет("status4").ПолучитьТекст(); 
	//[MessageID]
	//[Mnemonic]
	//[HumanReadableName]
	//[SendingTimestamp]
	//[VIN]
	МакетТекст=СтрЗаменить(МакетТекст,"[MessageID]",Новый УникальныйИдентификатор());
	МакетТекст=СтрЗаменить(МакетТекст,"[Mnemonic]","***************");
	МакетТекст=СтрЗаменить(МакетТекст,"[HumanReadableName]","************");
	МакетТекст=СтрЗаменить(МакетТекст,"[SendingTimestamp]",ДатуВTimestamp(ТекущаяДата()));
	МакетТекст=СтрЗаменить(МакетТекст,"[VIN]","ALEDALVSEPTEM1749");
	Возврат МакетТекст; 
	
	
КонецФункции

Функция ДатуВTimestamp(пДата = Неопределено)  
	Возврат Формат(ТекущаяДата(), "ДФ=yyyy-MM-ddThh:mm:ss.000+03:00");
	//Возврат Формат(Число(?(ТипЗнч(пДата) = Тип("Дата"), пДата, ТекущаяДата())-Дата("19700101")),"ЧН=0; ЧГ=0");
КонецФункции

Процедура ФорматироватьXML(ТекстXML) 
	ТекстXML = СтрЗаменить(ТекстXML, символ(13)+символ(10),символ(10));
	ТекстXML = СтрЗаменить(ТекстXML, символ(13),символ(10));
    ТекстXML = СтрЗаменить(ТекстXML, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""no""?>", ""); 
	ТекстXML = СтрЗаменить(ТекстXML, "<?xml version=""1.0"" encoding=""UTF-8""?>", "");
КонецПроцедуры