Выгрузка фото из ЗУП в ДО

// вызывается процедурой этого модуля Процедура ОбменКИСПриЗаписи(Источник, Отказ) Экспорт  
// как обработчик для Подписки на событие.ОбменКИС - используется при изменении фото Справочник.ХранилищеДополнительнойИнформации 
Процедура ПередачаФотоФизЛиц(Флаг, ВключенОбменКИС, КлючВебСервисаКИС)
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ФизическиеЛица.Ссылка,
		|	ФизическиеЛица.Код,
		|	ФизическиеЛица.Наименование,
		|	ФизическиеЛица.ДатаРождения,
		|	ФизическиеЛица.Пол,
		|	ФизическиеЛица.Пол.Порядок,
		|	ХранилищеДополнительнойИнформации.ВидДанных,
		|	ХранилищеДополнительнойИнформации.ИмяФайла,
		|	ХранилищеДополнительнойИнформации.Объект,
		|	ХранилищеДополнительнойИнформации.Хранилище,
		|	ХранилищеДополнительнойИнформации.ТекстФайла,
		|	ЕСТЬNULL(ХранилищеДополнительнойИнформацииИзменения.НомерСообщения, 0) КАК НомерСообщения
		|ИЗ
		|	Справочник.ХранилищеДополнительнойИнформации.Изменения КАК ХранилищеДополнительнойИнформацииИзменения
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
		|			ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица
		|			ПО ХранилищеДополнительнойИнформации.Ссылка = ФизическиеЛица.ОсновноеИзображение
		|		ПО ХранилищеДополнительнойИнформацииИзменения.Ссылка = ХранилищеДополнительнойИнформации.Ссылка
		|ГДЕ
		|	(ХранилищеДополнительнойИнформацииИзменения.НомерСообщения > &НомерСообщения
		|			ИЛИ ХранилищеДополнительнойИнформацииИзменения.НомерСообщения ЕСТЬ NULL )
		|	И ХранилищеДополнительнойИнформацииИзменения.Узел = &Узел";

	Point = "Узел";
	СсылкаНаУзел = ПланыОбмена.ОбменКИС.НайтиПоКоду(Point);
	НовыйНомерОтправленного = СсылкаНаУзел.НомерОтправленного + 1; // новый/следующий номер отправленного сообщения, для текущих отправляемых сообщений 
	NomerAd = СсылкаНаУзел.НомерПринятого; // номер последнего приятого удачно сообщения, начиная со следующего сообщения - выгружаем в КИС
	НовыйНомерПринятого = NomerAd;
	Запрос.УстановитьПараметр("Узел", СсылкаНаУзел);
	Запрос.УстановитьПараметр("НомерСообщения", NomerAd);

	РезультатЗапроса = Запрос.Выполнить();
	
	Если НЕ РезультатЗапроса.Пустой() Тогда

		Выборка = РезультатЗапроса.Выбрать();

		URI = "www.xxx.ru/";
	
		Пока Выборка.Следующий() Цикл
		
			Если ВключенОбменКИС Тогда
				// используем метод  СоздатьWSПрокси  типа  WSСсылкаМенеджер.WSСсылка, который создает объект WSПрокси
				// В  WSПрокси мы указываем логин и пароль для доступа к веб-сервису и уже после этого вызываем функцию веб-сервиса. В нашем случае это функция  ListOfDevices().
				WSПроксиКИС = WSСсылки.WSСсылка_КИС_HRM.СоздатьWSПрокси(URI, "HRM", "HRMSoap");
				Попытка
					Ответ = WSПроксиКИС.AddEmlPhoto(КлючВебСервисаКИС, // , 
										GUIDToUUID(XMLСтрока(Выборка.Ссылка)), 
										Выборка.ИмяФайла, 
								        Выборка.Хранилище.Получить().ПолучитьДвоичныеДанные() // возвращает тип ДвоичныеДанные - последовательность байтов файла
										
					
										);    
				Исключение
					Сообщить("При передаче данных в КИС произошла ошибка: "+ОписаниеОшибки());
					Флаг = Ложь; // были ошибки при загрузке в КИС, будем повторно передавать эти же данные
				КонецПопытки;	
			Иначе
				Ответ = "1"; // обмен с КИС выключен, но записи по измененям нужно удалить - поэтому делаем признак - как будто успешно передали изменения в КИС
			КонецЕсли;	
				
			Если Ответ = "1" Тогда
				НовыйНомерПринятого = Макс(?(Выборка.НомерСообщения = 0, НовыйНомерОтправленного, Выборка.НомерСообщения), НовыйНомерПринятого);
			Иначе
				Сообщить("Не передано в КИС фото " + Выборка.Наименование + ". Ответ = "+Строка(Ответ));
				Флаг = Ложь; // были ошибки при загрузке в КИС, будем повторно передавать эти же данные
			КонецЕсли;	
		
		КонецЦикла;	
	
	КонецЕсли;	

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