ПоместитьФайлНаСерверАсинх c диалогом выбора файла

03.07.24

Разработка - Инструментарий разработчика

Использование метода ПоместитьФайлНаСерверАсинх c диалогом выбора файла.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
ПоместитьФайлНаСерверАсинх c диалогом выбора файла:
.epf 7,08Kb
6
6 Скачать (1 SM) Купить за 1 850 руб.

Асинхронные методы реализованы в 1С уже сравнительно давно, но редко используются разработчиками. Виной тому - отсутствие рабочих примеров и наличие до сих пор работающих старых методов (ПоместитьВоВременноеХранилище, НачатьПомещениеФайла, НачатьПомещениеФайлаНаСервер), которые хорошо описаны и снабжены работающими примерами.

Моя цель зафиксировать и предоставить рабочий пример, тем, кто захочет воспользоваться современным методом НачатьПомещениеФайлаНаСервер.

#Область ОбработчикиКомандФормы

&НаКлиенте
Асинх Процедура ЗагрузитьСтатьи(Команда)
    
    // Описание параметров диалога помещения файлов
    //ПараметрыДиалогаПомещенияФайлов = Новый Структура;
    //ПараметрыДиалогаПомещенияФайлов.Вставить("Заголовок", "Выберите файл статей");
    //ПараметрыДиалогаПомещенияФайлов.Вставить("МножественныйВыбор", Ложь);
    //ПараметрыДиалогаПомещенияФайлов.Вставить("Фильтр", "xlsx (*.xlsx)|*.xlsx");
    //ПараметрыДиалогаПомещенияФайлов.Вставить("ИндексФильтра", 0);
    
    ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов("Выберите файл статей", Ложь, "xlsx (*.xlsx)|*.xlsx", 0);
    
    Обещание = ПоместитьФайлНаСерверАсинх( , , , ПараметрыДиалога, ЭтаФорма.УникальныйИдентификатор);    
    Результат = Ждать Обещание;
    
    Если Результат <> Неопределено Тогда
        Попытка
            ПрочитатьФайл(Результат.Адрес);
        Исключение
            ТекстСообщения = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
            ПоказатьПредупреждение(,НСтр("ru = 'Операция не может быть выполнена по причине:'") + Символы.ПС + ТекстСообщения);
        КонецПопытки;
    КонецЕсли;
    
КонецПроцедуры

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

