не получается в поле на форме константа поместить пусть из диалог выбора каталога
На Общей форме есть компонент на который ссылается на константу (НаборКонстант.КонстКаталогСФайламиИзображений).
На форме есть кнопка выбор каталога. Мне нудно после выбора каталога записать в константу путь и отобразить выбранное на форме в поле.
На форме есть кнопка выбор каталога. Мне нудно после выбора каталога записать в константу путь и отобразить выбранное на форме в поле.
&НаКлиенте
Процедура ОткрытьКаталог(Команда)
СтандартнаяОбработка = ЛОЖЬ;
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Заголовок = "Выберите каталог";
Параметр = "";
Оповещение = Новый ОписаниеОповещения("ВыборКаталогаЗавершение", ЭтотОбъект, Параметр );
ДиалогОткрытия.Показать(Оповещение);
КонецПроцедуры
&НаКлиенте
Процедура ВыборКаталогаЗавершение(Результат, Параметр) Экспорт
Если Результат = Неопределено Тогда
Сообщить("Каталог не выбран");
Возврат;
КонецЕсли;
//путь выбранный пользователем в результате
//ПутьКФайламИзображенийТП = компонент куда хочу положить путь и отобразить пользователю.
ПутьКФайламИзображенийТП = Результат[0];
КонецПроцедуры
ПоказатьПо теме из базы знаний
Найденные решения
рабочий код |
---|
//может кому пригодится, такому же как я, который не читал учебник)
&НаКлиенте
Процедура ВыборКаталогаЗавершение(Результат, Параметр) Экспорт
Если Результат = Неопределено Тогда
Сообщить("Каталог не выбран");
Возврат;
КонецЕсли;
ОткрытьКаталогНаСервере(Результат[0]);
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьКаталог(Команда)
СтандартнаяОбработка = ЛОЖЬ;
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Заголовок = "Выберите каталог";
Параметр = "";
Оповещение = Новый ОписаниеОповещения("ВыборКаталогаЗавершение", ЭтотОбъект, Параметр );
ДиалогОткрытия.Показать(Оповещение);
КонецПроцедуры
&НаСервере
Процедура ОткрытьКаталогНаСервере(ПутьИзображенияТП)
Константы.КонстКаталогСФайламиИзображенийТП.Установить(ПутьИзображенияТП);
ЭтотОбъект.НаборКонстант.КонстКаталогСФайламиИзображенийТП = Константы.КонстКаталогСФайламиИзображенийТП.Получить();
КонецПроцедуры Показать |
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4) не пойму как. Код весь написан в модуле формы.
Ошибка:
{ОбщаяФорма.ОбщиеНастройки.Форма(10,2)}: Переменная не определена (Константы)
<<?>>Константы.КонстКаталогСФайламиИзображенийТП.Установить(Результат[0]); (Проверка: Тонкий клиент)
код |
---|
&НаКлиенте
Процедура ВыборКаталогаЗавершение(Результат, Параметр) Экспорт
Если Результат = Неопределено Тогда
Сообщить("Каталог не выбран");
Возврат;
КонецЕсли;
//Вот тут делаю присваивание выбранного пути в компонент.
Константы.КонстКаталогСФайламиИзображенийТП.Установить(Результат[0]);
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьКаталог(Команда)
СтандартнаяОбработка = ЛОЖЬ;
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Заголовок = "Выберите каталог";
Параметр = "";
Оповещение = Новый ОписаниеОповещения("ВыборКаталогаЗавершение", ЭтотОбъект, Параметр );
ДиалогОткрытия.Показать(Оповещение);
КонецПроцедуры
Показать |
Ошибка:
{ОбщаяФорма.ОбщиеНастройки.Форма(10,2)}: Переменная не определена (Константы)
<<?>>Константы.КонстКаталогСФайламиИзображенийТП.Установить(Результат[0]); (Проверка: Тонкий клиент)
рабочий код |
---|
//может кому пригодится, такому же как я, который не читал учебник)
&НаКлиенте
Процедура ВыборКаталогаЗавершение(Результат, Параметр) Экспорт
Если Результат = Неопределено Тогда
Сообщить("Каталог не выбран");
Возврат;
КонецЕсли;
ОткрытьКаталогНаСервере(Результат[0]);
КонецПроцедуры
&НаКлиенте
Процедура ОткрытьКаталог(Команда)
СтандартнаяОбработка = ЛОЖЬ;
Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытия.Заголовок = "Выберите каталог";
Параметр = "";
Оповещение = Новый ОписаниеОповещения("ВыборКаталогаЗавершение", ЭтотОбъект, Параметр );
ДиалогОткрытия.Показать(Оповещение);
КонецПроцедуры
&НаСервере
Процедура ОткрытьКаталогНаСервере(ПутьИзображенияТП)
Константы.КонстКаталогСФайламиИзображенийТП.Установить(ПутьИзображенияТП);
ЭтотОбъект.НаборКонстант.КонстКаталогСФайламиИзображенийТП = Константы.КонстКаталогСФайламиИзображенийТП.Получить();
КонецПроцедуры Показать |
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот