Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 06:39

Действия по кнопке "Удалить картинку" на форме элемента справочника Номенклатуры

Автор himocha14, 09 авг 2019, 22:42

0 Пользователей и 1 гость просматривают эту тему.

himocha14

  Доброго времени суток!
 На форме элемента создал кнопки "Загрузить картинку" и "Удалить картинку". Все действия по загрузке отрабатываются без проблем. Изображение сохраняется. Код ниже:
 
&НаКлиенте
Процедура ЗагрузитьКартинку(Команда)
   
     Оповещение = Новый ОписаниеОповещения("ЗагрузитьКартинкуЗавершение", ЭтотОбъект);
     НачатьПомещениеФайла(Оповещение, , , Истина, УникальныйИдентификатор);
   
КонецПроцедуры

&НаКлиенте
Процедура ЗагрузитьКартинкуЗавершение(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) Экспорт
   
    Если НЕ Результат Тогда
        Возврат;
    КонецЕсли;
    АдресКартинки = Адрес;
    Модифицированность = Истина;
   
КонецПроцедуры

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

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
    Если ЭтоАдресВременногоХранилища(АдресКартинки) Тогда
        ТекущийОбъект.Картинка = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(АдресКартинки));
    КонецЕсли;
КонецПроцедуры

Моя проблема  в том, что я не могу понять как описать подобные процедуры для удаления картинки. В сети не нашёл информацию об этом. Подскажите, как можно справиться, либо дайте зацепку. Заранее благодарю.

himocha14

Решил задачу следующим кодом:

&НаКлиенте
Процедура УдалитьКартинку(Команда)

ЭтотОбъект.АдресКартинки = "";
УдалениеКартинки();

КонецПроцедуры

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


black


Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск