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