Найти тему

1С: Предприятие модуль для фото

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

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

&НаКлиенте
Процедура ОбработкаДВФ(Результат, ДП) Экспорт
Если Не Результат = Неопределено Тогда
Карт = Новый Картинка(Результат[0]);
ЗагрузитьКартинку(Карт);
КонецЕсли
КонецПРоцедуры

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

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

&НаКлиенте
Процедура НаименованиеПриИзменении(Элемент)
ЧФ = СтрРазделить(Объект.Наименование," ");
Объект.Имя = ЧФ[0] + " " + Лев(ЧФ[1],1) + "." + Лев(ЧФ[2], 1) + ".";
КонецПроцедуры
1 минута