Добавить кнопку Обзор...
27.10.2009
12:22
#1
Подскажите как в 1с 7.7 ПУБ, прописать кнопку типа (В интернете добавление файла)чтобы к документу прикреплялись всякие разные графические файлы и была возможность просмотра.
27.10.2009
12:23
#2
> Подскажите как в 1с 7.7 ПУБ, прописать кнопку типа (В интернете добавление файла)чтобы к документу прикреплялись всякие разные графические файлы и была возможность просмотра.<br><br>храни строку с путём и файлом к графике
27.10.2009
12:26
#4
> что?<br><br>если хочешь, чтоб в доке "хранилась" картинка, то храни адрес её в поле типа строка
27.10.2009
12:51
#7
например инженер-конструктор заказал болтик снабженец незнает как он выглядит, тогда инженер чтобы получить правильный заказ добавляет ссылку или файлик через кнопку обзор, где сразу прописывается путь, если снабжению надо посмотреть что это за деталь он нажимает кнопку просмотр и открывается картинка.
27.10.2009
14:47
#8
Вам правильно сказали - запихиваете в строку путь к картинке.<br>Впринципе правильный функционал был бы такой: Пользователь выбирает картинку. Картинка копируется в "КаталогБазы\img" с каким-нибудь уникальным именем и сохраняется в строку (реквизит типа строка) этот новый путь с именем. Ну а чтобы показать потом картинку пользуетесь Объектом Картинка.
27.10.2009
14:49
#9
т.е. я в форме диалога добавляю поле ввода с кнопкой выбора, а вот чтобы открывалось окно выбора что надо прописать?
27.10.2009
14:59
#10
"Функция ПолучитьКаталог(ВыбФайл)<br> СтрКаталог = СокрЛП(ВыбФайл);<br> ИсхСтр = СокрЛП(ВыбФайл);<br> НовыйКаталог = """";<br> Если СтрЧислоВхождений(ИсхСтр, ".") = 0 Тогда<br> Возврат ИсхСтр;<br> КонецЕсли;<br> Если СтрЧислоВхождений(СтрКаталог, "\") > 0 Тогда<br> Поз = Найти(СтрКаталог, "\");<br> Пока Поз > 0 Цикл<br> СтрКаталог = Прав(СтрКаталог, СтрДлина(СтрКаталог)-Поз);<br> Поз2 = Найти(ИсхСтр, СтрКаталог);<br> НовыйКаталог = Лев(ИсхСтр, Поз2-1);<br> Поз = Найти(СтрКаталог, "\");<br> КонецЦикла;<br> КонецЕсли;<br> Возврат НовыйКаталог;<br>КонецФункции<br><br>//-----------------------------------------------------------------------------<br>// Выбор файла<br>Функция ВыбратьФайл (ВыбФайл, СтрЗаголовок, СтрПриглашение)<br> Перем ПредстСпр;<br> НовыйФайл = ВыбФайл;<br> НовыйКаталог = ПолучитьКаталог(ВыбФайл); <br> Если НовыйКаталог = """" Тогда<br> НовыйКаталог = ФС.ТекКаталог()<br> КонецЕсли;<br> Если ФС.ВыбратьФайлКартинки(0, НовыйФайл, НовыйКаталог, СтрЗаголовок) = 1 Тогда<br> ВыбФайл = НовыйКаталог+НовыйФайл;<br> Возврат 1;<br> КонецЕсли;<br> Возврат 0;<br>КонецФункции"
Читают тему
(гостей: 1)