Прикрепление файлов в управляемой форме на Web клиенте
Всем привет на форуме нашел тему
Но она у меня не запускается этот код. Я не могу понять
1) ПомещенныеФайлы как этот параметр объявить
Но она у меня не запускается этот код. Я не могу понять
1) ПомещенныеФайлы как этот параметр объявить
&НаКлиенте
Процедура ЗагрузитьФайл(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтаФорма);
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
НачатьПомещениеФайлов(ОписаниеОповещения, , ДиалогОткрытияФайла, Истина, УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьВыборФайла(ПомещенныеФайлы,ДополнительныеПараметры) Экспорт
Если ПомещенныеФайлы = Неопределено Тогда
Возврат;
КонецЕсли;
Для каждого ПереданныйФайл Из ПомещенныеФайлы Цикл
ПутьКФайлу = ПереданныйФайл.Имя;
Запись.ИмяФайла = РазборСтроки(ПутьКФайлу, "\");
Элементы.ОткрытьФайл.Заголовок = Запись.ИмяФайла;
Адрес = ПереданныйФайл.Хранение;
КонецЦикла;
КонецПроцедуры
ПоказатьПо теме из базы знаний
- HelpDesk: поддержка пользователей - простое решение для учета задач и проблем. Оказание технической поддержки клиентам
- Организация простейшего внешнего хранилища прикрепленных к документу (элементу справочника, ...) файлов на web-сервере, или не засоряем базу 1С
- Хранилище файлов на SQL
- Работа с файлами (обычная и управляемая форма)
- Разработка гибридного web-приложения на 1С, возможности и ограничения
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(7)
Тебе надо понять, для чего они нужны, что надо конкретно тебе и сделать все по своему.
Сходил бы ты уже на курсы.
нужно хранить в форме
В форме хранить ее нельзя. При закрытии формы все пропадет. Тебе надо организовать хранение присоединенных файлов в информационной базе и сделать интерфейс их обработки.
а ошибка на фото
У автора в контексте выполнения кода есть реквизит Запись (скорей всего типа РегистрСведенийМенеджерЗаписи) и функция, которая как-то обрабатывает переданный аргумент.
Тебе надо понять, для чего они нужны, что надо конкретно тебе и сделать все по своему.
Сходил бы ты уже на курсы.
&НаКлиенте
Асинх Процедура ВыбратьФото(Команда)
Если НЕ ЗначениеЗаполнено(ЭтотОбъект.Комментарий) Тогда
ПоказатьПредупреждение(,"Заполните комментарий !!!");
Иначе
//ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов("Выберите файл !!!",,Ложь,);
Результат = Ждать ПоместитьФайлНаСерверАсинх();
Если Результат <> Неопределено И Не Результат.ПомещениеФайлаОтменено Тогда
Попытка
ВыбратьФотоНаСервере(ВладелецФормы.Объект.Ссылка,Результат.Адрес,Результат.СсылкаНаФайл.Имя);
ЭтаФорма.Закрыть();
Исключение
ТекстСообщения = КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
ПоказатьПредупреждение(,ТекстСообщения);
КонецПопытки;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ВыбратьФотоНаСервере(Док,СсылкаНаФайл,Имя)
// Вставить содержимое обработчика.
ДокОб = Док.ПолучитьОбъект();
НовСтр = ДокОб.СписокФото.Добавить();
НовСтр.ИмяФайла = Имя;
НовСтр.Комментарий = СокрЛП(ЭтотОбъект.Комментарий);
НовСтр.Фото = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(СсылкаНаФайл));
ДокОб.Записать();
КонецПроцедуры Показать
Конечно работать не будет, тупо вставив в свой код. Посмотри отладчиком.
ВладелецФормы.Объект.Ссылка - тебе не нужно
Результат.Адрес - это твой файл во временном хранилище , на сервере делай с ним что хочешь
Результат.СсылкаНаФайл.Имя - тут уже сам думай нужен он тебе
ВладелецФормы.Объект.Ссылка - тебе не нужно
Результат.Адрес - это твой файл во временном хранилище , на сервере делай с ним что хочешь
Результат.СсылкаНаФайл.Имя - тут уже сам думай нужен он тебе
(18) За тебя никто ничего решать и исправлять не будет. Тебе дали некий каркасный пример. Разбери его, пойми какая строчка что и зачем делает. Подумай, нужна ли тебе именно эта строчка/переменная/метод/реквизит/etc. и перепиши предложенный вариант под свои реалии (имена, сущности) и свои хотелки.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот