Sergey_Demchuk
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ссылка
|ПОМЕСТИТЬ ВТ_Номенклатура
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.ЭтоГруппа = ЛОЖЬ
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ХранилищеДополнительнойИнформации.Хранилище,
| ВТ_Номенклатура.Ссылка.Код Как Код
|ИЗ
| Справочник.ХранилищеДополнительнойИнформации КАК ХранилищеДополнительнойИнформации
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_Номенклатура КАК ВТ_Номенклатура
| ПО ХранилищеДополнительнойИнформации.Объект = ВТ_Номенклатура.Ссылка
|ГДЕ
| ХранилищеДополнительнойИнформации.ВидДанных = &ВидДанных";
Запрос.УстановитьПараметр("ВидДанных", Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
ТекущееОсновноеИзображение = Выборка.Хранилище.Получить();
Если ТекущееОсновноеИзображение.Вид <> ВидКартинки.Пустая Тогда
ПутьИмяФайла="C:\1\"+Строка(Выборка.Код)+".jpg";
ТекущееОсновноеИзображение.Записать(ПутьИмяФайла);
Сообщить(ПутьИмяФайла);
КонецЕсли;
КонецЦикла;
|
