0
demous
10.10.19
✎
12:17
|
Добрый день, подскажите, возможно ли в тч добавить (хранить) внешние файлы на примере моей процедуры?
На данный момент она хранит имя файла, но не позволяет открыть файл, и при изменении строки предлагается выбор нового файла, а даже не открытие папки с ним...
Процедура ВложенияПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогОткрытияФайла.Заголовок = "Выберите файл вложения";
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
ДиалогОткрытияФайла.Фильтр = "Все файлы (*.*)|*.*";
ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;
Если ДиалогОткрытияФайла.Выбрать() Тогда
Попытка
ВыбранныйФайл = Новый ДвоичныеДанные(ДиалогОткрытияФайла.ПолноеИмяФайла);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Элемент.ТекущаяСтрока.Вложение = Новый ХранилищеЗначения(ВыбранныйФайл);
ФайлНаДиске = Новый Файл(ДиалогОткрытияФайла.ПолноеИмяФайла);
Элемент.ТекущаяСтрока.ИмяФайла = ФайлНаДиске.Имя;
Иначе
Отказ = Истина;
Возврат;
КонецЕсли;
КонецПроцедуры
|
|