Добрый день, подскажите пожалуйста как вывести картинку номенклатуры в печатную форму? УНФ 1.6
Добрый день, делаю печатную форму.
Есть таблица с колонками "Номенклатура", Код", "Картинка".
Подскажите пожалуйста, как можно получить картинку номенклатуры и вывести в ячейке "Картинка"? Заранее спасибо
Пытаюсь сделать так, но изображение всегда равно неопределено, хотя картинка в базе есть
Стр.ФайлКартинкиФайлХранилище = Номенклатура.ФайлКартинки.ФайлХранилище;
Есть таблица с колонками "Номенклатура", Код", "Картинка".
Подскажите пожалуйста, как можно получить картинку номенклатуры и вывести в ячейке "Картинка"? Заранее спасибо
Пытаюсь сделать так, но изображение всегда равно неопределено, хотя картинка в базе есть
Стр.ФайлКартинкиФайлХранилище = Номенклатура.ФайлКартинки.ФайлХранилище;
Изображение = Стр.ФайлКартинкиФайлХранилище.Получить();
Если Изображение = Неопределено Тогда
СтрокаМакета = "СтрокаБезКартинки";
Иначе
СтрокаМакета = "СтрокаСКартинкой";
КонецЕсли;
Если Не Изображение = Неопределено Тогда
ОбластьСтрока.Рисунки["Изображение"].Картинка = Изображение;
КонецЕсли;
ТабличныйДокумент.Вывести(ОбластьСтрока);
ПоказатьПрикрепленные файлы:

Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
В УНФ 1.6 делал так
Получается что картинка вставляется в ячейку Табдок.
з=Новый Запрос("ВЫБРАТЬ
| НоменклатураПрисоединенныеФайлы.Ссылка КАК Ссылка
|ИЗ
| Справочник.НоменклатураПрисоединенныеФайлы КАК НоменклатураПрисоединенныеФайлы
|ГДЕ
| НоменклатураПрисоединенныеФайлы.ВладелецФайла = &ВладелецФайла
| И НоменклатураПрисоединенныеФайлы.Наименование = ""Для прайса""");
З.УстановитьПараметр("ВладелецФайла",ВыборкаНоменклатура.Номенклатура);
//Картинка = ВыборкаНоменклатура.Номенклатура.ФайлКартинки;
р=з.Выполнить().Выбрать();
Если р.Следующий() тогда
Картинка=р.Ссылка;
Иначе
Картинка="";
КонецЕсли;
ОблКартинка = ТабДокМатрица.Область("R"+Формат(НачИнд, "ЧГ=")+"C1:R"+Формат(КонИнд, "ЧГ=") +"C1");
//ОблКартинка.ГраницаСправа = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.НетЛинии);
//ОблКартинка.ГраницаСнизу = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.НетЛинии, 2);
ОблКартинка.Объединить();
Если ЗначениеЗаполнено(Картинка) Тогда
Попытка
ДвоичныеДанныеКартинки = УправлениеНебольшойФирмойСервер.СсылкаНаДвоичныеДанныеФайла(Картинка,);
ДвДанные =ПолучитьИзВременногоХранилища(ДвоичныеДанныеКартинки);
КартинкаДок = Новый Картинка(ДвДанные);
ОблКартинка.Картинка = КартинкаДок;
ОблКартинка.РазмерКартинки=РазмерКартинки.Пропорционально;
линия=Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная);
ОблКартинка.Обвести(линия,линия,линия,линия);
Исключение
КонецПопытки;
КонецЕсли;
ПоказатьПолучается что картинка вставляется в ячейку Табдок.
Например
Область = Макет.Получить("СтрокаТаблицы");
Для каждого стр Из ДанныеТаблицы Цикл
Область.Параметры.Заполнить(стр);
Область.Рисунки.ИмяКартинки.Картинка = стр.КартинкаДок;
ТабДок.Вывести(Область);
КонецЦикла;
Прикрепленные файлы:

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот