интеграция ozone, права доступа УТ 11, отчёт на СКД

ЗаписьPDF.НачатьОткрытие

Методы · BeginOpen

Открывает файл PDF-документа для записи.

Синтаксис

НачатьОткрытие(<ОписаниеОповещения>, <ИмяФайла>)
НачатьОткрытие(<ОписаниеОповещения>, <Поток>)
Полное описание, параметры и ограничения

ЗаписьPDF.НачатьОткрытие (PDFWriter.BeginOpen)

ЗаписьPDF (PDFWriter)

НачатьОткрытие (BeginOpen)

Доступен, начиная с версии 8.3.16.

Вариант синтаксиса: Открыть файл

Синтаксис:
НачатьОткрытие(<ОписаниеОповещения>, <ИмяФайла>)
Параметры:

<ОписаниеОповещения> (обязательный)
Тип: ОписаниеОповещения.
Содержит описание процедуры, которая будет вызвана после завершения операции со следующими параметрами:
<ДополнительныеПараметры> - значение, которое было указано при создании объекта ОписаниеОповещения.

<ИмяФайла> (обязательный)
Тип: Строка.
Имя файла для чтения PDF-документа.
Вариант синтаксиса: Открыть поток

Синтаксис:
НачатьОткрытие(<ОписаниеОповещения>, <Поток>)
Параметры:

<ОписаниеОповещения> (обязательный)
Тип: ОписаниеОповещения.
Содержит описание процедуры, которая будет вызвана после завершения операции со следующими параметрами:
<ДополнительныеПараметры> - значение, которое было указано при создании объекта ОписаниеОповещения.

<Поток> (обязательный)
Тип: Поток, ПотокВПамяти, ФайловыйПоток.
Поток для записи PDF-документа.
Описание:

Открывает файл PDF-документа для записи.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент.

См. также:
ЗаписьPDF, метод Открыть
ЗаписьPDF, метод ОткрытьАсинх

Использование в версии:

Доступен, начиная с версии 8.3.16.

Описание изменено в версии 8.3.18.

Методическая информация

Практические примеры

Добавить JSON оповещениями и прочитать результат

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

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

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

Подготовка

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

  2. Вставьте полный приведённый модуль формы. Функция ПодготовитьСвойPDF находится на сервере, обработчики оповещений — на клиенте и обязательно Экспорт.

  3. Запускайте в тонком или толстом клиенте Windows 8.5.1.1343. Веб-клиент и расширения браузера не входят в подготовку этого урока.

  4. PDF создаётся этим же модулем из одной учебной ячейки. Сервер возвращает только собственные ДвоичныеДанные; файлов, реальных сертификатов и персональных сведений нет.

Перем Выполняется;

&НаКлиенте
Процедура УчебныйПример(Команда)
    Если Выполняется = Истина Тогда
        Сообщить("Дождитесь завершения своего предыдущего PDF-примера");
        Возврат;
    КонецЕсли;
    Данные = ПодготовитьСвойPDF(Ложь);
    Буфер = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Данные);
    Состояние = Новый Структура("Поток,Чтение,Запись", Новый ПотокВПамяти(Буфер), Неопределено, Неопределено);
    Выполняется = Истина;
    Попытка
        Состояние.Запись = Новый ЗаписьPDF;
        Состояние.Запись.НачатьОткрытие(ОповещениеДля("ПослеОткрытияЗаписи", Состояние), Состояние.Поток);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Функция ОповещениеДля(Обработчик, Состояние)
    Возврат Новый ОписаниеОповещения(Обработчик, ЭтотОбъект, Состояние, "ОшибкаОперации", ЭтотОбъект);
КонецФункции

&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
    ОсвободитьРесурсы(Состояние);
    Выполняется = Ложь;
    СтандартнаяОбработка = Истина;
КонецПроцедуры

