1С: Предприятие модуль для фото общий модуль Функция СозданиеКартинки(Наименование, Картинка) Экспорт ХранЗнач = Новый ХранилищеЗначения(Картинка); Файлы = Справочники.Файлы.СоздатьЭлемент(); Файлы.Наименование = Наименование; Файлы.Файл = ХранЗнач; Файлы.Записать(); Возврат Файлы.Ссылка; КонецФункции &НаКлиенте Процедура КартинкаНажатие(Элемент, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ДВФ = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); ДВФ.Показать(Новый ОписаниеОповещения("ОбработкаДВФ",ЭтотОбъект)); КонецПроцедуры &НаКлиенте Процедура ОбработкаДВФ(Результат, ДП) Экспорт Если Не Результат = Неопределено Тогда Карт = Новый Картинка(Результат[0]); ЗагрузитьКартинку(Карт); КонецЕсли КонецПРоцедуры Процедура ЗагрузитьКартинку(Карт) Объект.Изображение = Функции.СозданиеКартинки(Объект.Наименование, Карт); Картинка = ПолучитьНавигационнуюСсылку(Объект.Изображение, "Файл"); КонецПРоцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) Картинка = ПолучитьНавигационнуюСсылку(Объект.Изображение, "Файл"); КонецПроцедуры &НаКлиенте Процедура НаименованиеПриИзменении(Элемент) ЧФ = СтрРазделить(Объект.Наименование," "); Объект.Имя = ЧФ[0] + " " + Лев(ЧФ[1],1) + "." + Лев(ЧФ[2], 1) + "."; КонецПроцедуры
3 года назад