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

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

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