При НачатьПомещениеФайла не срабатывает оповещение на ВебКлиенте
Здравствуйте!
Не срабатывает оповещение на ВебКлиенте, при вызове НачатьПомещениеФайла. На тонком Клиенте все нормально. Код уже трижды по разному переписал, не пойму в чем дело.
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Собственный заголовок диалога загрузки файла";
ОбработкаОкончанияЗагрузки = Новый ОписаниеОповещения("Обработчик_Завершения_Загрузки", ЭтаФорма, Диалог);
НачатьПомещениеФайла(ОбработкаОкончанияЗагрузки, , Диалог, Истина, УникальныйИдентификатор);
Не срабатывает оповещение на ВебКлиенте, при вызове НачатьПомещениеФайла. На тонком Клиенте все нормально. Код уже трижды по разному переписал, не пойму в чем дело.
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Собственный заголовок диалога загрузки файла";
ОбработкаОкончанияЗагрузки = Новый ОписаниеОповещения("Обработчик_Завершения_Загрузки", ЭтаФорма, Диалог);
НачатьПомещениеФайла(ОбработкаОкончанияЗагрузки, , Диалог, Истина, УникальныйИдентификатор);
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для работы с файлами в веб-клиенте необходимо расширение работы с файлами, делается это функциями:
НачатьУстановкуРасширенияРаботыСФайлами
НачатьПодключениеРасширенияРаботыСФайламиЗавершение
УстановитьРасширениеРаботыСФайлами
ПодключитьРасширениеРаботыСФайлами
НачатьУстановкуРасширенияРаботыСФайлами
НачатьПодключениеРасширенияРаботыСФайламиЗавершение
УстановитьРасширениеРаботыСФайлами
ПодключитьРасширениеРаботыСФайлами
&НаКлиенте
Процедура СохранитьФайл(Команда)
// Для примера создадим пустой табличный документ
ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.Область("R1C1").Текст = "Файл сохраненный обработкой ""Пример работы сохранения фалов""";
#Если ВебКлиент Тогда
// Попробуем подключить расширение работы с файлами
РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
Если НЕ РасширениеПодключено Тогда
// Расширение не установлено, пробуем установить
УстановитьРасширениеРаботыСФайлами();
КонецЕсли;
РасширениеПодключено = ПодключитьРасширениеРаботыСФайлами();
Если Не РасширениеПодключено Тогда
// Расширение не удалось установить, сообщаем об этом пользователю
ПоказатьПредупреждение( , НСтр("ru = 'Для выполнения данной операции вам нужно установить расширение работы с файлами.'"));
Возврат;
КонецЕсли;
#КонецЕсли
// Поместим табличный документ во временной хранилище как файл MS Excel
АдресХранилища = ПоместитьТабличныйДокументВоВременноеХранилищеНаСервере(ТабличныйДокумент, "xlsx", ТипФайлаТабличногоДокумента.XLSX);
Если АдресХранилища = Неопределено Тогда
ПоказатьПредупреждение( , НСтр("ru = 'Что-то пошло не так :('"));
Возврат;
КонецЕсли;
ИмяФайла = "Сохраняемый файл.xlsx";
Попытка
// Сам момент сохранения
ПолучитьФайл(АдресХранилища, ИмяФайла, Истина);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "ru='Не удалось записать файл. Возможно, недостаточно места на диске, диск защищен от записи или не подключено расширение для работы с файлами.'";
Сообщение.Сообщить();
КонецПопытки;
КонецПроцедуры
&НаСервере
Функция ПоместитьТабличныйДокументВоВременноеХранилищеНаСервере(ТабличныйДокумент, Расширение, ТипФайла)
АдресХранилища = Неопределено;
ИмяФайла = ПолучитьИмяВременногоФайла(Расширение);
Попытка
ТабличныйДокумент.Записать(ИмяФайла, ТипФайла);
АдресХранилища = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ИмяФайла));
Исключение
ВызватьИсключение;
КонецПопытки;
Возврат АдресХранилища;
КонецФункции
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот