Открыть свой PDF со штампом для настоящей визуальной проверки

Учебные задачи

Полный модуль формы получает собственный PDF с сервера, добавляет учебный штамп и открывает именно этот объект без назначения рабочего файла.

Где и как запускать

Полный модуль собственной управляемой формы внешней обработки, толстый клиент Windows 8.5.1.1343.

Подготовка

  1. Создайте отдельную собственную конфигурацию УчебнаяКонфигурацияСинтаксиса и внешнюю обработку с управляемой формой. Команда Выполнить связана с процедурой Выполнить, кнопка вызывает эту команду.

  2. Вставьте полный модуль одного урока на уровне модуля формы, не внутрь существующего обработчика. Серверная функция создаёт собственную таблицу Книга / 3 / 250 / 750 и возвращает настоящие PDF-байты.

  3. Используйте толстый клиент Windows платформы 8.5.1.1343. Серверу необходима возможность экспортировать табличный документ в PDF. Веб-клиент и его расширения этим уроком не проверяются.

  4. Окна имеют префикс guide-owned; закрывайте вручную только эти окна. Показать передаётся пустое имя файла, поэтому рабочий файл для автосохранения не назначается.

  5. Во время асинхронной операции не закрывайте форму и не запускайте второй экземпляр операции. Ждать означает ожидание завершения обещания, а не получение готового документа без ожидания.

  6. Только урок печати требует строковый реквизит формы Подтверждение. Печать разрешается отдельной фразой и обязательным диалогом, в котором пользователь сам выбирает собственное тестовое устройство или отменяет.

  7. При подготовке пособия эти окна и печать в 1С не запускались: проверки структуры не являются доказательством внешнего вида или физического вывода.

Перем СобственныйPDF;

&НаСервереБезКонтекста
Функция СоздатьСобственныеБайтыPDF()
    Таблица = Новый ТабличныйДокумент;
    Таблица.КодЯзыка = "ru";
    Таблица.Область(1, 1).Текст = "СОБСТВЕННЫЙ УЧЕБНЫЙ ОБРАЗЕЦ";
    Таблица.Область(2, 1).Текст = "Книга";
    Таблица.Область(2, 2).Текст = "3";
    Таблица.Область(2, 3).Текст = "250";
    Таблица.Область(2, 4).Текст = "750";
    Таблица.Область(1, 1, 2, 4).ЦветФона = Новый Цвет(255, 255, 210);
    Таблица.Область(, 1, , 1).ШиринаКолонки = 45;
    Поток = Новый ПотокВПамяти;
    Попытка
        Таблица.Записать(Поток, ТипФайлаТабличногоДокумента.PDF);
        Данные = Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Возврат Данные;
КонецФункции

&НаКлиенте
Функция ПрочитатьСобственныйДокумент(Данные)
    Поток = Данные.ОткрытьПотокДляЧтения();
    Попытка
        Документ = Новый ДокументPDF;
        Документ.Прочитать(Поток);
        Поток.Закрыть();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Возврат Документ;
КонецФункции

&НаКлиенте
Функция СоздатьСобственныйШтамп()
    ТаблицаШтампа = Новый ТабличныйДокумент;
    ТаблицаШтампа.КодЯзыка = "ru";
    ТаблицаШтампа.Область(1, 1).Текст = "ОБРАЗЕЦ — НЕ ДОКУМЕНТ";
    ТаблицаШтампа.Область(1, 1).ЦветФона = Новый Цвет(210, 240, 255);
    Описание = Новый ОписаниеОтображаемогоОбъектаPDF;
    Описание.Имя = "guide-owned-stamp";
    Описание.Объект = ТаблицаШтампа;
    Описание.НомерСтраницы = 1;
    Описание.Лево = 10;
    Описание.Верх = 45;
    Описание.Ширина = 60;
    Описание.Высота = 10;
    Возврат Описание;
КонецФункции

&НаКлиенте
Процедура Выполнить(Команда)
    Данные = СоздатьСобственныеБайтыPDF();
    СобственныйPDF = ПрочитатьСобственныйДокумент(Данные);
    Если СобственныйPDF.КоличествоСтраниц() = 0 Тогда
        ВызватьИсключение "Нет собственной страницы для штампа";
    КонецЕсли;
    Первая = СобственныйPDF.Страницы.Получить(0);
    Если Первая.Ширина < 80 Или Первая.Высота < 65 Тогда
        ВызватьИсключение "Собственная страница меньше учебного прямоугольника";
    КонецЕсли;
    Описание = СоздатьСобственныйШтамп();
    СобственныйPDF.ДобавитьОтображаемыйОбъект(Описание, Истина);
    СобственныйPDF.Показать("guide-owned: Книга и учебный штамп", "");
КонецПроцедуры

Разбор по шагам

  1. Вызвать серверную функцию, которая создаёт только собственную таблицу. Получить двоичные данные через клиент-серверную границу.

  2. Прочитать PDF в клиентский объект и проверить наличие и размеры первой страницы. Поток чтения закрывается.

  3. Добавить собственный табличный штамп с номером страницы 1 и координатами в мм.

  4. Сохранить объект в переменной модуля формы и вызвать Показать с собственным заголовком и пустым именем файла.

Как проверить результат

  1. Открывается окно guide-owned: Книга и учебный штамп. Видны Книга, 3, 250, 750 и синий штамп ОБРАЗЕЦ — НЕ ДОКУМЕНТ.

  2. Проверьте первую страницу и читаемость текста вручную. При закрытии не должен предлагаться заранее заданный рабочий путь из этого кода.

Ожидаемый результат

Есть полный образец ручной проверки собственного PDF в интерфейсе, а не вывод о внешнем виде по размеру файла.

На что обратить внимание

  1. Показать открывает интерфейс и не подтверждает, что пользователь действительно прочитал страницу.

  2. Пустое имя файла не запрещает пользователю самостоятельно воспользоваться Сохранить; это отсутствие заданного пути, не режим безопасности.

  3. Штамп не является электронной подписью. Не заменяйте свою таблицу рабочим счётом, договором или документом.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.

Не хотите разбираться сами?

Адаптируем это решение под вашу базу. Оценка бесплатно.

Оставить задачу

1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.