Процедура ВыгрузитьИзображенияНоменклатуры(ПараметрыОбмена, ИмяКаталога, Владелец, лМенеджерВременныхТаблиц, ВыборкаНоменклатуры, ОписаниеФайлов, ВыгруженоКартинок, МассивКартинок)
Запрос = Новый Запрос;
запрос.МенеджерВременныхТаблиц = лМенеджерВременныхТаблиц;
Запрос.Текст = "ВЫБРАТЬ *
|ИЗ
| ВремКартинки КАК ВремКартинки
| ГДЕ ВремКартинки.Номенклатура = &Номенклатура";
Запрос.УстановитьПараметр("Номенклатура", ВыборкаНоменклатуры.Номенклатура);
РезультатЗапроса = Запрос.Выполнить();
// отото ишем картинку в папке +++
МойКаталог = "\\aroma.local\dfs\Docs\Богатырев\ЖПГ\";
ИмяКартинки = ВыборкаНоменклатуры.Номенклатура.Код;
МойМассивКартинок = НайтиФайлы(МойКаталог, "*.*");
сч=1;
//НайтиФайлы("C:\Users\egor\Desktop\foto\", "*.*").Найти(СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_1");
НайденныеФайлы = НайтиФайлы("\\aroma.local\dfs\Docs\Богатырев\ЖПГ\", "*.*");
ТЗФайлов = новый ТаблицаЗначений;
ТЗФайлов.Колонки.Добавить("Имя");
ТЗФайлов.Колонки.Добавить("Расширение");
Для каждого стр из НайденныеФайлы цикл
НС = ТЗФайлов.Добавить();
нс.Имя = стр.ИмяБезРасширения;
нс.Расширение = стр.Расширение;
КонецЦикла;
//Для каждого Файл Из НайденныеФайлы цикл
//Если Найти(ТЗФайлов, СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_1") > 0 тогда
//Прервать;
//КонецЕсли;
//КонецЦикла;
Пока не ТЗФайлов.Найти(СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_"+сч)=Неопределено цикл
ПоискКартинки = ТЗФайлов.Найти(СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_"+сч);
ПутьНаименованиеКартинки = МойКаталог+СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_"+сч+ПоискКартинки.Расширение;
МоеИмяКартинки =СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_"+сч;
// отото-----------------------------
//Если НЕ РезультатЗапроса.Пустой() Тогда
ВыборкаКартинок = РезультатЗапроса.Выбрать();
тзнКартинок = Новый ТаблицаЗначений;
тзнКартинок.Колонки.Добавить("Картинка");
тзнКартинок.Колонки.Добавить("НадоВыгружать");
тзнКартинок.Колонки.Добавить("Основная");
ОсновнаяКартинка = ВыборкаНоменклатуры.ОсновноеИзображение;
Пока ВыборкаКартинок.Следующий() Цикл
ТекКартинка = ВыборкаКартинок.ХранилищеСсылка;
МассивКартинок.Добавить(ТекКартинка);
НовСтр = тзнКартинок.Добавить();
НовСтр.Картинка = ТекКартинка;
НовСтр.НадоВыгружать = ВыборкаКартинок.НадоВыгружать;
Если ТекКартинка = ОсновнаяКартинка тогда
НовСтр.Основная = Истина;
иначе
НовСтр.Основная = Ложь;
КонецЕсли;
КонецЦикла;
тзнКартинок.Сортировать("Основная Убыв");
//Для Каждого КартинкаДляВыгрузки Из тзнКартинок Цикл
АдресКартинки = ВыгрузитьКартинку(ПараметрыОбмена, ИмяКаталога, ВыборкаНоменклатуры.Номенклатура,ПутьНаименованиеКартинки,МоеИмяКартинки );//КартинкаДляВыгрузки.Картинка, КартинкаДляВыгрузки.НадоВыгружать);
Если ЗначениеЗаполнено(АдресКартинки) Тогда
ОписаниеКартинки = СокрЛП(ВыборкаНоменклатуры.Номенклатура.Код)+"_"+сч;//СокрЛП(КартинкаДляВыгрузки.Картинка.Наименование);
Владелец.Картинка.Добавить(АдресКартинки);
//Если НЕ ПустаяСтрока(ОписаниеКартинки) И НЕ КартинкаДляВыгрузки.Основная Тогда
ОписаниеФайлов.Вставить(АдресКартинки, ОписаниеКартинки);
//КонецЕсли;
ВыгруженоКартинок = ВыгруженоКартинок + 1;
КонецЕсли;
//КонецЦикла;
//КонецЕсли;
сч= сч+1;
КонецЦикла;
КонецПроцедуры
Процедура ВыгрузитьФайлыНоменклатуры(ПараметрыОбмена, ИмяКаталога, Владелец, лМенеджерВременныхТаблиц, ВыборкаНоменклатуры, Файлы, ОписаниеФайлов, ВыгруженоФайлов, МассивФайлов)
Запрос = Новый Запрос;
запрос.МенеджерВременныхТаблиц = лМенеджерВременныхТаблиц;
Запрос.Текст = "ВЫБРАТЬ *
|ИЗ
| ВремФайлы КАК ВремФайлы
| ГДЕ ВремФайлы.Номенклатура = &Номенклатура";
Запрос.УстановитьПараметр("Номенклатура", ВыборкаНоменклатуры.Номенклатура);
РезультатЗапроса = Запрос.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
ВыборкаФайлов = РезультатЗапроса.Выбрать();
тзнФайлов = Новый ТаблицаЗначений;
тзнФайлов.Колонки.Добавить("Файл");
тзнФайлов.Колонки.Добавить("НадоВыгружать");
Пока ВыборкаФайлов.Следующий() Цикл
ТекФайл = ВыборкаФайлов.ХранилищеСсылка;
МассивФайлов.Добавить(ТекФайл);
НовСтр = тзнФайлов.Добавить();
НовСтр.Файл = ТекФайл;
НовСтр.НадоВыгружать = ВыборкаФайлов.НадоВыгружать;
КонецЦикла;
Для Каждого ФайлДляВыгрузки Из тзнФайлов Цикл
АдресФайла = ВыгрузитьФайл(ПараметрыОбмена, ИмяКаталога, ВыборкаНоменклатуры.Номенклатура, ФайлДляВыгрузки.Файл, ФайлДляВыгрузки.НадоВыгружать);
Если ЗначениеЗаполнено(АдресФайла) Тогда
ОписаниеФайла = СокрЛП(ФайлДляВыгрузки.Файл.Наименование);
Файлы.Добавить(АдресФайла);
Если НЕ ПустаяСтрока(ОписаниеФайла) Тогда
ОписаниеФайлов.Вставить(АдресФайла, ОписаниеФайла);
КонецЕсли;
ВыгруженоФайлов = ВыгруженоФайлов + 1;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры
Функция ВыгрузитьКартинку(ПараметрыОбмена, ИмяКаталога, Номенклатура, ПутьНаименованиеКартинки,МоеИмяКартинки)//ХранилищеСсылка, НадоВыгружать)
Результат = НеОпределено;
//Если НЕ ЗначениеЗаполнено(ХранилищеСсылка) Тогда
// Возврат Результат;
//КонецЕсли;
Картинка = новый Картинка(ПутьНаименованиеКартинки);//ХранилищеСсылка.Хранилище.Получить();
Если ТипЗнч(Картинка) <> Тип("Картинка") Тогда
Возврат Результат;
КонецЕсли;
ФорматКартинкиРазрешен = Истина;
РасширениеФайлаКартинки = "";
Попытка
ФорматКартинкиОбъекта = Картинка.Формат();
Исключение
ФорматКартинкиОбъекта = ФорматКартинки.НеизвестныйФормат;
КонецПопытки;
Если ФорматКартинкиОбъекта = ФорматКартинки.НеизвестныйФормат Тогда
ФорматКартинкиРазрешен = Ложь;
Иначе
Если НЕ (ФорматКартинкиОбъекта = ФорматКартинки.GIF
ИЛИ ФорматКартинкиОбъекта = ФорматКартинки.JPEG
ИЛИ ФорматКартинкиОбъекта = ФорматКартинки.PNG) Тогда
Попытка
ФорматКартинкиОбъекта = Картинка.Преобразовать(ФорматКартинки.JPEG);
Исключение
Б_ОбщиеПроцедурыИФункцииОбменаССайтом.СообщитьПодробно("Не удалось преобразовать формат картинки. Номенклатура: " + Номенклатура + ". Преобразование из " + Строка(ФорматКартинкиОбъекта) + " в JPEG", ПараметрыОбмена);
Возврат Результат;
КонецПопытки;
КонецЕсли;
РасширениеФайлаКартинки = Строка(ФорматКартинкиОбъекта);
КонецЕсли;
Если НЕ ФорматКартинкиРазрешен Тогда
Б_ОбщиеПроцедурыИФункцииОбменаССайтом.СообщитьПодробно("Формат основного изображения неизвестен или запрещен. Номенклатура: " + Номенклатура, ПараметрыОбмена);
Возврат Результат;
КонецЕсли;
ИмяПоНоменклатуре = Строка(Номенклатура.УникальныйИдентификатор());
ИмяПоХранилищу = ПутьНаименованиеКартинки;//Строка(ХранилищеСсылка.УникальныйИдентификатор()); //отото
ИмяФайлаКартинки = ИмяПоНоменклатуре+"_"+МоеИмяКартинки + "." + НРег(РасширениеФайлаКартинки);//ИмяПоНоменклатуре + "_" + ИмяПоХранилищу + "." + НРег(РасширениеФайлаКартинки);
КаталогПоИмени = "d3";//Лев(ИмяПоНоменклатуре, 2);
КаталогКартинки = Б_ОбщиеПроцедурыИФункцииОбменаССайтом.ПолучитьПутьДляПлатформы(ПараметрыОбмена.ПлатформаWindows, (ИмяКаталога + "\" + ПараметрыОбмена.ПодкаталогФайлов + "\" + КаталогПоИмени));
НадоВыгружать = истина;
Если НадоВыгружать тогда
СоздатьКаталог(КаталогКартинки);
ПолноеИмяФайлаКартинки = Б_ОбщиеПроцедурыИФункцииОбменаССайтом.ПолучитьПутьДляПлатформы(ПараметрыОбмена.ПлатформаWindows, (КаталогКартинки + "\" + ИмяФайлаКартинки));
Попытка
Картинка.Записать(ПолноеИмяФайлаКартинки);
Исключение
Б_ОбщиеПроцедурыИФункцииОбменаССайтом.СообщитьПодробно("Не удалось записать файл картинки на диск. Номенклатура: " + Номенклатура, ПараметрыОбмена);
Возврат Результат;
КонецПопытки;
КонецЕсли;
Результат = ПараметрыОбмена.ПодкаталогФайлов + "/" + КаталогПоИмени + "/" + ИмяФайлаКартинки;
Возврат Результат;
|
