1С 8.3 Вывод картинки на макет
Данные > Примеры кода 1С > 1С 8.3 Табличный документ / Макет
Перейти в основной раздел:
Вывести картинку PNG в Табличный документ в 1С 8.3:
Процедура ВывестиКартинкуВМакетПриПечати(ТаблДок, СтрокаМатериалы, ОбластьСтрокаТаблицы) // Экспорт
// В свойствах ячейки Параметра ФотоМатериала - на вкладке Макет ПараметрКартинки указать ФотоМатериала
// шрифт Параметра в ячейке делаем Белым, чтобы не было видно "Картинка"
ФайлPNG = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(
Справочники.Номенклатура.НайтиПоНаименованию(СтрокаМатериалы.Номенклатура), "ФайлPNG");
Если ЗначениеЗаполнено(ФайлPNG.Наименование) Тогда
ДвоичныеДанныеФайла = РаботаСФайлами.ДвоичныеДанныеФайла(ФайлPNG);
Если ТипЗнч(ДвоичныеДанныеФайла) = Тип("Картинка") Тогда
КартинкаPNG = ДвоичныеДанныеФайла;
ИначеЕсли ТипЗнч(ДвоичныеДанныеФайла) = Тип("ДвоичныеДанные") Тогда
КартинкаPNG = Новый Картинка(ДвоичныеДанныеФайла);
Иначе
КартинкаPNG = Новый Картинка;
КонецЕсли;
ОбластьСтрокаТаблицы.Параметры.ФотоМатериала = КартинкаPNG;
КонецЕсли;
ТаблДок.Вывести(ОбластьСтрокаТаблицы);
КонецПроцедуры
// В свойствах ячейки Параметра ФотоМатериала - на вкладке Макет ПараметрКартинки указать ФотоМатериала
// шрифт Параметра в ячейке делаем Белым, чтобы не было видно "Картинка"
ФайлPNG = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(
Справочники.Номенклатура.НайтиПоНаименованию(СтрокаМатериалы.Номенклатура), "ФайлPNG");
Если ЗначениеЗаполнено(ФайлPNG.Наименование) Тогда
ДвоичныеДанныеФайла = РаботаСФайлами.ДвоичныеДанныеФайла(ФайлPNG);
Если ТипЗнч(ДвоичныеДанныеФайла) = Тип("Картинка") Тогда
КартинкаPNG = ДвоичныеДанныеФайла;
ИначеЕсли ТипЗнч(ДвоичныеДанныеФайла) = Тип("ДвоичныеДанные") Тогда
КартинкаPNG = Новый Картинка(ДвоичныеДанныеФайла);
Иначе
КартинкаPNG = Новый Картинка;
КонецЕсли;
ОбластьСтрокаТаблицы.Параметры.ФотоМатериала = КартинкаPNG;
КонецЕсли;
ТаблДок.Вывести(ОбластьСтрокаТаблицы);
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник