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

Отзывов (2)FavoriteLoadingВ закладки

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

 

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

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

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

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

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

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

 

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

google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru

2 Коммент.

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

  2. Если речь идет об отчете то где-то так (область макета “Изображение – пустая группа строк достаточной высоты, подбирается при тестировании):

    мТекущееОсновноеИзображение = ПрисоединенныйФайл_Объект; // (у меня) Номенклатура.ОсновноеИзображение.Хранилище;

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

Оставить комментарий

RSSКомментарии в RSS

Авторизация

Логин:
Пароль:
Регистрация

Архивы

Закладки

  • Your favorites will be here.