Тип реквизита справочника хранилище значений

Категории

—>

рубрики: Платформа 8.3 | Дата: 13 июля, 2018

Платформа 1С:Предприятия предоставляет массу возможностей для хранения данных всевозможных типов.
Но зачастую этих возможностей не хватает. И тогда нам на помощь приходит специальный объект — ХранилищеЗначения. Этот объект позволяет хранить в специальном формате как стандартные объекты 1С:Предприятия, например, таблица значений, так и нестандартные, для которых тип в платформе не предусмотрен. К нестандартным типам могут быть отнесены файлы. Так, например, с помощью хранилища значений в базе данных 1С можно хранить фотографии сотрудников, сканы документов, внешние обработки и т.д. Преимуществом здесь является то, что все эти объекты храняться в самой базе. Соответственно при развертывании новой базы из резервной копии все эти объекты также будут присутствовать в новой базе. С другой стороны если хранить в базе файлы большого размера это может значительно увеличить ее объем и отрицательно сказаться на работоспособности. Поэтому здесь необходимо соблюдать разумный баланс.

Рассмотрим работу с хранилищем значений на примере. Создадим в конфигураторе специальный справочник — назовем его ВнешниеОбъекты, а у справочника в свою очередь создадим реквизит Объект с типом ХранилищеЗначения

И теперь мы можем создавать в этом справочнике элементы, а в реквизит Объект каждого элемента записывать файл.

Работа с хранилищем значений очень проста. Если мы заглянем в синтакс-помощник, то увидим, что у этого объекта всего лишь один метод и один конструктор.

А теперь для демонстрации напишем простейший код, который будет записывать файл в реквизит Объект ранее созданного элемента справочника, а затем читать этот файл из реквизита и записывать его на диск, но уже под другим именем.

&НаСервере
Процедура ЗагрузитьВыгрузитьФайл(ЭлементСправочника)

	ОбъектСправочника = ЭлементСправочника.ПолучитьОбъект();

	//Помещаем картинку в хранилище значений
	ЯрлыкЗагрузка = Новый Картинка("g:musorfavicon.ico");
	ХранилищеЗагрузка = Новый ХранилищеЗначения(ЯрлыкЗагрузка);

	//Записываем элемент справочника
	ОбъектСправочника.Объект = ХранилищеЗагрузка;
	ОбъектСправочника.Записать();

	//Выгружаем картинку из хранилища значений в файл
	ИмяФайла = "g:musorfavicon_1.ico";
	ЯрлыкВыгрузка = ОбъектСправочника.Объект.Получить();
	ЯрлыкВыгрузка.Записать(ИмяФайла);

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

И несколько пояснений к коду.

• Объект помещается в хранилище непосредственно при создании хранилища с помощью конструктора.

• Нельзя просто прочитать объект из хранилища просто обратившись к реквизиту справочника как мы всегда привыкли это делать с другими типами данных. Вместо этого нужно использовать метод Получить() хранилища значений.

Чтобы сохранять в хранилище другие типы файлов, отличные от картинок, можно использовать объект ДвоичныеДанные. Чисто теоретически в хранилище значений можно даже хранить элементы справочников, документы и т.д. Но на практике это не имеет никакого смысла. А вот использовать хранилище значений для хранения таблицы значений, дерева значений и других универсальных коллекций иногда можно.

