Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 14:14

Картинка в управляемой форме

Автор Sergspectr, 29 мая 2015, 21:04

0 Пользователей и 1 гость просматривают эту тему.

Sergspectr

Доброго времени суток.  Уважаемые форумчане, не могли бы помочь, как вывести картинку на форму.
В конфигурации БП3 было создано дополнительное сведение «Картинка» с типом значения файл. Была создана обработка и  форма со строковым реквизитом «Картинка»  с видом «поле картинки». В модуле формы производится выборка объекта из регистра дополнительные свойства. В итоге получается получить навигационную ссылку значения (Картинка = ПолучитьНавигационнуюСсылку (Значение)), но по данной ссылке ни чего не отображается на форме. Не могли бы помочь в решении данной проблемы.

Дмитрий@

Наверно так

Картинка = ПолучитьНавигационнуюСсылку (Объект.ССылка,"НаименованиеРеквизита")

Sergspectr

Цитата: Дмитрий@ от 29 мая 2015, 22:28
Наверно так

Картинка = ПолучитьНавигационнуюСсылку (Объект.ССылка,"НаименованиеРеквизита")


На сколько я понимаю под "НаименованиеРеквизита" имеется в виду Реквизит, в котором хранится картинка, если это так, то не могли бы подсказать реквизит хранения картинки в регистре ДополнительныеСведения

Дмитрий@

ЦитироватьНа сколько я понимаю под "НаименованиеРеквизита" имеется в виду Реквизит, в котором хранится картинка, если это так
Да это так.


Добавлено: 29 мая 2015, 23:11


Цитироватьто не могли бы подсказать реквизит хранения картинки в регистре ДополнительныеСведения
Для этого нужно иметь на руках вашу конфигурацию.

Sergspectr

Цитата: Дмитрий@ от 29 мая 2015, 23:11
ЦитироватьНа сколько я понимаю под "НаименованиеРеквизита" имеется в виду Реквизит, в котором хранится картинка, если это так
Да это так.


Добавлено: 29 мая 2015, 23:11


Цитироватьто не могли бы подсказать реквизит хранения картинки в регистре ДополнительныеСведения
Для этого нужно иметь на руках вашу конфигурацию.

Типовая БП3

Процедура в модуле :
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ДополнительныеСведения.Значение,
    |    ДополнительныеСведения.Свойство.Наименование
    |ИЗ
    |    РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
    |ГДЕ
    |    ДополнительныеСведения.Объект = &Объект";
    Запрос.УстановитьПараметр("Объект",Объект.Ссылка );
    РезультатЗапроса = Запрос.Выполнить();
     Выборка = РезультатЗапроса.Выбрать();
     Пока Выборка.Следующий()    ЦИКЛ
        Если Выборка.СвойствоНаименование = "Картинка (Номенклатура)" Тогда
    Картинка = ПолучитьНавигационнуюСсылку(Выборка.Значение);
Элементы.Картинка.РазмерКартинки = РазмерКартинки.АвтоРазмер;
      КонецЕсли;
         КонецЦикла;
         
    КонецПроцедуры

Дополнительное Сведение добавлялось через Администрирование - Общие настройки - Дополнительные сведения

Дмитрий@

ЦитироватьТиповая БП3
К сожалению после этого у меня конфигурация не появилась. Шутка.

А почему вы сами не можете посмотреть название реквизита, вроде там ничего сложного. Что вас смущает.

Sergspectr

Цитата: Дмитрий@ от 29 мая 2015, 23:22
ЦитироватьТиповая БП3
К сожалению после этого у меня конфигурация не появилась. Шутка.

А почему вы сами не можете посмотреть название реквизита, вроде там ничего сложного. Что вас смущает.

Дело в том, что по указанному мною листингу ссылка получается, но насколько я понял, когда разбирал отладчиком форму дополнительныхсведений, там присутствует два вида ссылок НавигационнаяСсылка и НавигационнаяСсылкаТекущейВерсии. Может конечно я и не прав. Вот и появились сомнения.

Дмитрий@

У меня таких ссылок нет, видимо у вас что-то дописано.
Цитировать
В конфигурации БП3 было создано дополнительное сведение «Картинка» с типом значения файл.
Вам нужно указать реквизит картинка.
Добавлено: 30 мая 2015, 19:45


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
      Отбор = Новый Структура;
   Отбор.Вставить("Объект",Объект.Ссылка);
   Отбор.Вставить("Свойство",Свойство);
   КлючЗаписи = РегистрыСведений.ДополнительныеСведения.СоздатьКлючЗаписи(Отбор);
   
    Картинка = ПолучитьНавигационнуюСсылку(КлючЗаписи,"Картинка");
Элементы.Картинка.РазмерКартинки = РазмерКартинки.АвтоРазмер;
              
    КонецПроцедуры

Sergspectr

Цитата: Дмитрий@ от 30 мая 2015, 19:19
У меня таких ссылок нет, видимо у вас что-то дописано.
Цитировать
В конфигурации БП3 было создано дополнительное сведение «Картинка» с типом значения файл.
Вам нужно указать реквизит картинка.
Добавлено: 30 мая 2015, 19:45


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
      Отбор = Новый Структура;
   Отбор.Вставить("Объект",Объект.Ссылка);
   Отбор.Вставить("Свойство",Свойство);
   КлючЗаписи = РегистрыСведений.ДополнительныеСведения.СоздатьКлючЗаписи(Отбор);
   
    Картинка = ПолучитьНавигационнуюСсылку(КлючЗаписи,"Картинка");
Элементы.Картинка.РазмерКартинки = РазмерКартинки.АвтоРазмер;
              
    КонецПроцедуры

Не выводится по данному варианту картинка. Не могли бы  подсказать у Вас данный вариант работает без проблем?

Дмитрий@

Я не проверял, но по идее в в вашем случае это делается так.
Скиньте полностью код как вы написали по моему шаблону.

Теги: картинка 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск