&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
:
// Проверим описание файла основной картинки
Если ЗначениеЗаполнено(Объект.ФайлКартинки) Тогда
мвДоработки.УстановитьОписаниеПрисоединенногоФайлаНоменклатуры(Объект.ФайлКартинки, "Основной вид");
КонецЕсли;
// Проверим описание файлов дополнительных картинок
СписокФайловБезОписаний = мвДоработки.СписокДополнительныхПрисоединенныхФайловНоменклатурыБезОписания(Объект.Ссылка);
Если СписокФайловБезОписаний.Количество() > 0 Тогда
Для Сч = 1 По СписокФайловБезОписаний.Количество() Цикл
ФайлБезОписания = СписокФайловБезОписаний[Сч-1].Значение;
ВвестиОписаниеПрисоединенногоФайлаНоменклатуры(ФайлБезОписания);
КонецЦикла;
КонецЕсли;
:
КонецПроцедуры
&НаКлиенте
Процедура ВвестиОписаниеПрисоединенногоФайлаНоменклатуры(ФайлБезОписания)
ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить("ПрисоединенныйФайлНоменклатуры", ФайлБезОписания);
Оповещение = Новый ОписаниеОповещения("ПослеВводаОписания", ЭтотОбъект, ДополнительныеПараметры);
Описание = "Дополнительный вид";
ВводСтрокиЗаголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Введите описание присоединенного файла: ""%1""'"),
ФайлБезОписания);
ПоказатьВводСтроки(Оповещение, Описание, ВводСтрокиЗаголовок);
КонецПроцедуры
&НаКлиенте
Процедура ПослеВводаОписания(Результат, ДополнительныеПараметры) Экспорт
Если Результат <> Неопределено Тогда
ПрисоединенныйФайлНоменклатуры = ДополнительныеПараметры.ПрисоединенныйФайлНоменклатуры;
ДубльПоОписанию = мвДоработки.ПроверитьУникальностьОписанияПрисоединенногоФайлаНоменклатуры(Объект.Ссылка, Результат);
Если ДубльПоОписанию <> Неопределено Тогда
ПредупреждениеПользователю(ПрисоединенныйФайлНоменклатуры, ДубльПоОписанию, Результат);
Возврат;
КонецЕсли;
мвДоработки.УстановитьОписаниеПрисоединенногоФайлаНоменклатуры(ПрисоединенныйФайлНоменклатуры, Результат);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПредупреждениеПользователю(ПрисоединенныйФайлНоменклатуры, ДубльПоОписанию, Описание)
ДополнительныеПараметры = Новый Структура;
ДополнительныеПараметры.Вставить("ПрисоединенныйФайлНоменклатуры", ПрисоединенныйФайлНоменклатуры);
Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияПредупреждение", ЭтотОбъект, ДополнительныеПараметры);
ЗаголовокПредупреждения = "Обнаружено дублирующее описание файла";
ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Обнаружено дублирующее присоединенного описание у файла: %1
|""%2""'"),
ДубльПоОписанию, Описание);
ПоказатьПредупреждение(Оповещение, ТекстПредупреждения, 10, ЗаголовокПредупреждения);
КонецПроцедуры
&НаКлиенте
Процедура ПослеЗакрытияПредупреждение(ДополнительныеПараметры) Экспорт
// Здесь можно повторно запросить описание файла (по заказу клиента)
КонецПроцедуры |
