Имя: Пароль:
1C
 
Помогите найти ошибку, программное присоединение файла в УТ11
0 picom
 
06.09.17
07:22
Спр = Справочники.Номенклатура.НайтиПоКоду(Код) ;
    Сообщить ("Код "+Код+" Эл нашли "+Спр) ;
    
    КартинкаОбъект = Справочники.НоменклатураПрисоединенныеФайлы.СоздатьЭлемент();
    КартинкаОбъект.ДатаМодификацииУниверсальная = ТекущаяДата() ;
    КартинкаОбъект.ДатаСоздания = ТекущаяДата() ;
    КартинкаОбъект.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВИнформационнойБазе;            
    КартинкаОбъект.Наименование = ссылкаиз;
    КартинкаОбъект.ВладелецФайла = Спр;
    
    Соединение=Новый HTTPСоединение("сайт.ру");
    ИмяВременногоФайла=ПолучитьИмяВременногоФайла(".jpg");
    ТоварКартинка = СтрЗаменить(ссылкаиз,"http://сайт.ру/","";) ;    
    Соединение.Получить("/" + ТоварКартинка,ИмяВременногоФайла);
    К1 = Новый Картинка(ИмяВременногоФайла, истина);
    КартинкаОбъект.ФайлХранилище = Новый ХранилищеЗначения(К1.ПолучитьДвоичныеДанные());
    
    КартинкаОбъект.Расширение = "jpg";
    КартинкаОбъект.СтатусИзвлеченияТекста = Перечисления.СтатусыИзвлеченияТекстаФайлов.НеИзвлечен;
    ФайлК = Новый Файл(ИмяВременногоФайла);            
    КартинкаОбъект.Размер = ФайлК.Размер();
    
    //Сообщить(ФайлК.Путь) ;
    
    КартинкаОбъект.Записать();
    КартинкаСсылка = КартинкаОбъект.Ссылка;
    //
    КартинкаСохранить = РегистрыСведений.ПрисоединенныеФайлы.СоздатьМенеджерЗаписи();
    КартинкаСохранить.ПрисоединенныйФайл = КартинкаСсылка;
    КартинкаСохранить.ХранимыйФайл = КартинкаОбъект.ФайлХранилище;
    КартинкаСохранить.Записать();    

....
Все добавляется в номенклатуру, но при попытке открыть пишет "Ошибка доступа к файлу"
Что я делаю на так?
1 picom
 
06.09.17
07:26
Сорян, разобрался, в имени файла недопустимые символы )