Добрый день возник вопрос.
Есть 1с с авто-альфа.
Задача выгрузить товар и картинки на сайт.
Есть стандартная выгрузка она выгружает товар на сайт цены и картинки к товару, но не выгружает картинки разделов.
Раздел приходит вот так
Код |
---|
<Группа>
<Ид>85d09bca-0166-11e6-80f3-001999ef1bb7</Ид>
<Наименование>Сопутствующие товары</Наименование>
</Группа>
|
Как я понимаю должно быть вот так
Код |
---|
<Группа>
<Ид>85d09bca-0166-11e6-80f3-001999ef1bb7</Ид>
<Наименование>Сопутствующие товары</Наименование>
<Картинка>import_files/56/56944960-93a7-11e3-80be-001999ef1bb7.jpeg</Картинка>
</Группа>
|
приходит товар
Код |
---|
<Товар>
<Ид>56944960-93a7-11e3-80be-001999ef1bb7</Ид>
<Артикул>406</Артикул>
<Наименование>Кронштейн-крепление баллона 100-130 л.</Наименование>
<Производитель>БАЖ</Производитель>
<БазоваяЕдиница Код="ЦБ000296" НаименованиеПолное="Штука" МеждународноеСокращение="PCE">шт</БазоваяЕдиница>
<Группы>
<Ид>a79b96aa-0243-11e6-80f3-001999ef1bb7</Ид>
</Группы>
<Картинка>import_files/56/56944960-93a7-11e3-80be-001999ef1bb7.jpeg</Картинка>
<ЗначенияРеквизитов>
<ЗначениеРеквизита>
<Наименование>ВидНоменклатуры</Наименование>
<Значение>Товар</Значение>
</ЗначениеРеквизита>
<ЗначениеРеквизита>
<Наименование>ТипНоменклатуры</Наименование>
<Значение>Товар</Значение>
</ЗначениеРеквизита>
<ЗначениеРеквизита>
<Наименование>Полное наименование</Наименование>
<Значение>Кронштейн универсальный 100-130 л.(Воронеж)</Значение>
</ЗначениеРеквизита>
<ЗначениеРеквизита>
<Наименование>Вес</Наименование>
<Значение>0</Значение>
</ЗначениеРеквизита>
</ЗначенияРеквизитов>
</Товар> |
Вопрос такой как сделать чтобы отправлялась картинка раздела?
В модуле интеграции я нашел
Код |
---|
Процедура ВыгрузитьОсновныеРеквизитыГруппыДляКлассификатора(ОбъектCML, Группа)
ИдГруппы = СформироватьИдентификаторТовара(Группа.Ссылка);
ЗаписатьТекстовойУзел(ОбъектCML, "Ид", ИдГруппы);
ИмяГруппы = Группа.Наименование;
ЗаписатьТекстовойУзел(ОбъектCML, "Наименование", ФорматНаименованияДляCML(ИмяГруппы));
КонецПроцедуры
|
И нашел вот это
Код |
---|
Функция ВыгрузитьКартинку(Номенклатура, КаталогНаДиске);
СтруктураРезультата = Новый Структура();
СтруктураРезультата.Вставить("Адрес", "");
СтруктураРезультата.Вставить("Формат", Строка(ФорматКартинки.НеизвестныйФормат));
СтруктураРезультата.Вставить("Размер", "0");
// Получим картинку
НаборКартинок = РегистрыСведений.КартинкиИФайлы.СоздатьНаборЗаписей();
НаборКартинок.Отбор.Объект.Установить(Номенклатура);
НаборКартинок.Прочитать();
Если ( НаборКартинок.Количество() = 0 ) Тогда
Возврат СтруктураРезультата;
Иначе
Картинка = НаборКартинок[0].Данные.Получить();
КонецЕсли;
Если ( ТипЗнч(Картинка) <> Тип("Картинка") ) Тогда
Возврат СтруктураРезультата;
КонецЕсли;
Попытка
ФорматКартинкиОбъекта = Картинка.Формат();
Если ( ФорматКартинкиОбъекта = ФорматКартинки.НеизвестныйФормат ) Тогда
СообщитьПользователю("У товара обнаружено основное изображение неизвестного формата: " + Номенклатура, Истина, СтатусСообщения.Информация, 1);
Возврат СтруктураРезультата;
КонецЕсли;
ФорматКартинкиРазрешен = Истина;
Если ( НЕ (ФорматКартинкиОбъекта = ФорматКартинки.GIF
ИЛИ ФорматКартинкиОбъекта = ФорматКартинки.JPEG
ИЛИ ФорматКартинкиОбъекта = ФорматКартинки.PNG) ) Тогда
Попытка
ФорматКартинкиОбъекта = Картинка.Преобразовать(ФорматКартинки.JPEG);
Исключение
СообщитьОбИсключительнойОшибке(Истина, "Не удалось преобразовать картинку для " + Номенклатура + " из " + Строка(ФорматКартинкиОбъекта) + " в JPEG");
ФорматКартинкиРазрешен = Ложь;
КонецПопытки;
КонецЕсли;
Если ( НЕ ФорматКартинкиРазрешен ) Тогда Возврат СтруктураРезультата; КонецЕсли;
Исключение
СообщитьОбИсключительнойОшибке(Истина, "Не удалось выгрузить картинку для товара: " + Номенклатура + " " + ОписаниеОшибки());
ФорматКартинкиРазрешен = Ложь;
КонецПопытки;
РасширениеФайлаКартинки = "." + НРег(Строка(ФорматКартинкиОбъекта));
ИмяФайлаКартинки = Строка(Номенклатура.УникальныйИдентификатор()) + РасширениеФайлаКартинки;
КаталогПоИмени = Лев(ИмяФайлаКартинки, 2);
КаталогКартинки = КаталогНаДиске + "\" + ПодкаталогКартинок + "\" + КаталогПоИмени;
СоздатьКаталог(КаталогКартинки);
ПолноеИмяФайлаКартинки = КаталогКартинки + "\" + ИмяФайлаКартинки;
ФайлКартинкиНаДиске = Новый Файл(ПолноеИмяФайлаКартинки);
Картинка.Записать(ПолноеИмяФайлаКартинки);
СтруктураРезультата.Адрес = ПодкаталогКартинок + "/" + КаталогПоИмени + "/" + ИмяФайлаКартинки;
СтруктураРезультата.Формат = Строка(ФорматКартинкиОбъекта);
СтруктураРезультата.Размер = Формат(ФайлКартинкиНаДиске.Размер(), "ЧГ=");
Возврат СтруктураРезультата;
КонецФункции
|
Вопрос как сделать выгрузку картинок раздела?