&НаСервере
Процедура СохранениеВХранилищеЗначений();

   // *** 1.Пример (Таблица значений):
   ЗначенияТЗ = Новый ТаблицаЗначений(); // Создание значения «ТЗ»

   // Вставка в хранилище значений
   Хранилище_Зн = Новый ХранилищеЗначения(ЗначенияТЗ, Новый СжатиеДанных(9));// «9» — макс.степень сжатия

   // Сохранение значения в реквизит объекта конфигурации (тип: ХранилищеЗначения)
   СправочникСтранаСсылка = Справочники.Страны.НайтиПоНаименованию(«Испания»);
   Если Не СправочникСтранаСсылка.Пустая() Тогда
       // Изменим и запишем численность жителей в стране
       СтранаИспания = СправочникСтранаСсылка.ПолучитьОбъект();
       СтранаИспания.ХранилищеЗначения = Хранилище_Зн;
       СтранаИспания.Записать();
   КонецЕсли;

   // *** 2.Пример (Табличный документ):
   ЗначенияТабДок=Новый ТабличныйДокумент;
   ЗначенияТабДок.Вывести(ЭлементыФормы.ПолеТабличногоДокумента1);
   Хранилище_ТабДок=Новый ХранилищеЗначения(ЗначенияТабДок);

   // *** 3.Пример (Структура):
   ЗначенияСтр = Новый Структура(); // Создание значения «Структура»
   ЗначенияСтр.Вставить(«Код», «34»);
   ЗначенияСтр.Вставить(«Наименование», «Испания»);
   ЗначенияСтр.Вставить(«Описание», «Европейская страна, расположенная на Пиренейском полуострове»);
   ЗначенияСтр.Вставить(«Население», 46600000);
   // Вставка в хранилище значений
   Хранилище_Стр = Новый ХранилищеЗначения(ЗначенияСтр, Новый СжатиеДанных(9));// «9» — макс.степень сжатия
   ЗначениеВФайл(«D:import», Хранилище_Стр); // Сохранение значения в файл

   // *** 4.Пример (Любой файл) :
   ФайлДвоичныеДанные = Новый ДвоичныеДанные(«D:importКлиентБанк_РБ.exe»);
   Хранилище_Файл = Новый ХранилищеЗначения(ФайлДвоичныеДанные, Новый СжатиеДанных(0));// «0» — без сжатия

   // *** 5.Пример (Файл картинка) :
   ФайлФото = Новый Картинка(«D:importФотоСотрудника.png»);
   Хранилище_Фото = Новый ХранилищеЗначения(ФайлФото, Новый СжатиеДанных(5));// «5» — средн.степень сжатия

   // *** 6.Пример (Текстовый файл) :
   ФайлТекст = Новый ЧтениеТекста(«D:importВойна_и_мир.txt»);
   ТекстИзФайла = ФайлТекст.Прочитать();
   Хранилище_Текст = Новый ХранилищеЗначения(ТекстИзФайла, Новый СжатиеДанных(1));// «1» — мин.степень сжатия

   // *** 7.Пример (Отчет/обработка 1С) :
   Хранилище_Epf = Новый ХранилищеЗначения(Новый ДвоичныеДанные(«D:importOtchet_realizacija_2020.epf», СтепеньСжатия));

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

&НаСервере
Процедура ВосстановлениеИзХранилищеЗначений();ИмяФайла = «D:importВойна_и_мир.txt»;// Двоичные данные можно восстановить из хранилища значения методом Получить и записать в файл методом Записать()
    Если ТипЗнч(РеквизитХранилище) = Тип(«ДвоичныеДанные») Тогда// Хранилище.Получить()<>Неопределено Тогда // Процедура извлекает данные из хранилища (требует времени)
        // Для больших объемов данных рекомендуется использовать доп.реквизит (Например: Булево) Содержит данные — Истина
        ДанныеХранилища = РеквизитХранилище.Получить();
        Если ДанныеХранилища = Неопределено Тогда
            Сообщить(«Ошибка получения данных из хранилища значений 1С»);
        КонецЕсли;
        ДанныеХранилища.Записать(ИмяФайла); // Записываем восстановленые данные в файл

        // Восстановление Табличного документа

ЭлементыФормы.ПолеТабличногоДокумента1.Вывести(ДанныеХранилища);// Восстановление и запуск Отчета/обработки 1С
        ИмяФайла_Epf = «D:importOtchet_realizacija_2020.epf»;
        ДвоичныеДанные = РеквизитХранилище.Получить();
        ДвоичныеДанные.Записать(ИмяФайла_Epf);
        Epf = ВнешниеОбработки.Создать(ИмяФайла_Epf);
        Epf.ПолучитьФорму().Открыть();

    Иначе

ДанныеХранилища = РеквизитХранилище;
    КонецЕсли;// Файлы зарегистрированного типа (doc, xls, pdf, jpg, txt, exe…)
    ЗапуститьПриложение(ИмяФайла);

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

&НаКлиенте
Процедура ОчисткаРеквизитаХранилищеЗначений();РеквизитХранилище = Неопределено;

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

&НаКлиенте
Процедура ПроверкаЗначенияХранилищеЗначений();Значение = РеквизитХранилище.Получить();
    Если Значение <> Неопределено Тогда
        Если ТипЗнч(Значение) = Тип(«Строка») Тогда
            Сообщить(«Это строка»);
        ИначеЕсли ТипЗнч(Значение) = Тип(«Картинка») Тогда
            Сообщить(«Это фотография (картинка)»);
        КонецЕсли;
    КонецЕсли;

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