Имя: Пароль:
1C
1С v8
не сохраняется картинка номенклатуры
0 Pyryrym
 
08.08.20
19:10
1С 8,3 УТ11

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

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

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




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