&НаСервере
Процедура СоздатьПередачуВМаркировкуНаСервере()
	
	Подразделение=Справочники.СтруктураПредприятия.ПустаяСсылка();
	ВыбраннаяСтрока=ТЗ[Элементы.ТЗ.ТекущаяСтрока];
	РеквизитыОгранизации = ИнтеграцияГИСМВызовСервера.ИННКПП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"],СертКрипт,МенеджерКриптографии);
	РезультатОтправкиЗапроса = ИнтеграцияГИСМ.ОтправитьЗапрос(РезультатПодписания,Перечисления.ВариантыЗапросовГИСМ.ПередачаДанных);
	Сообщение=Новый СообщениеПользователю;
	Сообщение.Текст="Текст ошибки: "+РезультатПодписания.ТекстОшибки;
	Сообщение.Сообщить();

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