1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

печать сертификатов

Тема в разделе "Базы данных и администрирование", создана пользователем vladimir_n, 22 июн 2007.

Статус темы:
Закрыта.
  1. vladimir_n

    vladimir_n Гость

    Репутация:
    0
    Печатаем jpg картинки из документа 1С. Имена файлов с картинками хранятся в табличной части документа. При формировании печатной формы картинки загружаются поочередно (jpg файлы лежат на сервере). При выводе на печать отображает только картинки к 10 строкам документа, для остальных строк - белые листы.

    в форме документа:
    "Картинка.Загрузить(СокрЛП(ФайлОбраза2));"

    В таблице вставлен объект "Картинка", в свойства объекта запуск функции "ОбразСертификата(СертТаб.ТекущийОбъект)", ФайлОбраза - строка с именем картинки

    Процедура ОбразСертификата(Картинка)
    // ФайлОбраза="C:\Картинки\проба.bmp";
    Если СокрЛП(ФайлОбраза)<>"" Тогда
    Если ФС.СуществуетФайл(СокрЛП(ФайлОбраза))=0 Тогда
    Сообщить("На диске отсутствует образ сертификата "+СокрЛП(ФайлОбраза)+" !","!");
    Возврат;
    КонецЕсли;
    Картинка.Загрузить(СокрЛП(ФайлОбраза));
    Конецесли;
    КонецПроцедуры
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей