&НаСервере
Процедура СоздатьПередачуВМаркировкуНаСервере()
	
	Подразделение=Справочники.СтруктураПредприятия.ПустаяСсылка();
	ВыбраннаяСтрока=ТЗ[Элементы.ТЗ.ТекущаяСтрока];
	РеквизитыОгранизации = �нтеграцияГ�СМВызовСервера.�ННКППGLNОрганизации(Организация, Подразделение);
	Версия = �нтеграцияГ�СМ.ВерсииСхемОбмена().Клиент;
	СообщениеXML = �нтеграцияГ�СМКлиентСервер.СтруктураСообщенияXML();
	СообщениеXML.Описание = �нтеграцияГ�СМ.ОписаниеОперацииПередачиДанных(Перечисления.ОперацииОбменаГ�СМ.ПередачаДанныхРозничнаяПродажа,ВыбраннаяСтрока.ОтчетОРознПродажах,"1");
	
	�мяТипа   = "query";
	�мяПакета = "retail_sale";
	
	ПередачаДанных = �нтеграцияГ�СМ.ОбъектXDTOПо�мениСвойства(Неопределено, �мяТипа, Версия);
	
	ОтчетОРозничныхПродажах = �нтеграцияГ�СМ.ОбъектXDTO(�мяПакета, Версия);
	ОтчетОРозничныхПродажах.action_id  = ОтчетОРозничныхПродажах.action_id;
	
	Попытка
		ОтчетОРозничныхПродажах.sender_gln = РеквизитыОгранизации.GLN;
	�сключение
		�нтеграцияГ�СМКлиентСервер.ДобавитьТекстОшибкиНеЗаполненGLNОрганизации(СообщениеXML, РеквизитыОгранизации.GLN, Неопределено);
	КонецПопытки;
	
	ОтчетОРозничныхПродажах.sales = �нтеграцияГ�СМ.ОбъектXDTOПо�мениСвойства(ОтчетОРозничныхПродажах, "sales", Версия);
	
	ХранилищеВременныхДат = Новый Соответствие;
	
	НоваяСтрока = �нтеграцияГ�СМ.ОбъектXDTOПо�мениСвойства(ОтчетОРозничныхПродажах.sales, "detail", Версия);
	НоваяСтрока.sign_num = ВыбраннаяСтрока.НомерКиЗ;
	НоваяСтрока.cost = ВыбраннаяСтрока.СуммаПродажи;
	НоваяСтрока.sale_time  = ВыбраннаяСтрока.ОтчетОРознПродажах.Дата;
	НоваяСтрока.sale_docs = �нтеграцияГ�СМ.ОбъектXDTOПо�мениСвойства(НоваяСтрока, "sale_docs", Версия);
	doc = �нтеграцияГ�СМ.ОбъектXDTOПо�мениСвойства(НоваяСтрока.sale_docs, "doc", Версия);
	doc.doc_type   = 1;
	doc.doc_name   = НСтр("ru = 'Чек'");
	doc.doc_number = НСтр("ru = 'б/н'");
	doc.doc_date   = ВыбраннаяСтрока.ОтчетОРознПродажах.Дата;
	НоваяСтрока.sale_docs.doc.Добавить(doc);
	
	ОтчетОРозничныхПродажах.sales.detail.Добавить(НоваяСтрока);
		
	ПередачаДанных.version    = ПередачаДанных.version;
	ПередачаДанных[�мяПакета] = ОтчетОРозничныхПродажах;
	
	ТекстСообщенияXML = �нтеграцияГ�СМ.ОбъектXDTOВXML(ПередачаДанных, �мяТипа, Версия);
	ТекстСообщенияXML = �нтеграцияГ�СМ.ПреобразоватьВременныеДаты(ХранилищеВременныхДат, ТекстСообщенияXML);
	
	СообщениеXML.ТекстСообщенияXML  = ТекстСообщенияXML;
	СообщениеXML.КонвертSOAP = �нтеграцияГ�СМВызовСервера.ПоместитьТекстСообщенияXMLВКонвертSOAP(ТекстСообщенияXML);
	
	СообщениеXML.ТипСообщения = Перечисления.ТипыСообщенийГ�СМ.�сходящее;
	СообщениеXML.Организация  = Организация;
	СообщениеXML.Операция     = Перечисления.ОперацииОбменаГ�СМ.ПередачаДанных;
	СообщениеXML.Документ     = ВыбраннаяСтрока.ОтчетОРознПродажах;
	СообщениеXML.Версия       = "1";
	
	Сертификаты = �нтеграцияГ�СМВызовСервера.СертификатыПользователяДляПодписиПоОрганизации(Организация);
	СертКрипт=Новый СертификатКриптографии(СертификатЭЦП.ДанныеСертификата.Получить());
	МенеджерКриптографии = ЭлектроннаяПодписьСлужебный.МенеджерКриптографии("Подписание",�стина,"",СертификатЭЦП.Программа);
	РезультатПодписания = �нтеграцияГ�СМ.Подписать(СообщениеXML["ТекстСообщенияXML"],СертКрипт,МенеджерКриптографии);
	РезультатОтправкиЗапроса = �нтеграцияГ�СМ.ОтправитьЗапрос(РезультатПодписания,Перечисления.ВариантыЗапросовГ�СМ.ПередачаДанных);
	Сообщение=Новый СообщениеПользователю;
	Сообщение.Текст="Текст ошибки: "+РезультатПодписания.ТекстОшибки;
	Сообщение.Сообщить();

КонецПроцедуры