Имя: Пароль:
1C
1С v8
Как сохранить отчет в файл на мобильная платформа
0 Admin_Net_1C
 
13.02.22
09:21
Добрый день народ.
Требуется помощь гуру по мобильной платформе. Имеется: мобильная платформа 8.3.18.1363, самописная конфигурация.
Есть заполненный ТабличныйДокумент. Нужно его сохранить в файл на мобильном устройстве.
Никак не могу понять, как правильно это делается.

Мой код:

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


на последней строке получаю ошибку что файл не найден по пути (ПутьКФайлу)
1 Admin_Net_1C
 
13.02.22
09:48
Разобрался.


&НаКлиенте
Процедура СохранитьОтчет(Команда)
    
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога); // ВыборКаталога. Если указываем Сохранение, то ошибка!
    Диалог.Заголовок = "Выберите место сохранения";
    ОповещениеЗавершения = Новый ОписаниеОповещения("ПослеПомещеенияФайлаНаСервер", ЭтотОбъект);
    Диалог.Показать(ОповещениеЗавершения);
    
КонецПроцедуры

&НаКлиенте
Процедура ПослеПомещеенияФайлаНаСервер(пРезультат, пАдресВХ) Экспорт

  Если пРезультат <> Неопределено Тогда
    
    Попытка
        Результат.ПолеСлева = 5;
        Результат.ПолеСправа = 5;
        Результат.ПолеСверху = 5;
        Результат.ПолеСнизу = 5;
        Результат.АвтоМасштаб = Истина;
        Результат.Записать(пРезультат[0]+"Выполненные работы.PDF", ТипФайлаТабличногоДокумента.PDF);
    Исключение    
        Инф = ИнформацияОбОшибке();
        ПредупреждениеАсинх("Ошибка при записи данных отчета: " + Инф.Описание);
    КонецПопытки;    
      
  КонецЕсли;

КонецПроцедуры