0
alpha78
20.09.15
✎
12:25
|
Добрый день, коллеги
Есть табличная часть справочника ПрикрепленныеФайлы
Вот код вставки картинки с файла в ХранилищеЗначений табличной части с помощью команды ВыбратьФайлКартинки :
&НаКлиенте
Процедура ВыбратьФайлКартинки(Команда)
//Создаем оповещение, именно процедура "ОбработатьВыборФайла" будет вызвана при закрытии окна выбора файла
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтаФорма);
//Открываем интерактивно окно для выбора файла
НачатьПомещениеФайла(Оповещение, , , Истина, УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
Если Не Результат Тогда
Возврат;
КонецЕсли;
СсылкаНаКартинку = Адрес;
//запись в табличную часть
//ИмяФайла = ВыбранноеИмяФайла.ПолучитьОбъект();
//Элементы.ПрикрепленныеФайлы.ДобавитьСтроку();
Строка=Элементы.ПрикрепленныеФайлы.ТекущиеДанные;
ДобавитьФайлТЧ(ВыбранноеИмяФайла);
Элементы.ПрикрепленныеФайлы.ЗакончитьРедактированиеСтроки(Ложь);
КонецПроцедуры
//запись картинки в ХЗ
&НаСервере
Процедура ДобавитьФайлТЧ(ИмяФайла)
Строка=Объект.ПрикрепленныеФайлы.Добавить();
Строка.НаименованиеФайла=ИмяФайла;
Строка.РасширениеФайла=Прав(ИмяФайла,4);
ХЗ = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(СсылкаНаКартинку));
Строка.СодержимоеФайла = ХЗ;
КонецПроцедуры
Только не работает, выдает "Поле объекта (СодержимоеФайла) не обнаружено", хотя в табличной части есть такой реквизит!!
Помогите пожалуйста, заранее большое спасибо!
|
|