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

УТ 11.4.1.271. Метданные

Автор Mikle, 05 фев 2018, 23:32

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

Mikle

Вставил картинку на форму, записал, после открываю эту форму а там:
Данный код я вообще не трогал. Использовал только справочник Характеристики.

&НаКлиенте
Процедура добавитьКартинку(Команда)
ИмяФайла = "";
ПутьФайла = "";
Если ПоместитьФайл(ПутьФайла, , ИмяФайла, Истина) = Истина Тогда
Фото = ПутьФайла;
УстановитьКартинку();
КонецЕсли;
КонецПроцедуры


&НаСервере
Процедура УстановитьКартинку()
НовыйФайлКартинки = Справочники.ФайлыХарактеристики.СоздатьЭлемент();
НовыйФайлКартинки.Файл = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(Фото));
Фото = ПоместитьВоВременноеХранилище(НовыйФайлКартинки.Файл.Получить());
НовыйФайлКартинки.Записать();
Объект.Картинка = НовыйФайлКартинки.Ссылка;
КонецПроцедуры

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

ilyay

Ссылка.Метаданные() в формировании текста запроса. Ссылка = Неопределено?

Теги:
Рейтинг@Mail.ru

Поиск