Вывод картинок в отчёте.
☑
0
MAPATNK2
naïve
09.09.21
✎
16:36
УТ 10.3
Всем привет.
Добавил в макет отчета параметр "КартинкаПоз", заполняю его просто
Секция.Параметры.КартинкаПоз = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
Как сделать так, чтобы теперь в отчете отображалась сама картинка, а не слово "Картинка" как сейчас?
1
PLUT
гуру
09.09.21
✎
16:38
2
MAPATNK2
naïve
09.09.21
✎
17:40
(1) Спасибо, почитал, но не смог разобраться, как именно в нужной ячейке выводить картинку. Напротив Номенклатуры. Писал так
Попытка
Секция = Макет.ПолучитьОбласть("СтрокаГруппировки|КолонкаИзоб");
КартинкаТовара = Секция.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Если ТипЗнч(СтруктураЗначений) <> Тип("Структура") Тогда
КартинкаТовара.Картинка = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
Иначе
КартинкаТовара.Картинка = СтруктураЗначений.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
КонецЕсли;
Секция.ТекущаяОбласть.ЦветФона = ТекущийЦвет;
КартинкаТовара.Верх = 0;
КартинкаТовара.Высота = 80;
КартинкаТовара.Ширина = 80;
КартинкаТовара.Лево = 50;
КартинкаТовара.ГраницаСверху = Ложь;
КартинкаТовара.ГраницаСлева = Ложь;
КартинкаТовара.ГраницаСправа = Ложь;
КартинкаТовара.ГраницаСнизу = Ложь;
КартинкаТовара.РазмерКартинки = РазмерКартинки.АвтоРазмер;
Исключение
//Секция.Параметры.КартинкаПоз = "";
КонецПопытки;
ОбластьЯчеекТаблицы = Таб.Присоединить(Секция, РеальныйИндексТекущейГруппировки);
Но картинка появляется где то внизу отчета.
3
MAPATNK2
naïve
09.09.21
✎
17:44
Может что то не так написал. Вроде по аналогии делал....
4
MAPATNK2
naïve
09.09.21
✎
18:28
UP
5
MAPATNK2
naïve
09.09.21
✎
18:29
(2) Тут, кстати, если удалить следующий текст
КартинкаТовара.Верх = 0;
КартинкаТовара.Высота = 80;
КартинкаТовара.Ширина = 80;
КартинкаТовара.Лево = 50;
Картинка вообще пропадает
6
MAPATNK2
naïve
09.09.21
✎
19:07
В итоге сделал так.
Секция1 = Макет.ПолучитьОбласть("СтрокаГруппировки|КолонкаИзоб");
КартинкаТовара = Секция1.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Если ТипЗнч(СтруктураЗначений) <> Тип("Структура") Тогда
КартинкаТовара.Картинка = Выборка.Номенклатура.ОсновноеИзображение.Хранилище.Получить();
Иначе
КартинкаТовара.Картинка = неопределено;
КонецЕсли;
КартинкаТовара.Высота=35;
КартинкаТовара.Ширина=45;
КартинкаТовара.РазмерКартинки = РазмерКартинки.АвтоРазмер;
ОбластьЯчеекТаблицы = Таб.Присоединить(Секция1,);
Плюс в колонках и строках подобрал нужную ширину и высоту, чтобы картинки влазили.
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс