Пример вывода картинок в отчете на СКД.
Разработка - Работа с интерфейсом
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Для вывода картинок в строки используется процедура в модуле объекта отчета:
Процедура пп_ЗаполнитьКартинки(ДокументРезультат, НастройкиОтчета, ДанныеРасшифровки)
КоличествоСтрок = ДокументРезультат.ВысотаТаблицы;
КоличествоКолонок = ДокументРезультат.ШиринаТаблицы;
ВысотаСтроки = НастройкиОтчета.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ВысотаКолонкиИзображения")).Значение;
ШиринаКолонки = НастройкиОтчета.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ШиринаКолонкиИзображения")).Значение;
Для СтрокаДокумента = 1 По КоличествоСтрок Цикл
Для КолонкаДокумента = 1 По КоличествоКолонок Цикл
Область = ДокументРезультат.Область(СтрокаДокумента, КолонкаДокумента);
Расшифровка = Область.Расшифровка;
Если ТипЗнч(Расшифровка) = Тип("ИдентификаторРасшифровкиКомпоновкиДанных") Тогда
ПоляРасшифровки = ДанныеРасшифровки.Элементы.Получить(Расшифровка).ПолучитьПоля();
//Найденное поле необходимо заменить на нужное вам поле
НайденноеПоле = ПоляРасшифровки.Найти("Номенклатура.ov_ПутьККартинке");
Если НайденноеПоле <> Неопределено Тогда
ПутьККартинке = НайденноеПоле.Значение;
Если ЗначениеЗаполнено(ПутьККартинке) Тогда
Картинка = Новый Картинка(ПутьККартинке);
Изображение = ДокументРезультат.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
Изображение.Картинка = Картинка;
Изображение.РазмерКартинки = РазмерКартинки.АвтоРазмер;
Область.АвтоВысотаСтроки = Ложь;
Область.ВысотаСтроки = ВысотаСтроки;
Область.ШиринаКолонки = ШиринаКолонки;
Изображение.Расположить(Область);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Результат работы отчета:
Высота и ширина колонки изображения для удобства задается пользователем через параметры. Единственный нюанс данного отчета в том, что он разрабатывался для конфигурации, где в справочник "Номенклатура" добавлен реквизит, в котором хранится путь к файлу картинки, хранение файлов внутри базы не используется. Для работы данного отчета в типовой конфигурации необходимо изменить переменную "НайденноеПоле" в процедуре вывода картинок для поиска нужного значения.
Работоспособность данного отчета проверялась на доработанной УТ 11.4.8.92.
Вступайте в нашу телеграмм-группу Инфостарт
