@Gytim

Добавить картинку к номенклатуре?

1С 8.3 УТ11.4
Картинка куда-то пропадает
609d83e497675464268438.png

Добавил вообще все поля какие только возможно
&НаСервере
Процедура ЗагрузитьКартинкуНаСервере(Код1С)
		Номенклатура = Справочники.Номенклатура.НайтиПоКоду(Код1С);		
		ДвоичныеДанные =  Новый ДвоичныеДанные("C:\test\650.jpeg"); //Получаю картинку все ОК, размер есть

		ТекДата = ТекущаяДата();		

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

		ПрисоединенныйФайл.Наименование = "650"; 
		ПрисоединенныйФайл.Расширение = "jpeg";
		ПрисоединенныйФайл.Размер = ДвоичныеДанные.Размер();

		ПрисоединенныйФайл.Редактирует = ТекДата;	

		ПрисоединенныйФайл.Изменил = Пользователи.ТекущийПользователь();

		
		ПрисоединенныйФайл.СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
			
		Попытка	
			ПрисоединенныйФайл.Записать(); 			
		Исключение
			Сообщить("При добавлении файла C:\test\650.jpeg произошла ошибка "+ОписаниеОшибки());
			Возврат;
		КонецПопытки;

		ДвоичныеДанные.Записать("C:\test\res_image.jpeg"); //Тут все сохраняет красиво в файл обратно
	
КонецПроцедуры


Подскажите пожалуйста что может быть?
Все вроде бы создалось, к номенклатуре привязалось, но изображения нет.
  • Вопрос задан
  • 1763 просмотра
Решения вопроса 1
Fragster
@Fragster
помогло? отметь решением!
Комментировать
Пригласить эксперта
Ответы на вопрос 1
@Gytim Автор вопроса
Как в итоге вышло у меня
ИмяФайла - Строка, Название файла без типа
ДвоичныеДанные - это мой файл
Номенклатура - Справочники.Номенклатура.НайтиПоКоду(Код1С)
//кусочек начало...
		НоменклатураОбъект = Номенклатура.ПолучитьОбъект();

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

		ПараметрыФайла.Вставить("Служебный", Ложь);	

		АдресВременногоХранилищаФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
		ПрисоединенныйФайл = РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, АдресВременногоХранилищаФайла, "", "", Неопределено);
	
		НоменклатураОбъект.ФайлКартинки = ПрисоединенныйФайл;
		
		НоменклатураОбъект.Записать();

//...кусочек конец

Я еще и в карточку товара добавляю
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы
22 нояб. 2024, в 03:54
1500 руб./за проект
22 нояб. 2024, в 02:56
10000 руб./за проект
22 нояб. 2024, в 00:55
500 руб./за проект