Выгрузка орг.структуры из ЗУП на корп портал Битрикс24 с фотографиями

// Потехин А.С.
Процедура ВыгрузитьФотографиюСотрудникаXDTO(ПараметрыОбмена, МенеджерВременныхТаблиц, ФизическоеЛицо, Владелец, Итератор)
	
	СтруктураДанныхКартинки = ВыгрузитьКартинку(Владелец.Ид, ФизическоеЛицо, ПараметрыОбмена);
				
	Если СтруктураДанныхКартинки.Размер <> "0" Тогда
		Владелец.Картинка.Добавить(СтруктураДанныхКартинки.Адрес);
		Итератор = Итератор + 1;
	КонецЕсли;
	
КонецПроцедуры

// Потехин А.С.
Функция ВыгрузитьКартинку(Ид, Объект, ПараметрыОбмена)
	
	СтруктураРезультата = Новый Структура;
	СтруктураРезультата.Вставить("Адрес" , "");
	СтруктураРезультата.Вставить("Формат", Строка(ФорматКартинки.НеизвестныйФормат));
	СтруктураРезультата.Вставить("Размер", "0");
	
	АдресФотографииФизическогоЛица = КадровыйУчетРасширенный.АдресФотографииФизическогоЛица(Объект);
	
	Если Не ЗначениеЗаполнено(АдресФотографииФизическогоЛица) Тогда
		Возврат СтруктураРезультата;
	КонецЕсли;
	
	Картинка = Новый Картинка(ПолучитьИзВременногоХранилища(АдресФотографииФизическогоЛица));
	Если ТипЗнч(Картинка) <> Тип("Картинка") Тогда
		Возврат СтруктураРезультата;
	КонецЕсли;
	
	Попытка
		
		ФорматКартинкиОбъекта = Картинка.Формат();
		Если ФорматКартинкиОбъекта = ФорматКартинки.НеизвестныйФормат Тогда
			СообщитьПодробно("У объекта обнаружено основное изображение неизвестного формата: " + Объект, ПараметрыОбмена);
			Возврат СтруктураРезультата;
		КонецЕсли;
		
		ФорматКартинкиРазрешен = Истина;
		
		Если НЕ (ФорматКартинкиОбъекта = ФорматКартинки.GIF
			ИЛИ ФорматКартинкиОбъекта = ФорматКартинки.JPEG
			ИЛИ ФорматКартинкиОбъекта = ФорматКартинки.PNG) Тогда
			
			Попытка
				
				ФорматКартинкиОбъекта = Картинка.Преобразовать(ФорматКартинки.JPEG);
				
			Исключение
				СообщитьПодробно("Не удалось преобразовать картинку для " + Объект + " из " + Строка(ФорматКартинкиОбъекта) + " в JPEG", ПараметрыОбмена);
				ФорматКартинкиРазрешен = Ложь;
			КонецПопытки;
			
		КонецЕсли;
		
		Если НЕ ФорматКартинкиРазрешен Тогда
			Возврат СтруктураРезультата;
		КонецЕсли;
		
	Исключение
		
		СообщитьПодробно("Не удалось выгрузить картинку для объекта: " + Объект + " " + ОписаниеОшибки(), ПараметрыОбмена);
		ФорматКартинкиРазрешен = Ложь;
		
	КонецПопытки;
	
	КаталогНаДиске			= ПараметрыОбмена.КаталогВыгрузкиЗащищенный;
	ПодкаталогКартинок		= ПараметрыОбмена.ПодкаталогФайлов;
	РасширениеФайлаКартинки	= "." + НРег(Строка(ФорматКартинкиОбъекта));
	ИмяФайлаКартинки		= Строка(Ид) + РасширениеФайлаКартинки;
	КаталогПоИмени			= Лев(ИмяФайлаКартинки, 2);
	КаталогКартинки			= КаталогНаДиске + "\" + ПодкаталогКартинок + "\" + КаталогПоИмени;
	СоздатьКаталог(КаталогКартинки);
	
	ПолноеИмяФайлаКартинки	= КаталогКартинки + "\" + ИмяФайлаКартинки;
	ФайлКартинкиНаДиске		= Новый Файл(ПолноеИмяФайлаКартинки);
	
	Картинка.Записать(ПолноеИмяФайлаКартинки);
	
	СтруктураРезультата.Адрес  = ПодкаталогКартинок + "/" + КаталогПоИмени + "/" + ИмяФайлаКартинки;
	СтруктураРезультата.Формат = Строка(ФорматКартинкиОбъекта);
	СтруктураРезультата.Размер = Формат(ФайлКартинкиНаДиске.Размер(), "ЧГ=");
	
	Возврат СтруктураРезультата;
	
КонецФункции