&НаКлиенте
Процедура ОсвободитьРесурсы(Состояние)
    Если Состояние.Чтение <> Неопределено Тогда
        Попытка
            Состояние.Чтение.Закрыть();
        Исключение
            Сообщить("Не удалось закрыть свой объект чтения PDF: " + ОписаниеОшибки());
        КонецПопытки;
        Состояние.Чтение = Неопределено;
    КонецЕсли;
    Если Состояние.Запись <> Неопределено Тогда
        Попытка
            Состояние.Запись.Закрыть();
        Исключение
            Сообщить("Не удалось закрыть свой объект записи PDF: " + ОписаниеОшибки());
        КонецПопытки;
        Состояние.Запись = Неопределено;
    КонецЕсли;
    Если Состояние.Поток <> Неопределено Тогда
        Попытка
            Состояние.Поток.Закрыть();
        Исключение
            Сообщить("Не удалось закрыть свой поток PDF: " + ОписаниеОшибки());
        КонецПопытки;
        Состояние.Поток = Неопределено;
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПослеОткрытияЗаписи(Состояние) Экспорт
    Попытка
        Вложения = Новый КоллекцияВложенийPDF;
        ТекстJSON = "{""товар"":""Книга"",""количество"":3}";
        БайтыJSON = ПолучитьДвоичныеДанныеИзСтроки(ТекстJSON, КодировкаТекста.UTF8, Ложь);
        Вложения.Добавить("товар.json", БайтыJSON, "application/json", ТипСвязиВложенияPDF.Данные);
        Состояние.Запись.НачатьЗаписьВложений(ОповещениеДля("ПослеЗаписиВложений", Состояние), Вложения);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗаписиВложений(Состояние) Экспорт
    Попытка
        Состояние.Запись.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЗаписи", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЗаписи(Состояние) Экспорт
    Попытка
        Состояние.Запись = Неопределено;
        Состояние.Поток.Перейти(0, ПозицияВПотоке.Начало);
        Состояние.Чтение = Новый ЧтениеPDF;
        Состояние.Чтение.НачатьОткрытие(ОповещениеДля("ПослеОткрытияЧтения", Состояние), Состояние.Поток);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеОткрытияЧтения(Состояние) Экспорт
    Попытка
        Состояние.Чтение.НачатьПолучениеВложений(ОповещениеДля("ПослеПолученияВложений", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеПолученияВложений(Прочитанные, Состояние) Экспорт
    Попытка
        Сообщить(Прочитанные.Количество() = 1);
        ФайлJSON = Прочитанные.Найти("товар.json");
        Если ФайлJSON = Неопределено Тогда
            ВызватьИсключение "Нет собственного вложения после PDF-операции";
        КонецЕсли;
        Текст = ПолучитьСтрокуИзДвоичныхДанных(ФайлJSON.Содержимое, КодировкаТекста.UTF8);
        Сообщить(Текст = "{""товар"":""Книга"",""количество"":3}");
        Состояние.Чтение.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЧтения", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЧтения(Состояние) Экспорт
    Попытка
        Состояние.Чтение = Неопределено;
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        Сообщить("Собственная цепочка PDF завершена, ресурсы освобождены");
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПодготовитьСвойPDF(СВложением)
    Вложения = Новый КоллекцияВложенийPDF;
    ТекстJSON = "{""товар"":""Книга"",""количество"":3}";
    БайтыJSON = ПолучитьДвоичныеДанныеИзСтроки(ТекстJSON, КодировкаТекста.UTF8, Ложь);
    Вложения.Добавить("товар.json", БайтыJSON, "application/json", ТипСвязиВложенияPDF.Данные);
    Если Не СВложением Тогда
        Вложения.Очистить();
    КонецЕсли;
    Документ = Новый ТабличныйДокумент;
    Документ.Область("A1").Текст = "Книга: 3 шт.";
    Поток = Новый ПотокВПамяти;
    Попытка
        Документ.Записать(Поток, ТипФайлаТабличногоДокумента.PDF, Вложения);
        Возврат Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
КонецФункции

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

  1. Сервер создаёт PDF без вложения; клиентский поток содержит именно эти байты.

  2. ПослеОткрытияЗаписи создаёт собственное JSON-вложение и запускает НачатьЗаписьВложений: описание оповещения передаётся первым.

  3. ПослеЗаписиВложений запускает закрытие. Только ПослеЗакрытияЗаписи обнуляет писателя, возвращает позицию потока в начало и запускает читателя.

  4. Читатель проверяет одно имя товар.json и исходный JSON, затем тоже закрывается через оповещение.

  5. Писатель и читатель не работают одновременно с одним потоком. Флаг повторного запуска удерживается на протяжении обеих цепочек.

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

  1. Два сравнения Истина и финальное сообщение об освобождении ресурсов.

  2. В отладчике на момент НачатьОткрытие читателя Состояние.Запись уже Неопределено.

  3. На диске не появляются ни PDF, ни JSON: состояние целиком в памяти.

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

Завершённая асинхронная запись проверена отдельной цепочкой чтения.

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

  1. Факт вызова НачатьЗаписьВложений не означает, что вложение уже записано: дождитесь обработчика завершения.

  2. Нельзя закрывать общий поток в обработчике закрытия писателя, если далее он нужен читателю.

  3. Этот пример не подписывает документ и не добавляет сведения из рабочей базы.

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

Удалить своё вложение цепочкой оповещений

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

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

Полный модуль управляемой формы учебной обработки Windows; удаляется только собственное JSON-вложение PDF в памяти.

Подготовка

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

  2. Вставьте полный приведённый модуль формы. Функция ПодготовитьСвойPDF находится на сервере, обработчики оповещений — на клиенте и обязательно Экспорт.

  3. Запускайте в тонком или толстом клиенте Windows 8.5.1.1343. Веб-клиент и расширения браузера не входят в подготовку этого урока.

  4. PDF создаётся этим же модулем из одной учебной ячейки. Сервер возвращает только собственные ДвоичныеДанные; файлов, реальных сертификатов и персональных сведений нет.

Перем Выполняется;

&НаКлиенте
Процедура УчебныйПример(Команда)
    Если Выполняется = Истина Тогда
        Сообщить("Дождитесь завершения своего предыдущего PDF-примера");
        Возврат;
    КонецЕсли;
    Данные = ПодготовитьСвойPDF(Истина);
    Буфер = ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Данные);
    Состояние = Новый Структура("Поток,Чтение,Запись", Новый ПотокВПамяти(Буфер), Неопределено, Неопределено);
    Выполняется = Истина;
    Попытка
        Состояние.Поток.Перейти(0, ПозицияВПотоке.Начало);
        Заголовок = Новый БуферДвоичныхДанных(8);
        Если Состояние.Поток.Прочитать(Заголовок, 0, 8) <> 8 Тогда
            ВызватьИсключение "Недостаточно байтов для учебного заголовка PDF";
        КонецЕсли;
        СтрокаЗаголовка = ПолучитьСтрокуИзБуфераДвоичныхДанных(Заголовок, КодировкаТекста.UTF8);
        Если СтрокаЗаголовка <> "%PDF-1.5" И СтрокаЗаголовка <> "%PDF-1.6" И СтрокаЗаголовка <> "%PDF-1.7" И СтрокаЗаголовка <> "%PDF-2.0" Тогда
            ВызватьИсключение "Этот учебный PDF не прошёл явную проверку поддерживаемого заголовка: удаление не выполняется";
        КонецЕсли;
        Состояние.Поток.Перейти(0, ПозицияВПотоке.Начало);
        Состояние.Запись = Новый ЗаписьPDF;
        Состояние.Запись.НачатьОткрытие(ОповещениеДля("ПослеОткрытияЗаписи", Состояние), Состояние.Поток);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Функция ОповещениеДля(Обработчик, Состояние)
    Возврат Новый ОписаниеОповещения(Обработчик, ЭтотОбъект, Состояние, "ОшибкаОперации", ЭтотОбъект);
КонецФункции

&НаКлиенте
Процедура ОшибкаОперации(Ошибка, СтандартнаяОбработка, Состояние) Экспорт
    ОсвободитьРесурсы(Состояние);
    Выполняется = Ложь;
    СтандартнаяОбработка = Истина;
КонецПроцедуры

&НаКлиенте
Процедура ОсвободитьРесурсы(Состояние)
    Если Состояние.Чтение <> Неопределено Тогда
        Попытка
            Состояние.Чтение.Закрыть();
        Исключение
            Сообщить("Не удалось закрыть свой объект чтения PDF: " + ОписаниеОшибки());
        КонецПопытки;
        Состояние.Чтение = Неопределено;
    КонецЕсли;
    Если Состояние.Запись <> Неопределено Тогда
        Попытка
            Состояние.Запись.Закрыть();
        Исключение
            Сообщить("Не удалось закрыть свой объект записи PDF: " + ОписаниеОшибки());
        КонецПопытки;
        Состояние.Запись = Неопределено;
    КонецЕсли;
    Если Состояние.Поток <> Неопределено Тогда
        Попытка
            Состояние.Поток.Закрыть();
        Исключение
            Сообщить("Не удалось закрыть свой поток PDF: " + ОписаниеОшибки());
        КонецПопытки;
        Состояние.Поток = Неопределено;
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПослеОткрытияЗаписи(Состояние) Экспорт
    Попытка
        Имена = Новый Массив;
        Имена.Добавить("товар.json");
        Состояние.Запись.НачатьЗаписьУдаленияВложений(ОповещениеДля("ПослеИзмененияPDF", Состояние), Имена);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеИзмененияPDF(Состояние) Экспорт
    Попытка
        Состояние.Запись.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЗаписи", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЗаписи(Состояние) Экспорт
    Попытка
        Состояние.Запись = Неопределено;
        БайтыPDF = Состояние.Поток.ЗакрытьИПолучитьДвоичныеДанные();
        Состояние.Поток = Неопределено;
        Состояние.Вставить("ИтогPDF", БайтыPDF);
        Состояние.Поток = Новый ПотокВПамяти(ПолучитьБуферДвоичныхДанныхИзДвоичныхДанных(Состояние.ИтогPDF));
        Состояние.Поток.Перейти(0, ПозицияВПотоке.Начало);
        Состояние.Чтение = Новый ЧтениеPDF;
        Состояние.Чтение.НачатьОткрытие(ОповещениеДля("ПослеОткрытияЧтения", Состояние), Состояние.Поток);
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеОткрытияЧтения(Состояние) Экспорт
    Попытка
        Состояние.Чтение.НачатьПолучениеВложений(ОповещениеДля("ПослеПолученияВложений", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеПолученияВложений(Прочитанные, Состояние) Экспорт
    Попытка
        Сообщить(Прочитанные.Количество() = 0);
        Состояние.Чтение.НачатьЗакрытие(ОповещениеДля("ПослеЗакрытияЧтения", Состояние));
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗакрытияЧтения(Состояние) Экспорт
    Попытка
        Состояние.Чтение = Неопределено;
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        Сообщить("Собственная цепочка PDF завершена, ресурсы освобождены");
    Исключение
        ОсвободитьРесурсы(Состояние);
        Выполняется = Ложь;
        ВызватьИсключение;
    КонецПопытки;
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПодготовитьСвойPDF(СВложением)
    Вложения = Новый КоллекцияВложенийPDF;
    ТекстJSON = "{""товар"":""Книга"",""количество"":3}";
    БайтыJSON = ПолучитьДвоичныеДанныеИзСтроки(ТекстJSON, КодировкаТекста.UTF8, Ложь);
    Вложения.Добавить("товар.json", БайтыJSON, "application/json", ТипСвязиВложенияPDF.Данные);
    Если Не СВложением Тогда
        Вложения.Очистить();
    КонецЕсли;
    Документ = Новый ТабличныйДокумент;
    Документ.Область("A1").Текст = "Книга: 3 шт.";
    Поток = Новый ПотокВПамяти;
    Попытка
        Документ.Записать(Поток, ТипФайлаТабличногоДокумента.PDF, Вложения);
        Возврат Поток.ЗакрытьИПолучитьДвоичныеДанные();
    Исключение
        Поток.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
КонецФункции

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

  1. Сервер возвращает собственный PDF с одним JSON. Клиент проверяет заголовок перед вызовом НачатьОткрытие писателя.

  2. В ПослеОткрытияЗаписи создаём массив одного имени товар.json и передаём его вторым аргументом НачатьЗаписьУдаленияВложений.

  3. ПослеИзмененияPDF запускает закрытие; до его завершения читатель не открывается.

  4. Новый читатель получает перечень с количеством 0, затем закрывается и освобождает собственный поток.

  5. При неподдержанном заголовке или ошибке флаг запуска сбрасывается после очистки; сообщение об успехе не выводится преждевременно.

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

  1. Для принятого заголовка проверка количества Истина и сообщение о завершении. Для другого заголовка — исключение до изменения.

  2. В массиве удаления только товар.json; пути файловой системы и маски не используются.

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

Удаление имени вложения завершено и проверено самостоятельной цепочкой чтения.

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

  1. Это не обещание физического уничтожения старых байтов внутри PDF.

  2. Третий аргумент с чужим объектом вместо массива имён не нужен и не соответствует этому методу.

  3. Повторный старт допускается только после окончания своей предыдущей цепочки.

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

Ещё примеры по теме

Связанные темы

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

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

Оставить задачу
1c-only | Фриланс © 2026
Политика обработки персональных данных · Пользовательское соглашение
1С, 1С:Предприятие — товарные знаки ООО «1С». Сайт не является официальным представительством фирмы «1С» и не аффилирован с ней.