Вывод картинки в отчёт “Прайс-лист” для УТ 11

Здравствуйте. Бьюсь над такой задачей: нужно в стандартный прайс УТ 11 добавить поле, где бы выводилась картинка номенклатуры. К сожалению, не хватает опыта понять, как это сделать. Создал форму отчёта, в модуле пишу запрос на выборку картинок:

 

Процедура ВыбратьКартинкуИзПрисоединенныхФайлов(Команда)

Запрос = Новый Запрос(
“ВЫБРАТЬ
|    НоменклатураПрисоединенныеФайлы.Ссылка
|ИЗ
|    Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
|ГДЕ
|    НоменклатураПрисоединенныеФайлы.ПометкаУдаления = ЛОЖЬ
|    И НоменклатураПрисоединенныеФайлы.Зашифрован = ЛОЖЬ
|    И НоменклатураПрисоединенныеФайлы.ТипХраненияФайла = ЗНАЧЕНИЕ(Перечисление.ТипыХраненияФайлов.ВТомахНаДиске)”);

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл

УникИдентификатор = Выборка.Ссылка.УникальныйИдентификатор();
ДанныеФайла = ПрисоединенныеФайлы.ПолучитьДанныеФайла(Выборка.Ссылка, УникИдентификатор);
ПрисоединенныйФайл_Объект = Выборка.Ссылка.ПолучитьОбъект();

КонецЦикла;
КонецПроцедуры

 

Ну допустим, выбрать картинки я выбрал. А вот как их теперь запихнуть в отчёт? Помогите пожалуйста.

Подписаться
Уведомить о
guest
2 комментариев
Старые
Новые Популярные
Межтекстовые Отзывы
Посмотреть все комментарии
Данилюк Андрей
Данилюк Андрей
11 лет назад

На стороне сервера формируете табдок.
ОбластьСтрока.Рисунки.ИзображениеНоменклатуры.Картинка = КартинкаТовара где у КартинкаТовара тип Картинка

sergefox
sergefox
11 лет назад

Если речь идет об отчете то где-то так (область макета “Изображение – пустая группа строк достаточной высоты, подбирается при тестировании):
мТекущееОсновноеИзображение = ПрисоединенныйФайл_Объект; // (у меня) Номенклатура.ОсновноеИзображение.Хранилище;
ОбластьМакетаИзображение = тМакет.ПолучитьОбласть(“ИзображениеТовара”);
АспектКартинки = ОпределитьАспектКартинки(мТекущееОсновноеИзображение);
РисунокТовара = ОбластьМакетаИзображение.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
текВысота = РисунокТовара.Высота;
РисунокТовара.Ширина = АспектКартинки * текВысота;
РисунокТовара.РазмерКартинки = РазмерКартинки.Пропорционально;
РисунокТовара.ГраницаСлева = Ложь;
РисунокТовара.ГраницаСправа = Ложь;
РисунокТовара.ГраницаСверху = Ложь;
РисунокТовара.ГраницаСнизу = Ложь;
РисунокТовара.Защита = Истина;
Индекс=ОбластьМакетаИзображение.Рисунки.Индекс(РисунокТовара);
ОбластьМакетаИзображение.Рисунки[Индекс].Картинка = мТекущееОсновноеИзображение.Получить();
//ТабДокумент.Рисунки[Индекс].Расположить(ТабДокумент.Область(“ИзображениеТовара”));
ОбластьМакетаИзображение.Рисунки[Индекс].Расположить(ОбластьМакетаИзображение.Область(“R1C3:R10C4”));
тиТабДок.Вывести(ОбластьМакетаИзображение);