Имя: Пароль:
1C
 
Фильтр в диалоге выбора файла. Интерфейс "Такси"
0 termos
 
08.12.14
00:31
Здравствуйте. В связи с отказом от модальных окон так и не могу разобраться каким образом накладывать фильтр на диалог выбора файла при выборе по варианту, который описывает Павел Чистов здесь: http://1c.chistov.pro/2013/07/blog-post.html

Подскажите, пожалуйста, каким образом его установить. Заранее благодарю.
1 Wobland
 
08.12.14
03:14
хорошо-то как. вижу подробные объяснения, подробных объяснений не понимаю
2 acanta
 
08.12.14
03:16
коротко и ясно больше не объясняют.. только подробно и туманно.
3 termos
 
08.12.14
13:46
(1) Хорошо, покажи, пожалуйста, где в статье указано каким образом наложить фильтр на расширение файла? Допустим, как это делается с ДиалогВыбораФайла.Фильтр.
4 ДенисЧ
 
08.12.14
13:48
фд.Фильтр = "xls|*.xls|Все файлы|*.*"
Не работает?
5 termos
 
08.12.14
13:53
(4) Там следующая реализация.

&НаКлиенте
Процедура ВыбратьИзображение(Команда)
    Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
    НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
    Если Не Результат Тогда
        Возврат;
    КонецЕсли;
    Лого = Адрес;
КонецПроцедуры
6 termos
 
08.12.14
13:54
(4) А в какой момент накладывать фильтр - разобраться не могу.
7 fly7
 
08.12.14
13:58
(6) в момент
>>НачатьПомещениеФайла(Оповещение,,,Истина,УникальныйИдентификатор);
но там нет фильтров ((
8 Любопытная
 
08.12.14
13:59
(6) ДиалогВыбораФайла не модальное окно, так что используйте его сначала, а потом уже можно НачатьПомещениеФайла, в которую передать адрес файла и в параметр Интерактивно установить Ложь
9 termos
 
08.12.14
14:14
(8) Благодарю Вас! Сделал вот так.

&НаКлиенте
Процедура ВыбратьИзображение(Команда)
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Фильтр = "Изображение (*.jpg)|*.jpg";
    Если Диалог.Выбрать() Тогда
        Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
        НачатьПомещениеФайла(Оповещение,,Диалог.ПолноеИмяФайла,Ложь,УникальныйИдентификатор);
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
    Если Не Результат Тогда
        Возврат;
    КонецЕсли;
    Лого = Адрес;
КонецПроцедуры
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший