V
vladimir_n
Печатаем jpg картинки из документа 1С. Имена файлов с картинками хранятся в табличной части документа. При формировании печатной формы картинки загружаются поочередно (jpg файлы лежат на сервере). При выводе на печать отображает только картинки к 10 строкам документа, для остальных строк - белые листы.
в форме документа:
"Картинка.Загрузить(СокрЛП(ФайлОбраза2));"
В таблице вставлен объект "Картинка", в свойства объекта запуск функции "ОбразСертификата(СертТаб.ТекущийОбъект)", ФайлОбраза - строка с именем картинки
Процедура ОбразСертификата(Картинка)
// ФайлОбраза="C:\Картинки\проба.bmp";
Если СокрЛП(ФайлОбраза)<>"" Тогда
Если ФС.СуществуетФайл(СокрЛП(ФайлОбраза))=0 Тогда
Сообщить("На диске отсутствует образ сертификата "+СокрЛП(ФайлОбраза)+" !","!");
Возврат;
КонецЕсли;
Картинка.Загрузить(СокрЛП(ФайлОбраза));
Конецесли;
КонецПроцедуры
в форме документа:
"Картинка.Загрузить(СокрЛП(ФайлОбраза2));"
В таблице вставлен объект "Картинка", в свойства объекта запуск функции "ОбразСертификата(СертТаб.ТекущийОбъект)", ФайлОбраза - строка с именем картинки
Процедура ОбразСертификата(Картинка)
// ФайлОбраза="C:\Картинки\проба.bmp";
Если СокрЛП(ФайлОбраза)<>"" Тогда
Если ФС.СуществуетФайл(СокрЛП(ФайлОбраза))=0 Тогда
Сообщить("На диске отсутствует образ сертификата "+СокрЛП(ФайлОбраза)+" !","!");
Возврат;
КонецЕсли;
Картинка.Загрузить(СокрЛП(ФайлОбраза));
Конецесли;
КонецПроцедуры