1С Розница 2.2, сохранить присоединенные к номенклатуре картинки
Присоединенные к номенклатуре файлы можно выгрузить например так:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
&НаСервереБезКонтекста Процедура ПолучитьФайлыНаСервере() ном=Справочники.Номенклатура.НайтиПоКоду("1534 "); сообщить(ном.ФайлКартинки); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | НоменклатураПрисоединенныеФайлы.Ссылка КАК Ссылка, | НоменклатураПрисоединенныеФайлы.ПутьКФайлу КАК ПутьКФайлу, | НоменклатураПрисоединенныеФайлы.ТипХраненияФайла КАК ТипХраненияФайла, | НоменклатураПрисоединенныеФайлы.Том КАК Том, | НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище |ИЗ | Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы |ГДЕ | НоменклатураПрисоединенныеФайлы.ВладелецФайла.Ссылка = &ном" ; Запрос.УстановитьПараметр("ном", ном); файлы=Запрос.Выполнить().Выбрать(); n=0; Пока файлы.Следующий() Цикл сообщить(файлы.ПутьКФайлу); сообщить(файлы.ТипХраненияФайла); сообщить(файлы.Том); сообщить(файлы.ФайлХранилище); картинка=ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(файлы.Ссылка); картинка.Записать("c:\temp\"+n+".jpg"); n=n+1; конеццикла; КонецПроцедуры &НаКлиенте Процедура ПолучитьФайлыКлиент(Команда) ПолучитьФайлыНаСервере(); КонецПроцедуры |