По теме из базы знаний
- Как перенести форму документа (справочника, ...) из одного документа (справочника, ...) в другой похожий документ (справочник, ...)
- Об отправке электронных писем средствами платформы "Бухгалтерия предприятия КОРП"
- Прикрепление внешних файлов к документам и справочникам 1С 8.3
- Создание справочника для добавления нескольких файлов и просмотр этих файлов
- Гайд для создания форм на 1С
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Реквизит: обычное поле ввода с типом строка нужной длинны.
А далее что то типа такого:
Процедура ВыборФайла(ИмяФайла, Фильтр="xml")
Каталог = "";
Стр = "Файл данных (*." + Фильтр + ")|*." + Фильтр + "";
Если ФС.ВыбратьФайл(0, ИмяФайла, Каталог, "Выберите файл", Стр, Фильтр, ) = 1 Тогда
ИмяФайла = Каталог + ИмяФайла;
КонецЕсли;
КонецПроцедуры // ВыборФайла()
Процедура ПриНачалеВыбораЗначения(ИдЭлементаДиалога, Фл)
Если ИдЭлементаДиалога = "ФормИмяФайлаДанных" Тогда
ВыборФайла(ФормИмяФайлаДанных, "xml");
КонецЕсли;
КонецПроцедуры // ПриНачалеВыбораЗначения()
А далее что то типа такого:
Процедура ВыборФайла(ИмяФайла, Фильтр="xml")
Каталог = "";
Стр = "Файл данных (*." + Фильтр + ")|*." + Фильтр + "";
Если ФС.ВыбратьФайл(0, ИмяФайла, Каталог, "Выберите файл", Стр, Фильтр, ) = 1 Тогда
ИмяФайла = Каталог + ИмяФайла;
КонецЕсли;
КонецПроцедуры // ВыборФайла()
Процедура ПриНачалеВыбораЗначения(ИдЭлементаДиалога, Фл)
Если ИдЭлементаДиалога = "ФормИмяФайлаДанных" Тогда
ВыборФайла(ФормИмяФайлаДанных, "xml");
КонецЕсли;
КонецПроцедуры // ПриНачалеВыбораЗначения()
1. Создать реквизит типа "Строка", длиной например 256 символов, с именем "ВыбФайл".
2. Установить у него в свойствах признак "Имеет кнопку выбора"
3. В модуле формы создать процедуру "ПриНачалеВыбораЗначения", в которой написать алгоритм обработки реквизита "ВыбФайл"
Примерно так:
2. Установить у него в свойствах признак "Имеет кнопку выбора"
3. В модуле формы создать процедуру "ПриНачалеВыбораЗначения", в которой написать алгоритм обработки реквизита "ВыбФайл"
Примерно так:
Процедура ПриНачалеВыбораЗначения(ИмяРеквизита, ФлагСтандартнойОбработки)
Если ИмяРеквизита="ВыбФайл" Тогда
ФлагСтандартнойОбработки=0;
ПутьФайла=СокрЛП(ВыбФайл);
ИмяФайла=СокрЛП(ВыбФайл);
Если ФС.ВыбратьФайл(0,ПутьФайла,ИмяФайла,"Укажите файл","Все файлы (*.*)|*.*","")=1 Тогда
ВыбФайл=СокрЛП(ПутьФайла)+СокрЛП(ИмяФайла);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот