&НаСервереБезКонтекста
Процедура ПолучитьФайлыНаСервере()
ном=Справочники.Номенклатура.НайтиПоКоду("1534 ");
сообщить(ном.ФайлКартинки);
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| НоменклатураПрисоединенныеФайлы.Ссылка КАК Ссылка,
| НоменклатураПрисоединенныеФайлы.ПутьКФайлу КАК ПутьКФайлу,
| НоменклатураПрисоединенныеФайлы.ТипХраненияФайла КАК ТипХраненияФайла,
| НоменклатураПрисоединенныеФайлы.Том КАК Том,
| НоменклатураПрисоединенныеФайлы.ФайлХранилище КАК ФайлХранилище
|ИЗ
| Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
|ГДЕ
| НоменклатураПрисоединенныеФайлы.ВладелецФайла.Ссылка = &ном" ;
Запрос.УстановитьПараметр("ном", ном);
файлы=Запрос.Выполнить().Выбрать();
n=0;
Пока файлы.Следующий() Цикл
сообщить(файлы.ПутьКФайлу);
сообщить(файлы.ТипХраненияФайла);
сообщить(файлы.Том);
сообщить(файлы.ФайлХранилище);
картинка=ПрисоединенныеФайлы.ПолучитьДвоичныеДанныеФайла(файлы.Ссылка);
картинка.Записать("c:\temp\"+n+".jpg");
n=n+1;
конеццикла;
КонецПроцедуры
&НаКлиенте
Процедура ПолучитьФайлыКлиент(Команда)
ПолучитьФайлыНаСервере();
КонецПроцедуры
krana-ot-2018-05-16-17-04-37.png»>