&НаСервереБезКонтекста
Процедура ПрочитатьФайл(Адрес)
    
    ДвоичныеДанные = ПолучитьИзВременногоХранилища(Адрес);
    ИмяФайла = ПолучитьИмяВременногоФайла("xlsx");
    ДвоичныеДанные.Записать(ИмяФайла);
    
    табДок = Новый ТабличныйДокумент;
    
    Попытка
        табДок.Прочитать(ИмяФайла);
    Исключение
        ЗаписьЖурналаРегистрации(НСтр("ru = 'Загрузка статей'"),
        УровеньЖурналаРегистрации.Ошибка,,,
        ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
        ВызватьИсключение;
    КонецПопытки;
    
    КоличествоСтрок = табДок.ВысотаТаблицы;
    ГлубинаИерархии = 6;
    Для каждого Область из табДок.Области Цикл
        
        ИмяСправочника = Область.Имя;
        Менеджер = Справочники[ИмяСправочника];
        
        Если Менеджер = Неопределено Тогда
            Менеджер = Справочники.СтатьиДвиженияДенежныхСредств;
        КонецЕсли;
        
        РодительскаяГруппаСправочника = Менеджер.НайтиПоНаименованию("Загруженные справочники");
        
        ГруппыИерархии = Новый Массив(ГлубинаИерархии);
        ГруппыИерархии.Вставить(0, РодительскаяГруппаСправочника);
        ТекущаяГруппа = ГруппыИерархии[0];
        
        Для НомерСтроки = Область.Верх + 1 по Область.Низ Цикл
            Наименование = Строка(табДок.ПолучитьОбласть("R" + Формат(НомерСтроки, "ЧГ=0;") + "C" + 2).ТекущаяОбласть.Текст);
            Тип = Строка(табДок.ПолучитьОбласть("R" + Формат(НомерСтроки, "ЧГ=0;") + "C" + 3).ТекущаяОбласть.Текст);
            ДоходРасход = Строка(табДок.ПолучитьОбласть("R" + Формат(НомерСтроки, "ЧГ=0;") + "C" + 4).ТекущаяОбласть.Текст);
            
            Если Лев(Тип, 6) = "Группа" Тогда
                Уровень = Число(Прав(Тип, 1)) + 1;
                НоваяГруппа = Менеджер.СоздатьГруппу();
                НоваяГруппа.Наименование = Наименование;
                НоваяГруппа.Родитель = ГруппыИерархии[Уровень - 1];
                НоваяГруппа.Записать();
                ТекущаяГруппа = НоваяГруппа.Ссылка;
                ГруппыИерархии[Уровень] = ТекущаяГруппа;
            ИначеЕсли Тип = "Статья" Тогда
                НоваяСтатья = Менеджер.СоздатьЭлемент();
                НоваяСтатья.Наименование = Наименование;
                НоваяСтатья.Родитель = ТекущаяГруппа;
                НоваяСтатья.ПриходРасход = ?(ДоходРасход = "Доход", Перечисления.ВидыДвиженийПриходРасход.Приход, Перечисления.ВидыДвиженийПриходРасход.Расход);
                НоваяСтатья.Записать();
            КонецЕсли;
            
        КонецЦикла;
        
    КонецЦикла;
    
КонецПроцедуры

#КонецОбласти

Платформа: 8.3.24.1467.

ПоместитьФайлНаСерверАсинх

См. также

Инструментарий разработчика Роли и права Запросы СКД Программист Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

10000 руб.

02.09.2020    150216    832    393    

839

Инструментарий разработчика Программист Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

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

9360 руб.

17.05.2024    19987    58    42    

105

Инструментарий разработчика Программист Платформа 1С v8.3 Платные (руб)

OneRPA - платформа роботизации рутинных операций, в основе которой лежит платформа 1С:Предприятие. Данная платформа позволяет использовать современные технологии роботизации, не теряя при этом наработки, которые были созданы в ходе автоматизации. При этом платформа роботизации сохраняет все преимущества платформы 1С: гибкость, кроссплатформенность, мобильный и Web доступ, простоту расширения. Ну и конечно же роботы создаются и сопровождаются простыми специалистами 1С, при этом не обязательно программистами. Self hosted версия

300000 руб.

03.03.2021    14112    12    27    

36

Пакетная печать Печатные формы Инструментарий разработчика Программист Платформа 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:Конвертация данных 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 руб.

06.10.2023    13802    35    7    

68

Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

10000 руб.

10.11.2023    8922    32    10    

55

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Платформа 1С v8.3 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях. Поддерживаются управляемые и обычные формы. Может выполнять свертку сразу нескольких баз данных и выполнять их автоматически без непосредственного участия пользователя.

6900 руб.

20.08.2024    3289    18    6    

32

SALE! %

Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Россия Платные (руб)

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

4800 3840 руб.

14.01.2013    184759    1126    0    

898

Инструментарий разработчика Программист 8.3.14 1С:Конвертация данных Россия Платные (руб)

Расширение для конфигурации “Конвертация данных 3”. Добавляет подсветку синтаксиса, детальную контекстную подсказку, глобальный поиск по коду.

15000 руб.

07.10.2021    16662    6    29    

42
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. baracuda 2 04.07.24 15:35 Сейчас в теме
Спасибо, сегодня как раз пригодилось.
2. Xershi 1541 04.07.24 20:13 Сейчас в теме
Было бы не плохо написать с какого релиза это может начать работать.
И почему нужно отказаться от асинхронного метода.
Работа с файлами (обычная и управляемая форма)
5 лет прошло. Тогда ещё не было этого метода и за это время множество кода в типовых через описание оповещения реализованно.
Да и как то устаревшими я не видел чтобы их называли, а вот модальные вызовы, было такое. В самой справке писали. Но это больше связано было с работой в браузере и переходом на управляемые формы.
6. sikuda 677 05.07.24 10:27 Сейчас в теме
(2) Этапы большого пути.... Скрестить https://www.w3.org/TR/FileAPI/ и Windows API и Linux - операция невозможное..
Прикрепленные файлы:
7. Xershi 1541 05.07.24 11:52 Сейчас в теме
(6) спасибо. Залез в справку 8.3.25:

ПоместитьФайл
Использование в версии:
Доступен, начиная с версии 8.2.
Не рекомендуется использовать, начиная с версии 8.3.13.
Описание изменено в версии 8.3.18.

НачатьПомещениеФайла
Использование в версии:
Доступен, начиная с версии 8.3.13.
Не рекомендуется использовать, начиная с версии 8.3.15.
Описание изменено в версии 8.3.22.

НачатьПомещениеФайлаНаСервер
Использование в версии:
Доступен, начиная с версии 8.3.15.

ПоместитьФайлНаСерверАсинх
Использование в версии:
Доступен, начиная с версии 8.3.18.

В 2019 только появилась 8.3.15 тогда все стало через НачатьПомещениеФайла, затем они придумали НачатьПомещениеФайлаНаСервер и до сих пор используется. А с 8.3.18 решили сделаем как в дваже или каком там языке обещания есть и пошло уже ПоместитьФайлНаСерверАсинх. Но этот метод как то пока странно смотрится. Хотя и с оповещением тоже было странно. Но они на оповещении повесили и все остальные методы, поэтому работу с файлами переписывать такое себе.

Посмотрел свое решение. Там используются уже методы с 8.3.15, которые до сих пор актуальны. Т.е. в ходу НачатьПомещениеФайлаНаСервер. Ну а для спец задач уже можно начать думать как применять ПоместитьФайлНаСерверАсинх.
9. sikuda 677 08.07.24 11:19 Сейчас в теме
(7) Это процесс большого перехода и философии локального приложения, в котором доступен локальный диск и мы может делать что угодно к философии интернета, где все локальные ресурсы это особые временные ресурсы для безопасного работы приложений.

Как с точки зрения 1С надо придерживаться философии локального приложения и положить болт на безопасность:
"Для использования метода ПоместитьФайлы() в веб-клиенте требуется подключение расширения работы с файлами"

Но общая тенденция все равно уходит в сторону безопасности и привязки к философии браузеров(колбеки Начать)
и 1С приходится следовать общим тенденциям, но кто сказал что программисту 1С вообще будет понятно что происходит!
10. Xershi 1541 08.07.24 12:21 Сейчас в теме
(9) что-то про это слышал. Посмотрим на будущие релизы платформы.
3. user1142959 1 04.07.24 22:09 Сейчас в теме
1800руб.. огонь!
gucci76; dj_tol; DoctorRoza; manlak; Jimbo; +5 Ответить
11. ubnkfl 08.07.24 13:14 Сейчас в теме
(3) уже 1850 рублей. Цена фантиков подросла.
4. gybson 05.07.24 04:49 Сейчас в теме
В ЗУП 8 "НачатьПомещениеФайлаНаСервер" и 5 "ПоместитьФайлНаСерверАсинх"

Притом пишут в одну строку

Результат = Ждать ПоместитьФайлНаСерверАсинх(,,, ПутьКФайлуВнешнегоОтчетаНаКлиенте, УникальныйИдентификатор);


Тут нет более щадящих способов продвигать свои продукты, чем вот такой незамысловатый?
5. dhurricane 05.07.24 09:38 Сейчас в теме
К ячейкам табличного документа можно обращаться в том числе и по номерам строк и колонок. При этом текст приводить к строке ни к чему, равно как и получать область от области.
// То есть вместо такого:
Наименование = Строка(табДок.ПолучитьОбласть("R" + Формат(НомерСтроки, "ЧГ=0;") + "C" + 2).ТекущаяОбласть.Текст);

// ...можно писать так:
Наименование = табДок.ПолучитьОбласть(НомерСтроки, 2).Текст;
8. Поручик 4690 05.07.24 13:53 Сейчас в теме
Если пошёл разговор про старое и прогрессивное,
ЭтаФорма.УникальныйИдентификатор давно устарело.
Используйте ЭтотОбъект.ИмяСвойства
Alexwarsis; rozer; +2 Ответить
12. Xershi 1541 07.09.24 11:10 Сейчас в теме
(8) только в оф всё ещё эта форма.
Оставьте свое сообщение