1С:Предприятие :: 1С:Предприятие 8 общая

загрузка Фоток в КА 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 или кнопку "Обновить" в браузере.