Каталог решений - Регистр сведений для хранения дополнительных данных

Регистр сведений для хранения дополнительных данных

Регистр сведений для хранения дополнительных данных

В наличии

Бывает необходимость для хранения доп данных в зависимости от места расположения базы и пользователя, для этого был создан дополнительный Регистр Сведений

Категория:

Описание

Измерения

  Пользователь     (СправочникСсылка.Пользователи)

  Контекст             (Строка 100)

  Идентификатор (Строка 100)

  СтрокаСоединенияСИБ (Строка 100)

Ресурсы

  Значение            (ЛюбаяСсылка, Булево, Строка, Дата, Число)

 

 

В модуле ФормыСписка на событие ПриНачалеРедактирования написано условие на добавление новой строки.

Процедура РегистрСведенийСписокПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
    Если НоваяСтрока Тогда
        ТекСтрока = ЭлементыФормы.РегистрСведенийСписок.ТекущиеДанные;
        ТекСтрока.СтрокаСоединенияСИБ = СтрокаСоединенияИнформационнойБазы();
    КонецЕсли;
КонецПроцедуры

В модуль объекта добавлена функция:

Функция ПолучитьЗначение(Контекст,Идентификатор) Экспорт
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    «ВЫБРАТЬ
    |    Нов_Константы.Значение
    |ИЗ
    |    РегистрСведений.Нов_Константы КАК Нов_Константы
    |ГДЕ
    |    Нов_Константы.Пользователь В (&Пользователь, ЗНАЧЕНИЕ(Справочник.Пользователи.ПустаяСсылка))
    |    И Нов_Константы.Контекст = &Контекст
    |    И Нов_Константы.Идентификатор = &Идентификатор
    |    И Нов_Константы.СтрокаСоединенияСИБ В (&СтрокаСоединенияСИБ, «»»»)
    |
    |УПОРЯДОЧИТЬ ПО
    |    Нов_Константы.СтрокаСоединенияСИБ УБЫВ,
    |    Нов_Константы.Пользователь УБЫВ»;
    
    Запрос.УстановитьПараметр(«Пользователь»,ПараметрыСеанса.ТекущийПользователь);
    Запрос.УстановитьПараметр(«Контекст»,Контекст);
    Запрос.УстановитьПараметр(«Идентификатор»,Идентификатор);
    Запрос.УстановитьПараметр(«СтрокаСоединенияСИБ»,СтрокаСоединенияИнформационнойБазы());
    Выборка = Запрос.Выполнить().Выбрать();
    
    Если Выборка.Следующий() Тогда
        Значение = Выборка.Значение;
    Иначе
        Выборка = Неопределено;
    КонецЕсли;
    
    Возврат Значение;    
    
КонецФункции

 

Пример использования данного регистра:

СоздатьПисьмо(РегистрыСведений.Нов_Константы.ПолучитьЗначение(«Почта»,»НовыеКонтрагенты»),МассивСтрок);

P.S. Идея не моя, но очень хорошая в плане использования регл. заданий, внешних обработок и т.п.

       В дальнейшем думаю выложить пару вещей с использованием данного регистра.

has been added to your cart:
Оформление заказа