Интергация через веб-сервисы

Процедура ИнициализироватьВебСервисМаршрутов(Сервис, Пользователь = Неопределено, Пароль = Неопределено)
	
	Если Сервис <> Неопределено Тогда
		Возврат;
	КонецЕсли;	
	
	Сервис = WSСсылки.инМаршрутыБТС.СоздатьWSПрокси("http://ws.vrptwserver.beltranssat.by/", "VrpWebServiceService", "VrpWebServicePort", , 300);													
	Сервис.Пользователь = ?(Пользователь <> Неопределено, Пользователь,	Константы.инИмяПользователяДляБелтрансспутника.Получить());
	Сервис.Пароль 	  = ?(Пароль <> Неопределено, Пароль, Константы.инПарольПользователяДляБелтрансспутника.Получить());	
		
КонецПроцедуры



Процедура ДобавитьИзменитьГеографическиеТочки(МассивЗаказов, Сервис = Неопределено, Отказ = Ложь) Экспорт
	
	Пользователь = ПараметрыСеанса.ТекущийПользователь.векКодБТС;
	
	ИнициализироватьВебСервисМаршрутов(Сервис, Пользователь);
	
	Если Сервис = Неопределено Тогда
		Возврат;
	КонецЕсли;	
	
	ТаблицаДанных = ПолучитьДанныеГеографическихТочек(МассивЗаказов);  // таблица, содержащая данные точек, переданных в параметре МасиивЗаказов для передачи в БТС
	
	Для каждого СтрокаДанных Из ТаблицаДанных Цикл
		ДобавитьИзменитьГеографическуюТочку(СтрокаДанных, Сервис, Отказ);
	КонецЦикла; 
	
КонецПроцедуры


Процедура ДобавитьИзменитьГеографическуюТочку(СтрокаДанных, Сервис = Неопределено, Отказ = Ложь)
	
	ОбъектСервисаГеоТочка = инВебСервисы.ПолучитьОбъектВебСервиса(Сервис, "customerDataJaxb");
	ЗаполнитьЗначенияСвойств(ОбъектСервисаГеоТочка, СтрокаДанных);
	
	ОбъектСервисаГеоТочка.readyTime    = СтрокаДанных.ВремяДоставкиС;
	ОбъектСервисаГеоТочка.dueTime        = СтрокаДанных.ВремяДоставкиПо;
		
	ОбъектСервисаСписокТоваров = инВебСервисы.ПолучитьСписокОбъектовВебСервиса(Сервис, "customerDataJaxb", "goods");
	Для Каждого СтрокаТовар Из СтрокаДанных.Товары Цикл
		ОбъектСервисаТовар = инВебСервисы.ПолучитьОбъектВебСервиса(Сервис, "good");
		ЗаполнитьЗначенияСвойств(ОбъектСервисаТовар, СтрокаТовар);
		ОбъектСервисаСписокТоваров.good.Добавить(ОбъектСервисаТовар);		
	КонецЦикла;
	
	Попытка
		Сервис.addPoint(ОбъектСервисаГеоТочка);
	Исключение
		Попытка
		     Сервис.updatePoint(ОбъектСервисаГеоТочка);
		Исключение
		    Сообщить(ОписаниеОшибки());
		КонецПопытки; 
	КонецПопытки;

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


Функция ПолучитьДанныеГеографическихТочек(МассивЗаказов)
	
	Запрос = Новый Запрос;

	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ЗаказКлиента.Ссылка КАК Ссылка,
		|	""ЗК_"" + ЗаказКлиента.Номер КАК Номер,
		|	ЗаказКлиента.Дата КАК Дата,
		|	ЕСТЬNULL(ЗаказКлиента.инАдресДоставкиГеографический.Широта, 0) КАК latitude,
		|	ЕСТЬNULL(ЗаказКлиента.инАдресДоставкиГеографический.Долгота, 0) КАК longitude,
		|	0 КАК weight,
		|	0 КАК volume,
		|	0 КАК readyTime,
		|	86400 КАК dueTime,
		|	ЗаказКлиента.ВремяДоставкиС,
		|	ЗаказКлиента.ВремяДоставкиПо,
		|	//600 КАК serviceTime,
		|	""ЗК_"" + ЗаказКлиента.Номер КАК id,
		|	ЗаказКлиента.Партнер.Наименование КАК name,
		|	ЕСТЬNULL(ЗаказКлиента.инАдресДоставкиГеографический.КраткийАдрес, """") КАК address,
		|	""ЗК_"" + ЗаказКлиента.Номер КАК label,
		|	"""" КАК text1,
		|	"""" КАК text2,
		|	"""" КАК text3,
		|	""ЗК_"" + ЗаказКлиента.Номер КАК orderNumber,
		|	ЗаказКлиента.инТелефон КАК phoneNumbers,
		|	ЕСТЬNULL(ЗаказКлиента.инАдресДоставкиГеографический.ГеографическаяЗона.КодБТС, 0) КАК zoneId,
		|	100 КАК radius,
		|	ЗаказКлиента.ДатаОтгрузки КАК deliveryDate,
		|	5 КАК priority,
		|	5 КАК insertionPriority,
		|	ЗаказКлиента.Товары.(
		|		Номенклатура.Артикул КАК goodsId,
		|		Номенклатура.Наименование КАК name,
		|		Количество КАК amount,
		|		Ссылка.Склад.Наименование КАК warehouse,
		|		0 КАК cost,
		|		ЗаказКлиента.Товары.ПроцентРучнойСкидки + ЗаказКлиента.Товары.ПроцентАвтоматическойСкидки КАК discount,
		|		ВЫБОР
		|			КОГДА ЗаказКлиента.Товары.Отменено
		|				ТОГДА 1
		|			ИНАЧЕ 0
		|		КОНЕЦ КАК status,
		|		ЕСТЬNULL(ЗаказКлиента.Товары.ПричинаОтмены.Наименование, """") КАК comment,
		|		ЛОЖЬ КАК hasDebt
		|	)
		|ИЗ
		|	Документ.ЗаказКлиента КАК ЗаказКлиента
		|ГДЕ
		|	ЗаказКлиента.Ссылка В(&МассивЗаказов)
		|	И ЗаказКлиента.Проведен = ИСТИНА; 

	Возврат Запрос.Выполнить().Выгрузить();

КонецФункции

инВебСервисы.ПолучитьОбъектВебСервиса(Сервис, "customerDataJaxb");