Сохранить архив учебного отчёта с собственным маленьким файлом

Создаём новый временный текстовый файл с Книгой и количеством 3, прикладываем его к отчёту и сохраняем интерактивно в другой новый временный файл.

Подготовка

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

2. Запускайте в тонком клиенте Windows или поддерживаемом толстом клиенте. Здесь не пример мобильного сервера: методы записи/отправки отчёта по справке клиентские.

3. Создаётся только контролируемое исключение с учебным сообщением. Не провоцируйте аварийное завершение 1С и не подменяйте его реальной рабочей ошибкой, содержащей персональные данные.

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

5. Этот урок реально создаёт два собственных временных файла при ручном запуске в 1С. Каталог определяется клиентом; не заменяйте пути файлом рабочей базы, выгрузкой или документами сотрудников.

6. В интерактивном окне проверьте состав и подтвердите только собственный учебный отчёт. Содержимое архива может зависеть от политики: после сохранения откройте архив вручную и проверьте учебное вложение. Метод не гарантирует фиксированные имена файлов внутри архива.

&НаКлиенте
Процедура ВыполнитьПример(Команда)
    ПутьТекста = ПолучитьИмяВременногоФайла("txt");
    ТекстовыйФайл = Новый Файл(ПутьТекста);
    Если ТекстовыйФайл.Существует() Тогда
        ВызватьИсключение "Временный путь уже занят; существующий файл не перезаписываем";
    КонецЕсли;
    Запись = Новый ЗаписьТекста(ПутьТекста, КодировкаТекста.UTF8);
    Попытка
        Запись.ЗаписатьСтроку("Учебная книга;Количество=3;Ключ=guide-book");
    Исключение
        Запись.Закрыть();
        ВызватьИсключение;
    КонецПопытки;
    Запись.Закрыть();
    Отчет = СоздатьСобственныйУчебныйОтчет();
    Отчет.Описание = "Только собственный учебный текстовый файл; не рабочие документы";
    Если Отчет.ДополнительныеФайлы.Количество() <> 0 Тогда
        ВызватьИсключение "Есть неожиданные вложения; архив не сохраняем";
    КонецЕсли;
    Отчет.ДополнительныеФайлы.Добавить(ПутьТекста);
    Сообщить(Отчет.ДополнительныеФайлы.Количество() = 1);
    ПутьАрхива = ПолучитьИмяВременногоФайла("zip");
    Архив = Новый Файл(ПутьАрхива);
    Если Архив.Существует() Тогда
        ВызватьИсключение "Путь архива уже занят; существующий файл не перезаписываем";
    КонецЕсли;
    Отчет.Записать(ПутьАрхива, Истина);
    Если Архив.Существует() Тогда
        Сообщить("Архив создан: " + ПутьАрхива);
        Сообщить("Размер архива в байтах: " + Строка(Архив.Размер()));
    Иначе
        Сообщить("По заданному пути архив не создан; возможны отмена или другой результат интерактивной формы");
    КонецЕсли;
    Сообщить("Собственное вложение сохранено здесь: " + ПутьТекста);
КонецПроцедуры

&НаКлиенте
Функция СоздатьСобственныйУчебныйОтчет()
    Попытка
        ВызватьИсключение "Учебная ошибка проверки книги guide-book";
    Исключение
        Информация = ИнформацияОбОшибке();
        Возврат Новый ОтчетОбОшибке(Информация);
    КонецПопытки;
КонецФункции

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

1. ПолучитьИмяВременногоФайла даёт новый путь, затем проверяем отсутствие существующего файла. Эта проверка не является защитой от конкурентного захвата пути; упражнение выполняется одним пользователем в собственной базе.

2. ЗаписьТекста пишет ровно одну учебную строку UTF-8. Закрытие в обоих исходах завершает работу с текстовым файлом.

3. ДополнительныеФайлы только для чтения как свойство, но возвращает изменяемый Массив. Добавляем в него путь, не новый массив и не содержимое рабочего файла.

4. Записать(ПутьАрхива, Истина) показывает интерактивную форму. Отмена не выдаётся за успешное сохранение: после возврата проверяем наличие файла.

5. Архив, вложение и дополнительные категории данных проверяйте вручную. Размер архива не равен длине JSON или размеру единственного вложения.

6. Пример не удаляет файлы автоматически, чтобы их можно было проверить. После опыта удалите вручную только эти два собственных временных файла по напечатанным путям.

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

1. Один собственный путь в ДополнительныеФайлы; перед обоими записями существующие файлы не найдены.

2. После подтверждения откройте созданный архив и проверьте собственную строку Книга/Количество=3. При отмене код не сообщает фиктивный размер несуществующего архива.

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

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

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

1. Добавление произвольного пути может раскрыть содержимое этого файла. Прикладывайте только созданный здесь учебный текст.

2. Наличие архива не доказывает корректность и полноту его содержимого. Проверка архива отдельная.

3. Временный каталог не означает автоматическое немедленное удаление: завершите уборку только собственных файлов вручную.

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