Сохранить таблицу в PDF и проверить MXL без файлов

Подготавливаем страницу, записываем PDF в память, затем сохраняем MXL и проверяем числовую ячейку после обратного чтения.

Подготовка

1. Выполняйте на сервере учебной базы Windows. Публикация, физический принтер и внешние файлы не нужны.

2. Потоковая запись и чтение доступны не для всех форматов. Этот пример читает обратно именно MXL, а не PDF или XLSX.

ТабДок = Новый ТабличныйДокумент;
ТабДок.Область(1, 1).Текст = "Учебный остаток";
ТабДок.Область(2, 1).Текст = "Книга";
Ячейка = ТабДок.Область(2, 2);
Ячейка.СодержитЗначение = Истина;
Ячейка.Значение = 3;
Ячейка.Формат = "ЧДЦ=0; ЧГ=0";
ТабДок.Область(, 1, , 1).ШиринаКолонки = 30;
ТабДок.РазмерСтраницы = "A4";
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
ТабДок.ПолеСлева = 10;
ТабДок.ПолеСправа = 10;
ТабДок.ПолеСверху = 15;
ТабДок.ПолеСнизу = 15;
ТабДок.АвтоМасштаб = Истина;
Поток = Неопределено;
Чтение = Неопределено;
Попытка
    Поток = Новый ПотокВПамяти;
    ТабДок.Записать(Поток, ТипФайлаТабличногоДокумента.PDF);
    PDF = Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Поток = Неопределено;
    Если Лев(ПолучитьHexСтрокуИзДвоичныхДанных(PDF), 8) <> "25504446" Тогда
        ВызватьИсключение "Нет сигнатуры %PDF в начале документа";
    КонецЕсли;
    Сообщить(СтрШаблон("PDF: %1 байт", PDF.Размер()));
    Поток = Новый ПотокВПамяти;
    ТабДок.Записать(Поток, ТипФайлаТабличногоДокумента.MXL);
    MXL = Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Поток = Неопределено;
    Чтение = MXL.ОткрытьПотокДляЧтения();
    Копия = Новый ТабличныйДокумент;
    Копия.Прочитать(Чтение, , ТипФайлаТабличногоДокумента.MXL);
    Чтение.Закрыть();
    Чтение = Неопределено;
    Сообщить(Копия.Область(2, 1).Текст);
    Сообщить(Копия.Область(2, 2).Значение);
    Если Копия.Область(2, 2).Значение <> 3 Тогда
        ВызватьИсключение "Числовая ячейка не восстановилась";
    КонецЕсли;
Исключение
    Если Чтение <> Неопределено Тогда
        Чтение.Закрыть();
    КонецЕсли;
    Если Поток <> Неопределено Тогда
        Поток.Закрыть();
    КонецЕсли;
    ВызватьИсключение;
КонецПопытки;

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

1. Создаём таблицу с текстом и числом, задаём A4, ориентацию и поля в миллиметрах.

2. PDF записывается в отдельный поток памяти. Полученные данные должны начинаться байтами %PDF.

3. В новом потоке сохраняем MXL — собственный формат табличного документа.

4. Читаем MXL в другой ТабличныйДокумент, проверяем текст и исходное числовое значение. Все потоки закрываем.

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

1. PDF имеет ненулевой размер и сигнатуру Hex 25504446. Это проверка формата, не визуального расположения страницы.

2. После чтения MXL: текст Книга, числовое значение 3; свойства исходного документа не подменяются строковым представлением.

3. Измените число на 7 и контрольное значение тоже на 7: после обратного чтения должно сохраниться 7.

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

Созданы двоичные PDF и MXL в памяти; MXL успешно прошёл предусмотренную самопроверку при выполнении урока.

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

1. Запуск данного BSL в 1С ещё не проверялся. При ошибке PDF проверьте доступность формата, шрифтов и особенности серверного окружения.

2. Сигнатура PDF не доказывает, что документ красиво выглядит: итоговую печатную форму проверяйте визуально.

3. Для передачи PDF клиенту нужны отдельные механизмы передачи файлов; двоичные данные на сервере не открываются у пользователя сами.

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