загрузка картинки товара программно

Question

Есть код, все работает кроме загрузки товара, пишет ошибку При добавлении файла C:\Users\С1\AppData\Local\Temp\v8_3EE0_49.jpg произошла ошибка {ОбщийМодуль.РаботаСФайлами.Модуль(596)}: Ошибка при добавлении присоединенного файла "v8_3EE0_49.jpg":
Не заполнен владелец в файле
"v8_3EE0_49". Пытаюсь заполнить владельца, ничего не получается....[1C-CODE]&НаСервере
Процедура СоздатьНоменклатуру()
	chislo = 0;
	
	Для Каждого строка из Объект.Товары Цикл
		
		Если Объект.КлючПоиска = "1" Тогда
			НайденаНоменклатура =  Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",строка.Артикул);
		КонецЕсли;
		
		Если Объект.КлючПоиска = "2" Тогда
			НайденаНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(строка.Наименование);
		КонецЕсли;
		
		//Если Объект.КлючПоиска = "3" Тогда
		//	НайденаНоменклатура = Справочники.Номенклатура.НайтиПоКоду("");
		//КонецЕсли;
		
		Если НайденаНоменклатура.Пустая() Тогда
			НоваяНомеклатура = Справочники.Номенклатура.СоздатьЭлемент();
		Иначе
			Если Объект.ПерезаписатьДубли Тогда
				НоваяНомеклатура = НайденаНоменклатура.ПолучитьОбъект();
			Иначе
				Продолжить;
			КонецЕсли;	
		КонецЕсли;	
		
		НоваяНомеклатура.Наименование = строка.Наименование;
		НоваяНомеклатура.НаименованиеПолное = строка.Наименование;
		НоваяНомеклатура.Артикул = строка.Артикул;
		НоваяНомеклатура.ЕдиницаИзмерения = Справочники.УпаковкиЕдиницыИзмерения.НайтиПоНаименованию(строка.ЕдиницаИзмерения);
		НоваяНомеклатура.ЕдиницаДляОтчетов = Справочники.УпаковкиЕдиницыИзмерения.НайтиПоНаименованию(строка.ЕдиницаИзмерения);
		НоваяНомеклатура.Производитель = НайтиПроизводителя(строка.Производитель);
		НоваяНомеклатура.Родитель = НайтиРодителя(строка.Группа);
		НоваяНомеклатура.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Товар", Истина);
		ССЫЛКА = строка.Изображение ;
		chislo = chislo + 1; 
		НоваяНомеклатура.Записать();
		сообщить("успешно");
		СтрАдрес = строка.Изображение ;
		ПутьФайла = ПолучитьИмяВременногоФайла("jpg") ;
		КопироватьФайл(СтрАдрес, ПутьФайла );
		
		

//// вот тут начинаю работать с картинкой 			
	Попытка		
		НачатьТранзакцию();
		
		ФайлИзображения = новый Файл(ПутьФайла);
		Если ФайлИзображения.Существует() Тогда
			ДвоичныеДанные = Новый ДвоичныеДанные(ПутьФайла);
			АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
			
			Если ЗначениеЗаполнено(НоваяНомеклатура.ФайлКартинки) Тогда
				ИнформацияОФайле = Новый Структура;                           
				ИнформацияОФайле.Вставить("АдресФайлаВоВременномХранилище",АдресВременногоХранилищаФайла);
				ИнформацияОФайле.Вставить("АдресВременногоХранилищаТекста","");
				ИнформацияОФайле.Вставить("ИмяБезРасширения"              ,ФайлИзображения.ИмяБезРасширения);
				ИнформацияОФайле.Вставить("ДатаМодификацииУниверсальная"  ,ТекущаяДата());
				ИнформацияОФайле.Вставить("Расширение"                    ,СтрЗаменить(ФайлИзображения.Расширение,".",""));
				ИнформацияОФайле.Вставить("ВладелецФайла", НоваяНомеклатура);
				
				ПрисоединенныеФайлы.ОбновитьПрисоединенныйФайл(НоваяНомеклатура.ФайлКартинки,ИнформацияОФайле);
				ЗафиксироватьТранзакцию();
				Сообщить("УСПЕШНО загружено изображение в "+НоваяНомеклатура);
			Иначе 
				ПрисоединенныйФайл = ПрисоединенныеФайлы.ДобавитьФайл(НоваяНомеклатура,ФайлИзображения.ИмяБезРасширения,СтрЗаменить(ФайлИзображения.Расширение,".",""),ТекущаяДата(),ТекущаяДата(),АдресВременногоХранилищаФайла,"Изображение загружено обработкой по данным файла Excel");
				
				Если ЗначениеЗаполнено(ПрисоединенныйФайл) Тогда
					НоменклатураОбъект = НоваяНомеклатура.ПолучитьОбъект();
					НоменклатураОбъект.ФайлКартинки = ПрисоединенныйФайл;
					
					
					НоменклатураОбъект.Записать();
					ЗафиксироватьТранзакцию();
					Сообщить("УСПЕШНО загружено изображение в "+НоваяНомеклатура);
				Иначе
					Сообщить("Не удалось добавить в базу файл "+ПутьФайла);
					ОтменитьТранзакцию();
				КонецЕсли;
				
			КонецЕсли;
			
		Иначе
			Сообщить("Файл "+ПутьФайла+" не найден");
			ОтменитьТранзакцию();
		КонецЕсли;
	Исключение
		Сообщить("При добавлении файла "+ПутьФайла+" произошла ошибка "+ОписаниеОшибки());
		ОтменитьТранзакцию();
	КонецПопытки;

	КонецЦикла;	
	КонецПроцедуры	

[/1C-CODE]

Accepted Answer

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