Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

не сохраняется картинка номенклатуры

не сохраняется картинка номенклатуры
Я
   Pyryrym
 
08.08.20 - 19:10
1С 8,3 УТ11

У меня  есть таблица наименования и фото номенклатуры, по которой надо обновить базу (установить у указанных артикулов новое изображение)процедура вызывается каждый раз для каждой строки. Причем алгоритм установки фото - копировать в папку Files, установить из нее на номенклатуру.
После выполнения файлы в Files нормальные, однако в форме номенклатуры пишется
Изображение <не указано>
Файлы(1)

если открыть файлы, то там будут пустые файлы, которые нельзя открыть по причине "Двоичные данные удалены, Возможно файл очищен как ненужны, или удален антивирусной программой, при этом туда можно добавить файлы вручную.

Собственно вопрос, как прикрепить изображение к номенклатуре, что бы он отображался на форме элемента номенклатуры?




&НаСервере
Процедура ДобавитьФото(Строка)
    
    АдресИзображения = "C:\Files\" + Строка.Наименование + ".jpg";
    КопироватьФайл(Строка.Изображение, АдресИзображения);
    
    Попытка
        МояКартинка = Новый Картинка(АдресИзображения);
        ХранилищеКартинки = Новый ХранилищеЗначения(МояКартинка);
        
        НовоеИзображение = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
        НовоеИзображение.Автор = Пользователи.ТекущийПользователь();
        НовоеИзображение.ДатаСоздания = ТекущаяДата();
        НовоеИзображение.ФайлХранилище = ХранилищеКартинки;
        НовоеИзображение.ВладелецФайла = Справочники.Номенклатура.НайтиПоНаименованию(Строка.Наименование);
        НовоеИзображение.Записать();
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = "Не удалось загрузить изображение к " + Строка.Наименование + ОписаниеОшибки();
        Сообщение.Сообщить();
    КонецПопытки;    
КонецПроцедуры
   osa1C
 
1 - 08.08.20 - 19:57
   runoff_runoff
 
2 - 08.08.20 - 21:03
РаботаСФайлами.СоздатьФайлНаОсновеФайлаНаДиске()

Список тем форума
Рекламное место пустует  Рекламное место пустует
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.