Программная загрузка картинки номенклатуры

	КартинкаСсылка = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка();
	Если Не ТоварКартинка = Неопределено или не ТоварКартинка = "" Тогда
		Если КартинкаСсылка.Пустая() Тогда
			КартинкаСсылка = Справочники.НоменклатураПрисоединенныеФайлы.НайтиПоНаименованию(НоменклатураОбъект.Код);
		КонецЕсли;
		Если КартинкаСсылка.Пустая() Тогда
			КартинкаОбъект = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
			КартинкаОбъект.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;			
			КартинкаОбъект.Наименование = НоменклатураОбъект.Код;
			КартинкаОбъект.ВладелецФайла = НоменклатураОбъект.Ссылка;
			
			Соединение=Новый HTTPСоединение("адрес_сайта");
			ИмяВременногоФайла=ПолучитьИмяВременногоФайла(".jpg");
			Соединение.Получить("/" + ТоварКартинка,ИмяВременногоФайла);
			КартинкаОбъект.ФайлХранилище = Новый Картинка(ИмяВременногоФайла, истина);

			КартинкаОбъект.Расширение = "jpg";
			
			КартинкаСохранить = РегистрыСведений.ПрисоединенныеФайлы.СоздатьНаборЗаписей();
			КартинкаСохранить.Отбор.ПрисоединенныйФайл.Установить();
			НовыйФайл = КартинкаСохранить.Добавить();
			НовыйФайл.ПрисоединенныйФайл = КартинкаОбъект.Наименование;
			НовыйФайл.ХранимыйФайл = КартинкаОбъект.ФайлХранилище;
			КартинкаСохранить.Записать();
			
			КартинкаОбъект.Записать();
			КартинкаСсылка = КартинкаОбъект.Ссылка; 
		КонецЕсли;
		НоменклатураОбъект.ФайлКартинки = КартинкаСсылка;
	Иначе
		НоменклатураОбъект.ФайлКартинки = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка();
	КонецЕсли;

{Форма.Форма.Форма(246)}: Ошибка при вызове метода контекста (Записать)
			КартинкаСохранить.Записать();
по причине:
Запись не верна! Значение поля "Присоединенный файл" не может быть пустым!: ПрисоединенныеФайлы:  (Регистр сведений: Присоединенные файлы)

	КартинкаСсылка = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка();
	Если Не ТоварКартинка = Неопределено или не ТоварКартинка = "" Тогда
		Если КартинкаСсылка.Пустая() Тогда
			//КартинкаСсылка = Справочники.НоменклатураПрисоединенныеФайлы.НайтиПоНаименованию(НоменклатураОбъект.Код);
		КонецЕсли;
		Если КартинкаСсылка.Пустая() Тогда
			КартинкаОбъект = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
			КартинкаОбъект.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;			
			КартинкаОбъект.Наименование = НоменклатураОбъект.Код;
			КартинкаОбъект.ВладелецФайла = НоменклатураОбъект.Ссылка;
			Соединение=Новый HTTPСоединение("сайт.ру");
			ИмяВременногоФайла=ПолучитьИмяВременногоФайла(".jpg");
			Соединение.Получить("/" + ТоварКартинка,ИмяВременногоФайла);
			К1 = Новый Картинка(ИмяВременногоФайла, истина);
			КартинкаОбъект.ФайлХранилище = Новый ХранилищеЗначения(К1.ПолучитьДвоичныеДанные());

			КартинкаОбъект.Расширение = "jpg";
			КартинкаОбъект.СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
		    ФайлК = Новый Файл(ИмяВременногоФайла);			
			КартинкаОбъект.Размер = ФайлК.Размер();
			
			
			КартинкаОбъект.Записать();
			КартинкаСсылка = КартинкаОбъект.Ссылка; 
			
			КартинкаСохранить = РегистрыСведений.ПрисоединенныеФайлы.СоздатьНаборЗаписей();
			КартинкаСохранить.Отбор.ПрисоединенныйФайл.Установить(КартинкаОбъект.Ссылка);
			НовыйФайл = КартинкаСохранить.Добавить();
			НовыйФайл.ПрисоединенныйФайл = КартинкаСсылка;
			НовыйФайл.ХранимыйФайл = КартинкаОбъект.ФайлХранилище;
			КартинкаСохранить.Записать();
		КонецЕсли;
		НоменклатураОбъект.ФайлКартинки = КартинкаСсылка;
	Иначе
		//НоменклатураОбъект.ФайлКартинки = Справочники.НоменклатураПрисоединенныеФайлы.ПустаяСсылка();
	КонецЕсли;

&НаКлиенте
Процедура ЗагрузитьИзображения()
	МассивКартинок=НайтиФайлы(ПутьКкартинкам,"*.JPG");
	ПомещаемыеФайлы=новый Массив;
	для каждого ф из МассивКартинок цикл
		ПомещаемыеФайлы.Добавить(новый ОписаниеПередаваемогоФайла(ф.полноеимя));
	КонецЦикла;
	ПомещенныеФайлы=новый Массив;
	ПоместитьФайлы(ПомещаемыеФайлы,ПомещенныеФайлы,,Ложь);
	для сч=0 по ПомещенныеФайлы.Количество()-1 цикл
		массивДанных.Добавить(новый Структура("ИмяБезРасширения,Расширение,АдресФайлаВоВременномХранилище",
					сокрлп(МассивКартинок[сч].ИмяБезРасширения),
					сокрлп(МассивКартинок[сч].Расширение),
					ПомещенныеФайлы[сч].Хранение
				));
	КонецЦикла;
	ЗагрузитьИзображенияСервер(массивДанных);
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьИзображенияСервер(МД)
	пустАвтор=Справочники.Пользователи.ПустаяСсылка();
	для каждого элем из МД цикл
		спр=Справочники.Номенклатура.НайтиПоКоду(элем.ИмяБезРасширения);//или какой-либо иной способ сопоставления
		если спр.Пустая() тогда продолжить КонецЕсли;
		ПараметрыФайла=новый Структура("ВладелецФайлов,ИмяБезРасширения,РасширениеБезТочки,Автор,ВремяИзмененияУниверсальное",спр,элем.ИмяБезРасширения,элем.Расширение,пустАвтор,"");
		ПрисоединеннаяКартинка=ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла,элем.АдресФайлаВоВременномХранилище);
	КонецЦикла;
КонецПроцедуры		

&НаКлиенте
Процедура ЗагрузитьКартинки(Команда)
	
	Если Не ЗначениеЗаполнено(ПутьКПапкеКартинок) Тогда
		
		Возврат;
		
	КонецЕсли; 
	
	ФайлыВПапке = НайтиФайлы(ПутьКПапкеКартинок + "\","*.jpg",Истина);
	Для каждого мФайл Из ФайлыВПапке Цикл

		АдресВХ = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(мФайл.ПолноеИмя),Новый УникальныйИдентификатор);
		
		ПоместитьКартинкуНаСервере(мФайл.ИмяБезРасширения,мФайл.Расширение,мФайл.ПолучитьУниверсальноеВремяИзменения(),АдресВХ);		
		
	КонецЦикла;
	
	
КонецПроцедуры

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