Записать учебный штамп в свой PDF синхронным писателем

Проверяем место на собственной странице до открытия записи. Штамп передаётся отдельному ЗаписьPDF, не методу похожего класса ДокументPDF.

Подготовка

1. Работайте только в отдельной своей конфигурации УчебнаяКонфигурацияСинтаксиса, 8.5.1.1343. Исходная таблица Книга / 3 / 250 / 750 создаётся полностью в коде.

2. Для синхронных уроков вставьте полный модуль в серверный общий модуль УчебныеФайлыPDF и вызовите ВыполнитьПример() своей серверной командой. Новый временный файл будет на серверной машине, не обязательно на вашем ПК.

3. Для асинхронного и callback-урока вставьте полный код в модуль управляемой формы внешней обработки. Создайте команду Выполнить, обработчик Выполнить, кнопку. Используйте толстый клиент Windows; файл создаётся на клиентской машине.

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

5. ЗаписьPDF изменяет именно созданный этим запуском файл. Чтение результата начинается после закрытия записи. Файл оставляется пользователю для просмотра и ручного удаления; автоматического удаления нет.

6. Удаление вложений допустимо начиная с PDF 1.5. Пример проверяет первые восемь символов собственного файла перед этой операцией. Для PDF/A-1 или PDF/A-2 произвольные CSV-вложения не подходят.

7. До завершения асинхронной цепочки форму не закрывайте и второй запуск не выполняйте. При ошибке начала шага успех не объявляется. Ни создание пособия, ни его Python-тесты этот код в 1С не выполняют.

Функция СоздатьСобственныеБайты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(Данные)
    Имя = ПолучитьИмяВременногоФайла("pdf");
    Проверка = Новый Файл(Имя);
    Если Проверка.Существует() Тогда
        ВызватьИсключение "Новое имя уже занято: перезапись запрещена";
    КонецЕсли;
    Сообщить("Создаётся только собственный PDF: " + Имя);
    Данные.Записать(Имя);
    Возврат Имя;
КонецФункции

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

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

Процедура ВыполнитьПример() Экспорт
    Данные = СоздатьСобственныеБайтыPDF();
    ПроверитьСвоюСтраницу(Данные);
    Имя = СоздатьСвойФайлPDF(Данные);
    Описание = СоздатьСобственныйШтамп();
    Запись = Новый ЗаписьPDF(Имя);
    Попытка
        Запись.ЗаписатьОтображаемыйОбъект(Описание);
        Запись.Закрыть();
    Исключение
        ОшибкаОперации = ОписаниеОшибки();
        Попытка
            Запись.Закрыть();
        Исключение
            ОшибкаОперации = ОшибкаОперации + Символы.ПС + "Ошибка закрытия: " + ОписаниеОшибки();
        КонецПопытки;
        ВызватьИсключение ОшибкаОперации;
    КонецПопытки;
    Документ = Новый ДокументPDF;
    Документ.Прочитать(Имя);
    Сообщить(Документ.КоличествоСтраниц() > 0);
    Сообщить("Свой PDF со штампом оставлен для ручного просмотра: " + Имя);
КонецПроцедуры

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

1. Получить собственные PDF-байты и проверить наличие и размеры страницы в памяти, не открывая рабочий файл.

2. Создать свой новый файл и полное описание собственного штампа в миллиметрах.

3. Вызвать ЗаписатьОтображаемыйОбъект с единственным описанием. У этого писателя нет дополнительного аргумента учёта ориентации.

4. Закрыть запись, прочитать свой файл и проверить наличие страниц. Внешний вид штампа проверить вручную по выведенному пути.

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

1. После закрытия свой PDF снова читается, количество страниц больше 0: проверка Истина.

2. В собственном файле видны строка книги и штамп ОБРАЗЕЦ — НЕ ДОКУМЕНТ. Структурная проверка сама по себе этого не доказывает.

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

Настоящая синхронная операция отдельного PDF-писателя на файле, принадлежащем этому запуску.

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

1. Не переносите сигнатуру ДобавитьОтображаемыйОбъект другого класса в ЗаписатьОтображаемыйОбъект.

2. Штамп — изображение собственного табличного документа, не электронная подпись.

3. Не используйте путь рабочего PDF. Созданный файл оставлен для ручного удаления пользователем.

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