Поле картинка в 1С

Поделиться
HTML-код
  • Опубликовано: 29 дек 2022
  • Код (пишется в Модуле Формы Справочника):
    &НаКлиенте
    Процедура ВыбратьФайлКартинки(Команда)
    Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла",ЭтотОбъект);
    НачатьПомещениеФайла(Оповещение,,,Истина, УникальныйИдентификатор);
    КонецПроцедуры
    &НаКлиенте
    Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла,ДополнительныйПараметр) Экспорт
    Если НЕ Результат Тогда
    Возврат;
    КонецЕсли;
    СсылкаНаКартинку = Адрес;
    КонецПроцедуры
    &НаСервере
    Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
    Если ЭтоАдресВременногоХранилища(СсылкаНаКартинку) Тогда
    ТекущийОбъект.ДанныеКартинки = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(СсылкаНаКартинку));
    КонецЕсли;
    КонецПроцедуры
    &НаСервере
    Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеКартинки");
    КонецПроцедуры

Комментарии • 4

  • @BelogurovDmitryAnatolievich
    @BelogurovDmitryAnatolievich  Год назад +1

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

  • @GoodMorning-mv4hi
    @GoodMorning-mv4hi Год назад +1

    Димммооооон, привет, с Новым годом) РПЗ 09-01 если цифрами не ошибся, ну ты понял))

  • @pummalos
    @pummalos Год назад +1

    Совет-просьба, не размахивай руками плз. Их резкие мельтишения на экране разрывает зрительный контакт. Ну или немного попрактикуйся "на кошках". Без негатива. Создателю контента респект в любом случае.