Картинка в карточке номенклатуры
Для получения доступа к форуму необходимо
авторизоваться
или
зарегистрироваться
на сайте.
Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте
rarus-soft.ru
Читают тему
Спасибо.
Если Вы имеете ввиду, чтобы эта картинка отображалась в самой карточке, то такой возможности нет и подобные изменения не планируются.
подредактировать форму и добавить несколько процедур
Процедура ПолеПредварительногоПросмотраНажатие(Элемент)
ОткрытьСписокФайловиКартинок();
ОбновитьКартинку();
КонецПроцедуры // ПолеПредварительногоПросмотраНажатие()
Процедура ОбновитьКартинку()
Запрос = Новый Запрос("
|ВЫБРАТЬ
| КартинкиИФайлы.Идентификатор,
| КартинкиИФайлы.ИмяФайла,
| КартинкиИФайлы.Данные,
| КартинкиИФайлы.ДанныеВоВнешнемФайле
|ИЗ
| РегистрСведений.КартинкиИФайлы КАК КартинкиИФайлы
|ГДЕ
| КартинкиИФайлы.Объект = &ОбъектИнформации
| И КартинкиИФайлы.Картинка = ИСТИНА
|АВТОУПОРЯДОЧИВАНИЕ");
Попытка
Запрос.УстановитьПараметр("ОбъектИнформации",ЭтотОбъект.Ссылка);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
Если РезультатЗапроса.Количество()>0 Тогда
СтрокаКартинка = РезультатЗапроса[0];
Если СтрокаКартинка.ДанныеВоВнешнемФайле Тогда
ЭлементыФормы.ПолеПредварительногоПросмотра.Картинка = Новый Картинка(СтрокаКартинка.ИмяФайла,Ложь);
Иначе
ЭлементыФормы.ПолеПредварительногоПросмотра.Картинка = СтрокаКартинка.Данные.Получить();
КонецЕсли;
Иначе
ЭлементыФормы.ПолеПредварительногоПросмотра.Картинка = Новый Картинка;
КонецЕсли;
Исключение
КонецПопытки;
КонецПроцедуры // ОбновитьКартинку()
Процедура ОткрытьСписокФайловиКартинок()
ФормаРегистра = РегистрыСведений.КартинкиИФайлы.ПолучитьФормуСписка("ФормаСписка",ЭтаФорма);
ФормаРегистра.РегистрСведенийСписок.Отбор.Объект.Установить(ЭтотОбъект.Ссылка);
ФормаРегистра.ОткрытьМодально();
ЭлементыФормы.тКартинкиИФайлы.Заголовок = обФайлыКартинки(ЭтотОбъект.Ссылка);
КонецПроцедуры // ОткрытьСписокФайловиКартинок()
Добавить в
Процедура ПриОткрытии()
//++
ОбновитьКартинку();
//--
КонецПроцедуры // ПриОткрытии()
Прикрепленные файлы