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

загрузка Фоток в КА 2.4.13

загрузка Фоток в КА 2.4.13
Я
   ChMikle
 
20.01.21 - 16:54
надо программно загрузить фото товаров из каталога , я так понял надо в справочник номенклатура присоединенные файлы создавать подчиненные конкретной Номенклатуре записи , а саму фотку в виде двоичных данных или еще как-то куда писать , ткните носом :) ?
   yzimin
 
1 - 20.01.21 - 16:57
ПараметрыФайла = Новый Структура;
        ПараметрыФайла.Вставить("Автор",                       Автор);
        ПараметрыФайла.Вставить("ВладелецФайлов",              НоменклатураСсылка);
        ПараметрыФайла.Вставить("ИмяБезРасширения",            ИмяБезРасширения);
        ПараметрыФайла.Вставить("РасширениеБезТочки",          РасширениеБезТочки);            
        ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное", ТекущаяУниверсальнаяДата());
        
        ДвоичДанные = Новый ДвоичныеДанные(ЭлементМассива.ПолноеИмя);        
        Адрес = ПоместитьВоВременноеХранилище(ДвоичДанные, Новый УникальныйИдентификатор);
        СсылкаНаСозданныйФайл = ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла, Адрес);
   ChMikle
 
2 - 20.01.21 - 17:04
>>ПрисоединенныеФайлы.
такого модуля нет , ругается
   Chameleon1980
 
3 - 20.01.21 - 17:38
а если глобально поискать:

ДобавитьПрисоединенныйФайл

???
   ChMikle
 
4 - 20.01.21 - 21:31
Нет ни модуля, от процедуры
   ChMikle
 
5 - 20.01.21 - 21:31
Ни процедуры
   hhhh
 
6 - 20.01.21 - 23:53
(5) там просто в очередной раз все модули переименовали. Ищи глубже. Я помню нашел. Но уже не помню где.
   kai17
 
7 - 21.01.21 - 06:50
ПутьПоискаКартинок = "C:\tmp\images\" ; 
ФайлыИзображений = НайтиФайлы(ПутьПоискаКартинок, "*"+Объект.код+"*");
Если ФайлыИзображений.Количество() Тогда 
     ФайлИзображения = ФайлыИзображений[0] ; 
     Если НЕ ФайлИзображения.ЭтоКаталог() Тогда 
        ДвоичныеДанные = Новый ДвоичныеДанные(ФайлИзображения.ПолноеИмя) ; 
        АдресВХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные) ;
        ПараметрыФайла = Новый Структура();
        ПараметрыФайла.Вставить("Автор", ПараметрыСеанса.ТекущийПользователь);
        ПараметрыФайла.Вставить("ВладелецФайлов", Объект.Ссылка);
        ПараметрыФайла.Вставить("ИмяБезРасширения", ФайлИзображения.ИмяБезРасширения);
        ПараметрыФайла.Вставить("РасширениеБезТочки", ФайлИзображения.Расширение);
        ПараметрыФайла.Вставить("ВремяИзмененияУниверсальное");
        ПараметрыФайла.Вставить("ГруппаФайлов");
        Объект.ФайлКартинки = РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, АдресВХранилище) ; 
        Объект.Записать();
    КонецЕсли ; 
КонецЕсли ;
   ChMikle
 
8 - 21.01.21 - 08:01
(7) через пару часов попробую, отпишусь. Спасибо большое!
   ChMikle
 
9 - 21.01.21 - 09:46
+(8) Еще раз спасибо , все получилось

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