Подскажите как в 1с 7.7 ПУБ, прописать кнопку типа (В интернете добавление файла)чтобы к документу прикреплялись всякие разные графические файлы и была возможность просмотра.
Подскажите как в 1с 7.7 ПУБ, прописать кнопку типа (В интернете добавление файла)чтобы к документу прикреплялись всякие разные графические файлы и была возможность просмотра.
> Подскажите как в 1с 7.7 ПУБ, прописать кнопку типа (В интернете добавление файла)чтобы к документу прикреплялись всякие разные графические файлы и была возможность просмотра.<br><br>храни строку с путём и файлом к графике
что?
> что?<br><br>если хочешь, чтоб в доке "хранилась" картинка, то храни адрес её в поле типа строка
это типа скопировал вставил?
> это типа скопировал вставил?<br><br>что тебе надо хранить именно и для чего?
например инженер-конструктор заказал болтик снабженец незнает как он выглядит, тогда инженер чтобы получить правильный заказ добавляет ссылку или файлик через кнопку обзор, где сразу прописывается путь, если снабжению надо посмотреть что это за деталь он нажимает кнопку просмотр и открывается картинка.
Вам правильно сказали - запихиваете в строку путь к картинке.<br>Впринципе правильный функционал был бы такой: Пользователь выбирает картинку. Картинка копируется в "КаталогБазы\img" с каким-нибудь уникальным именем и сохраняется в строку (реквизит типа строка) этот новый путь с именем. Ну а чтобы показать потом картинку пользуетесь Объектом Картинка.
т.е. я в форме диалога добавляю поле ввода с кнопкой выбора, а вот чтобы открывалось окно выбора что надо прописать?
"Функция ПолучитьКаталог(ВыбФайл)<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>КонецФункции"