Просматривая в интернете решения задачи 5.2 на управляемые формы, не удалось найти полного и корректного. Предлагаемый здесь вариант получился, вроде бы, полным. Но есть сомнения - не слишком ли громоздкий с точки зрения воспроизведения на экзамене.
Актуальная версия "каркасной конфигурации" доступна для скачивания со страницы с примерами https://1c.ru/spec/questions.htm. Судя по имени файла, предназначена она для платформы 8.3.17.1496.
Описание решения:
1. Добавлена подсистема УправляемыеФормы; добавлена константа ПутьКТомуНаСервере; изменено имя справочника ФизическиеЛица на Сотрудники (как по условию); в справочник добавлены реквизиты ИмяФайлаИсходное, ИмяФайлаВТоме - Строка(0), Фотография - ХранилищеЗначения; добавлена ФормаЭлемента.
По условию требуется обеспечить два варианта хранения в базе и в файле: реквизит Фотография для хранения в базе, комбинация константы ПутьКТомуНаСервере и реквизита ИмяФайлаВТоме для хранения в файле.
2. На форму элемента добавлены реквизит для отображения фотографии, реквизит для переключения места сохранения, команда для загрузки. Загрузка выполняется как по нажатию на кнопку, так и по нажатию на фотографию.
Чтобы в элементе АдресФотографии было изображение в свойствах установлено Вид = Поле картинки, для срабатывания нажатия Гиперссылка = Истина, чтобы не растягивалось на всю форму РастягиватьПоГоризотнали, РастягиватьПоВертикали = Ложь.
3. Добавлен обработчик нажатия на кнопку ЗагрузитьФотографию(), и обработчик нажатия на поле картинки АдресФотографииНажатие(). Код при интерактивной загрузке фотографии:
&НаКлиенте
Процедура ПослеЗакрытияВопроса(Результат, ДополнительныеПараметры) Экспорт
Модифицированность = Истина;
Объект.ИмяФайлаИсходное = ДополнительныеПараметры.СсылкаНаФайл.Имя;
АдресФотографии = ДополнительныеПараметры.Адрес;
Если Результат = КодВозвратаДиалога.Да Тогда
ТипХраненияФайла = "ВБазе";
Иначе
ТипХраненияФайла = "ВТоме";
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЗавершениеПомещенияФайла(ОписаниеПомещенногоФайла, ДополнительныеПараметры) Экспорт
Если ОписаниеПомещенногоФайла <> Неопределено Тогда
Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияВопроса", ЭтотОбъект, ОписаниеПомещенногоФайла);
ПоказатьВопрос(Оповещение, НСтр("ru = 'Хранить фотографию в базе?'"), РежимДиалогаВопрос.ДаНет, 0);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВыборФайлаДляЗагрузки()
ПараметрыДиалога = Новый ПараметрыДиалогаПомещенияФайлов;
ЗавершениеПомещенияФайла = Новый ОписаниеОповещения("ЗавершениеПомещенияФайла", ЭтотОбъект);
НачатьПомещениеФайлаНаСервер(ЗавершениеПомещенияФайла, , , , ПараметрыДиалога, УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура АдресФотографииНажатие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыборФайлаДляЗагрузки();
КонецПроцедуры
&НаКлиенте
Процедура ЗагрузитьФотографию(Команда)
ВыборФайлаДляЗагрузки();
КонецПроцедуры
Используется метод НачатьПомещениеФайлаНаСервер(), доступный начиная с версии 8.3.15, рекомендуемый вместо НачатьПомещениеФайла(), хотя и прежний будет работать т.к. у конфигурации установлена совместимость 8.3.12.
Выбор файла и уточнение "желания пользователя". В зависимости от ответа пользователя устанавливается ТипХраненияФайла, который будет использован "при записи самого элемента справочника" (см. код).
4. Добавлен обработчик ПередЗаписьюНаСервере(). Запись загруженного файла фотографии в реквизит справочника или в файл в зависимости от ТипХраненияФайла. Работать будет как в файловом, так и в клиент-серверном варианте.
&НаСервере
Функция ПолучитьПутьКТомуНаСервере()
ПутьКТомуНаСервере = Константы.ПутьКТомуНаСервере.Получить();
мсКаталог = НайтиФайлы(ПутьКТомуНаСервере);
Если Не (мсКаталог.Количество() = 1 И мсКаталог[0].ЭтоКаталог()) Тогда
ПутьКТомуНаСервере = КаталогВременныхФайлов();
// в случае ЗаписатьИЗакрыть сообщение не будет видно, можно сделать вывод в родительской форме, но это сосем далеко за рамками задачи
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не найден каталог для хранения фотографий - 'Путь к тому на сервере', будет использован каталог временных файлов.";
Сообщение.Сообщить();
КонецЕсли;
Разделитель = ПолучитьРазделительПути();
Если Прав(ПутьКТомуНаСервере, 1) <> Разделитель Тогда
ПутьКТомуНаСервере = ПутьКТомуНаСервере + Разделитель;
КонецЕсли;
Возврат ПутьКТомуНаСервере;
КонецФункции
&НаСервере
Функция ПоместитьФайлВТом()
ПутьКТомуНаСервере = ПолучитьПутьКТомуНаСервере();
ПутьКФайлуВТоме = ПутьКТомуНаСервере;
Пока НайтиФайлы(ПутьКФайлуВТоме).Количество() > 0 Цикл // на случай если файл с таким именем уже есть
ИмяФайлаВТоме = Строка(Новый УникальныйИдентификатор);
ПутьКФайлуВТоме = ПутьКТомуНаСервере + ИмяФайлаВТоме;
КонецЦикла;
ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресФотографии);
ДвоичныеДанные.Записать(ПутьКФайлуВТоме);
Возврат ИмяФайлаВТоме;
КонецФункции
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Если ТипХраненияФайла = "ВБазе" Тогда
Если ТекущийОбъект.ИмяФайлаВТоме <> "" Тогда
Попытка
УдалитьФайлы(ПолучитьПутьКТомуНаСервере() + ТекущийОбъект.ИмяФайлаВТоме);
ТекущийОбъект.ИмяФайлаВТоме = "";
Исключение
// в случае ЗаписатьИЗакрыть сообщение не будет видно, можно сделать вывод в родительской форме, но это сосем далеко за рамками задачи
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось удалить файл фотографии в томе.";
Сообщение.Сообщить();
КонецПопытки;
КонецЕсли;
ТекущийОбъект.Фотография = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресФотографии));
ИначеЕсли ТипХраненияФайла = "ВТоме" Тогда
ТекущийОбъект.ИмяФайлаВТоме = ПоместитьФайлВТом();
ТекущийОбъект.Фотография = Новый ХранилищеЗначения(Неопределено);
КонецЕсли;
КонецПроцедуры
КаталогВременныхФайлов() используется для того, чтобы при проверке у экзаменатора не возникло ошибки, перед сдачей базы на проверку нужно будет очистить значение константы ПутьКТомуНаСервере.
5. Добавлен обработчик ПриСозданииНаСервере(). Реквизит ИмяФайлаВТоме выполняет дополнительную функцию указания того, где хранится фотография.
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Объект.ИмяФайлаВТоме = "" Тогда
АдресФотографии = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "Фотография");
Иначе
ПутьКФайлуВТоме = ПолучитьПутьКТомуНаСервере() + Объект.ИмяФайлаВТоме;
Если НайтиФайлы(ПутьКФайлуВТоме).Количество() > 0 Тогда
АдресФотографии = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ПутьКФайлуВТоме), УникальныйИдентификатор);
Иначе
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Не удалось найти файл фотографии в томе.";
Сообщение.Сообщить();
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Всё описанное собрано в прикрепленном файле. Решение не учитывает все возможные варианты действий и желаний пользователя, предполагается, что будет достаточно для экзамена.
Ограничение ответственности.
Материалы этой публикации предоставляются "как есть". Вы можете пользоваться ими, вносить изменения.
Автор не гарантирует, что результаты использования будут соответствовать Вашим ожиданиям.
Ответственности за прямой или косвенный ущерб, за возможные недостатки предоставленных материалов, а также за результаты их использования автор не несет.
Вы используете материалы этой публикации (включая приложенные файлы) на свой риск и под свою ответственность.
Вступайте в нашу телеграмм-группу Инфостарт
