Как программно найти запись в регистре сведений

Вступайте в мою группу помощник программиста.
В ней мы обсуждаем программирование в 1С.

/// Как прочитать записи регистра сведений
/// в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПрочитатьЗаписиРегистраСведенийНаСервере()
 
    // Прочитаем все записи регистра сведений "ЦенаНаЕдуДляКлиентов"
    // для организации ООО "Ромашка", упорядоченные по дате.
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ЦенаНаЕдуДляКлиентов.Период,
        |   ЦенаНаЕдуДляКлиентов.Регистратор,
        |   ЦенаНаЕдуДляКлиентов.НомерСтроки,
        |   ЦенаНаЕдуДляКлиентов.Активность,
        |   ЦенаНаЕдуДляКлиентов.Номенклатура,
        |   ЦенаНаЕдуДляКлиентов.Контрагент,
        |   ЦенаНаЕдуДляКлиентов.Организация,
        |   ЦенаНаЕдуДляКлиентов.Цена
        |ИЗ
        |   РегистрСведений.ЦенаНаЕдуДляКлиентов КАК ЦенаНаЕдуДляКлиентов
        |ГДЕ
        |   ЦенаНаЕдуДляКлиентов.Активность = Истина И
        |   ЦенаНаЕдуДляКлиентов.Организация = &ВыбОрганизация
        |УПОРЯДОЧИТЬ ПО
        |   ЦенаНаЕдуДляКлиентов.Период";
 
    Запрос.УстановитьПараметр(
        "ВыбОрганизация",
        Справочники.Организации.НайтиПоНаименованию("ООО ""Ромашка""")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
 
        Сообщить(
            "[" + Записи.Период + "] " +
            Записи.Контрагент + " " +
            Записи.Номенклатура + " " +
            Записи.Цена + " руб."
        );
 
    КонецЦикла;
 
КонецПроцедуры
 
/// Как получить наиболее поздние записи (срез последних)
/// регистра сведений на указанную дату (включительно)
/// в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПолучитьНаиболееПоздниеЗаписиРегистраСведенийНаСервере()
 
    // За возможности выборки наиболее поздних записей регистра
    // сведений (среза последних) в разрезе заданной аналитики
    // отвечает виртуальная таблица СрезПоследних.
    // У неё есть следующие параметры:
    // 1. Период (включительно)
    // 2. Условие (например, Организация = &ВыбОрганизация)    
 
    // Получим цены на бананы для каждого контрагента
    // на конец 1 квартала 2014 года (включительно)
    // по организации ООО "Ромашка".
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Период,
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Активность,
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Номенклатура,
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Контрагент,
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Организация,
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Цена
        |ИЗ
        |   РегистрСведений.ЦенаНаЕдуДляКлиентов.СрезПоследних(
        |       ДАТАВРЕМЯ(2014, 03, 31, 23, 59, 59),
        |       Активность = Истина И
        |       Организация = &ВыбОрганизация И
        |       Номенклатура = &ВыбНоменклатура
        |   ) КАК ЦенаНаЕдуДляКлиентовСрезПоследних
        |УПОРЯДОЧИТЬ ПО
        |   ЦенаНаЕдуДляКлиентовСрезПоследних.Контрагент";
 
    Запрос.УстановитьПараметр("ВыбОрганизация",
        Справочники.Организации.НайтиПоНаименованию("ООО ""Ромашка""")
    );
    Запрос.УстановитьПараметр("ВыбНоменклатура",
        Справочники.Номенклатура.НайтиПоНаименованию("Банан")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
        Сообщить(
            "[" + Записи.Контрагент + ", " + Записи.Период + "] " +            
            Записи.Номенклатура + " " +
            Записи.Цена + " руб."
        );
    КонецЦикла;
 
КонецПроцедуры
 
/// Как получить наиболее ранние записи (срез первых)
/// регистра сведений на указанную дату (включительно)
/// в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПрочитатьНаиболееРанниеЗаписиРегистраСведенийНаСервере()    
 
    // За возможности выборки наиболее ранних записей регистра
    // сведений (среза первых) в разрезе заданной аналитики
    // отвечает виртуальная таблица СрезПервых.
    // У неё есть следующие параметры:
    // 1. Период (включительно)
    // 2. Условие (например, Организация = &ВыбОрганизация)    
 
    // ! Нужно внимательно вдуматься. СрезПервых получает по каждой
    // комбинации измерений наиболее раннюю запись, но НЕ БОЛЕЕ
    // РАННЮЮ, чем указанная дата.    
 
    // Получим самые первые цены, которые были установлены на бананы
    // для каждого контрагента в 2014 году (включительно)
    // по организации ООО "Ромашка".
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Период,
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Активность,
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Номенклатура,
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Контрагент,
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Организация,
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Цена
        |ИЗ
        |   РегистрСведений.ЦенаНаЕдуДляКлиентов.СрезПервых(
        |       ДАТАВРЕМЯ(2014, 01, 01, 00, 00, 00),
        |       Активность = Истина И
        |       Организация = &ВыбОрганизация И
        |       Номенклатура = &ВыбНоменклатура
        |   ) КАК ЦенаНаЕдуДляКлиентовСрезПервых
        |УПОРЯДОЧИТЬ ПО
        |   ЦенаНаЕдуДляКлиентовСрезПервых.Контрагент";
 
    Запрос.УстановитьПараметр("ВыбОрганизация",
        Справочники.Организации.НайтиПоНаименованию("ООО ""Ромашка""")
    );
    Запрос.УстановитьПараметр("ВыбНоменклатура",
        Справочники.Номенклатура.НайтиПоНаименованию("Банан")
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
        Сообщить(
            "[" + Записи.Контрагент + ", " + Записи.Период + "] " +
            Записи.Номенклатура + " " +
            Записи.Цена + " руб."
        );
    КонецЦикла;
 
КонецПроцедуры
 
/// Как найти и изменить програмно записи в регистр сведений
/// документа в 1с 8.3, 8.2
 
&НаСервере
Процедура КакНайтиИИзменитьЗаписиДокументаНаСервере()
 
    // Предположим, у нас есть ссылка на проведенный документ
    // "Установка цен на еду" № ВМБП-000001
 
    УстановкаЦенСсылка =
        Документы.УстановкаЦенНаЕдуДляКлиентов.НайтиПоНомеру(
            "ВМБП-000001", '20141231'
        );
 
    // Мы знаем, что этот документ делает записи в регистр
    // сведений "ЦенаНаЕдуДляКлиентов":
    // [Организация, Контрагент, Номенклатура] [Цена]
 
    // Наша задача: найти эти записи и изменит их (например, удвоим
    // цену) и записать вместо старых.
 
    // Используем объектную технику получения записей,
    // ведь мы будем их изменять.
 
    УстановкаЦен = УстановкаЦенСсылка.ПолучитьОбъект();
 
    // Получим набор записей этого документа в регистр
    // "ЦенаНаЕдуДляКлиентов"
 
    НаборЗаписей = УстановкаЦен.Движения.ЦенаНаЕдуДляКлиентов;
 
    // Прочитаем записи из базы данных.
 
    НаборЗаписей.Прочитать();
 
    Для Каждого Запись Из НаборЗаписей Цикл
 
        // Выведем старые значения.
        Сообщить(
            "[" + Запись.Организация + ", " +
            Запись.Контрагент + ", " + 
            Запись.Номенклатура + "] " +
            "[" + Запись.Цена + "]"
        );
 
        Запись.Цена = Запись.Цена * 2;
 
    КонецЦикла;
 
    // Добавим новую запись.
 
    НоваяЗапись = НаборЗаписей.Добавить();
    НоваяЗапись.Период = ТекущаяДата();
    НоваяЗапись.Организация = 
        Справочники.Организации.НайтиПоНаименованию("ООО ""Ромашка""");
    НоваяЗапись.Контрагент =
        Справочники.Контрагенты.НайтиПоНаименованию("Петров Ю.В.");
    НоваяЗапись.Номенклатура =
        Справочники.Номенклатура.НайтиПоНаименованию("Банан");
    НоваяЗапись.Цена = 500;    
 
    // Разом запишем набор записей.
    НаборЗаписей.Записать(
        Истина // Удалим старые записи и запишем вместо них новые.
    );
 
    // Теперь записи регистра "ЦенаНаЕдуДляКлиентов" для документа
    // № ВМБП000001, отличаются от тех, что были записаны
    // документом при проведении. Чтобы вернуть их к начальному виду
    // нужно заново провести документ.
 
КонецПроцедуры
 
/// Как прочитать записи документа в регистр сведений запросом
/// в 1с 8.3, 8.2
 
&НаСервере
Процедура КакПрочитатьЗаписиДокументаЗапросомНаСервере()    
 
    // Этот прием используется, если не требуется изменять
    // найденные записи.
 
    // Предположим, у нас есть ссылка на проведенный документ
    // "Установка цен на еду" № ВМБП-000001
 
    УстановкаЦенСсылка =
        Документы.УстановкаЦенНаЕдуДляКлиентов.НайтиПоНомеру(
            "ВМБП-000001", '20141231'
        );
 
    // Мы знаем, что этот документ делает записи в регистр
    // сведений "ЦенаНаЕдуДляКлиентов".
    // Прочитаем эти записи запросом.
 
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   ЦенаНаЕдуДляКлиентов.Период,
        |   ЦенаНаЕдуДляКлиентов.Регистратор,
        |   ЦенаНаЕдуДляКлиентов.НомерСтроки,
        |   ЦенаНаЕдуДляКлиентов.Активность,
        |   ЦенаНаЕдуДляКлиентов.Номенклатура,
        |   ЦенаНаЕдуДляКлиентов.Контрагент,
        |   ЦенаНаЕдуДляКлиентов.Организация,
        |   ЦенаНаЕдуДляКлиентов.Цена
        |ИЗ
        |   РегистрСведений.ЦенаНаЕдуДляКлиентов КАК ЦенаНаЕдуДляКлиентов
        |ГДЕ
        |   ЦенаНаЕдуДляКлиентов.Регистратор = &ВыбРегистратор
        |УПОРЯДОЧИТЬ ПО
        |   ЦенаНаЕдуДляКлиентов.НомерСтроки";
 
    Запрос.УстановитьПараметр(
        "ВыбРегистратор",
        УстановкаЦенСсылка
    );
 
    РезультатЗапроса = Запрос.Выполнить();
 
    Записи = РезультатЗапроса.Выбрать();
 
    Пока Записи.Следующий() Цикл
        Сообщить(
            "[" + Записи.Организация + ", " +
            Записи.Контрагент + ", " + 
            Записи.Номенклатура + "] " +
            "[" + Записи.Цена + "] <" +
            Записи.Регистратор + ">"
        );
    КонецЦикла;
 
КонецПроцедуры
 
/// Как создать записи в регистр сведений без привязки к
/// документу в 1с 8.3, 8.2
 
&НаСервере
Процедура КакСоздатьЗаписиБезПривязкиКДокументуНаСервере()
 
    // Создавать записи в регистре сведений без привязки
    // к документу можно только для регистров, у которых
    // выбран режим записи "Независимый". В нашей конфигурации
    // таким регистром является "КурсВалют".    
    // Если бы мы захотели проделать такую же штуку для
    // регистра "ЦенаНаЕдуДляКлиентов", то нам бы пришлось
    // воспользоваться документом "ОперацияБух" или им подобным
    // для ручных операций (см. аналогичный пример в регистрах
    // накопления).
 
    // Пример №1.
 
    // Для единичных записей удобно пользоваться менеджером
    // записей.
 
    НоваяЗапись = РегистрыСведений.КурсВалют.СоздатьМенеджерЗаписи();
    НоваяЗапись.Период = '20140101';
    НоваяЗапись.Валюта = Справочники.Валюты.НайтиПоНаименованию("Доллар");
    НоваяЗапись.Курс = 30;
    НоваяЗапись.Записать(
        Истина // замещать, если уже есть запись с такими же измерениями
        // и таким же периодом
    );
 
    // Пример №2.
 
    // При помощи менеджера можно также легко
    // менять или удалять единичные записи.
    // Найдём, изменим, а затем удалим созданную запись.
 
    Выборка = РегистрыСведений.КурсВалют.Выбрать('20140101', '20140101');
    Если Выборка.Следующий() Тогда
        Запись = Выборка.ПолучитьМенеджерЗаписи();
        // изменим
        Запись.Прочитать();
        Запись.Курс = 25;
        // запишем
        Запись.Записать(Истина);
        // и тут же удалим
        Запись.Удалить();
    КонецЕсли;
 
    // Пример №3.
 
    // Если нужно изменить сразу много записей - 
    // удобнее всего использовать набор записей.
 
    // Запишем курсы валют за первые 3 дня 2014 года.
 
    Доллар = Справочники.Валюты.НайтиПоНаименованию("Доллар");
 
    НаборЗаписей = РегистрыСведений.КурсВалют.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Валюта.Установить(Доллар);    
 
    Запись01 = НаборЗаписей.Добавить();
    Запись01.Период = '20140101';
    Запись01.Валюта = Доллар;
    Запись01.Курс = 30;
 
    Запись02 = НаборЗаписей.Добавить();
    Запись02.Период = '20140102';
    Запись02.Валюта = Доллар;
    Запись02.Курс = 40;
 
    Запись03 = НаборЗаписей.Добавить();
    Запись03.Период = '20140103';
    Запись03.Валюта = Доллар;
    Запись03.Курс = 60;
 
    // Запишем весь набор разом.
 
    НаборЗаписей.Записать(
        Истина // затрём все другие записи по 
        // доллару (мы установили его в отборе)
    );
 
КонецПроцедуры
 
/// Скачать и выполнить эти примеры на компьютере

(5)
Функция ПроверитьЗаполнениеКатегории(ДокОснование,Категория) экспорт
// проверяет стоит ли категория в документе    
// док основание тип документ
//параметры Докоснование ссылка на документ
//параметры категория строка с названием типа проверки категории
// возвращает булево

Кат = Справочники.КатегорииОбъектов.НайтиПоНаименованию(категория);
//дописывать здесь    

   //РС = Регистрысведений.КатегорииОбъектов;

   Док = ДокОснование.Ссылка;    
   Запрос = новый Запрос;
   Запрос.УстановитьПараметр(“Док”,Док);
   Запрос.УстановитьПараметр(“Категория”,Кат);

       Запрос.Текст =
   “ВЫБРАТЬ
   |    КатегорииОбъектов.Объект,
   |    КатегорииОбъектов.Категория
   |ИЗ
   |    РегистрСведений.КатегорииОбъектов КАК КатегорииОбъектов
   |ГДЕ
   |    КатегорииОбъектов.Объект = &Док
   |    И КатегорииОбъектов.Категория = &категория”;
   результат = Запрос.Выполнить().Выгрузить();

         если результат.Количество()= 0 тогда
   ЕстьКатегория = ложь;

       иначе  ЕстьКатегория = истина;

   КонецЕсли;

    возврат ЕстьКатегория;    
       КонецФункции

Регистры сведений в 1С — это прикладные объекты конфигурации для хранения данных в структурированном виде (в разрезе измерений). Например, в регистре сведений можно хранить курсы валют в разрезе валют, цены номенклатуры в разрезе номенклатур, ФИО физических лиц в разрезе физических лиц и т.д.

При проектировании разработчик указывает необходимость хранения данных в разрезе времени и минимальную периодичность, с которой записи будут храниться в регистре:

Регистры сведений, для которых указана периодичность, называются периодическими.

Изменение данных в регистре может осуществляться как вручную, так и при помощи документов. Режим записи в регистр определяет разработчик на этапе проектирования:

Физически регистр сведений представляет собой таблицу, в которой хранятся следующие данные:

  • измерения — описывают разрезы, в которых хранится информация;
  • период — поле, используемое для разворота данных по времени. Поле добавляется автоматически при указании свойства «Периодичность», отличного от «Непериодический»;
  • регистратор — поле, используемое для хранения документа, с которым связана запись. Поле добавляется автоматически при указании свойства «Режим записи» в значение «Подчинение регистратору»;
  • ресурсы — непосредственно хранят информацию для комбинации измерений;
  • реквизиты — дополнительная произвольная информация, относящаяся к конкретной записи регистра.

Для всех регистров сведений обеспечивается контроль уникальности записей, т.е. в регистре не может быть двух одинаковых записей. Одинаковыми считаются записи, у которых совпадают значения измерений, период (если регистр периодический) и регистратор (если регистр подчинен регистратору).

Добавление записей

Программно добавить записи в регистр сведений можно при помощи:

  • объекта НаборЗаписей;
  • объекта МенеджерЗаписи.

Объект МенеджерЗаписи можно использовать только для работы с независимыми регистрами. Причем можно обрабатывать только одну запись. Объект предназначен в основном для интерактивной работы, но программно с ним также можно работать. На системном уровне МенеджерЗаписи использует объект НаборЗаписей.

Общая схема добавления записей в регистр сведений при помощи объекта НаборЗаписей выглядит так:

  • создание объекта НаборЗаписей;
  • наложение отборов на измерения, период (если регистр периодический) и регистратора (если регистр подчинен регистратору);
  • добавление и заполнение значений полей записей;
  • запись набора записей.
// Добавление записи в независимый непериодический регистр сведений
НаборЗаписей = РегистрыСведений.ВерсииПодсистем.СоздатьНаборЗаписей(); // Этап 1
НаборЗаписей.Отбор.ИмяПодсистемы.Установить(ИмяПодсистемы); // Этап 2
// Этап 3
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.ИмяПодсистемы = ИмяПодсистемы;
НоваяЗапись.Версия = НомерВерсии;
НаборЗаписей.Записать(); // Этап 4
// Добавление записи в независимый периодический регистр сведений
НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); // Этап 1
// Этап 2
НаборЗаписей.Отбор.Валюта.Установить(Доллар);
НаборЗаписей.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
// Этап3
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.Период = ТекущаяДата();
НоваяЗапись.Валюта = Доллар;
НоваяЗапись.Курс = 57.92;
НоваяЗапись.Кратность = 1;
НаборЗаписей.Записать(); // Этап 4

Общая схема добавления записей в регистр сведений при помощи объекта МенеджерЗаписи выглядит так:

  • создание объекта МенеджерЗаписи;
  • заполнение значений полей записи;
  • запись записи.
// Добавление записи в независимый непериодический регистр сведений
Запись = РегистрыСведений.ВерсииПодсистем.СоздатьМенеджерЗаписи(); // Этап 1
// Этап 2
Запись.ИмяПодсистемы = ИмяПодсистемы;
Запись.Версия = НомерВерсии;
Запись.Записать(); // Этап 3
// Добавление записи в независимый периодический регистр сведений
Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи(); // Этап 1
// Этап 2
Запись.Период = ТекущаяДата();
Запись.Валюта = Доллар;
Запись.Курс = 57.92;
Запись.Кратность = 1;
Запись.Записать(); // Этап 3

Изменение записей

Изменять существующие записи регистров сведений возможно при помощи объектов НаборЗаписей и МенеджерЗаписи. Ограничения объекта МенеджерЗаписи были описаны выше.

Общая схема редактирования записей регистров сведений:

  • создание объекта НаборЗаписей или МенеджерЗаписи;
  • наложение отборов;
  • чтение записей базы данных, соответствующих наложенным отборам;
  • редактирование прочитанных записей;
  • запись отредактированных записей.
// Редактирование записей с использованием объекта НаборЗаписей
НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); // Этап 1
// Этап 2
НаборЗаписей.Отбор.Период.Установить(ДатаКурса);
НаборЗаписей.Отбор.Валюта.Установить(Доллар);
НаборЗаписей.Прочитать(); // Этап 3
Для Каждого Запись Из НаборЗаписей Цикл 
     Запись.Курс = 57.84; // Этап 4
КонецЦикла;
НаборЗаписей.Записать(); // Этап 5
// Редактирование записей с использованием объекта МенеджерЗаписи
Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи(); // Этап 1
// Этап 2
Запись.Период = ДатаКурса;
Запись.Валюта = Доллар;
Запись.Прочитать(); // Этап 3
Если Запись.Выбран() Тогда // Проверка, что запись существует
    Запись.Курс = 57.92; // Этап 4
    Запись.Записать(); // Этап 5
КонецЕсли;

Чтение записей

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

Запрос = Новый Запрос;
Запрос.Текст =
    "ВЫБРАТЬ
    |  КурсыВалют.Период,
    |  КурсыВалют.Валюта,
    |  КурсыВалют.Курс
    |ИЗ
    |  РегистрСведений.КурсыВалют КАК КурсыВалют";

Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
    // обход результата выполнения запроса
КонецЦикла;

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

// Получение записи, у которой валюта равна значению из переменной «ВыбраннаяВалюта»
// и период МЕНЬШЕ или равен значению из переменной «ВыбраннаяДата»
Запрос = Новый Запрос;
Запрос.Текст = 
    "ВЫБРАТЬ
    |  КурсыВалютСрезПоследних.Период,
    |  КурсыВалютСрезПоследних.Валюта,
    |  КурсыВалютСрезПоследних.Курс
    |ИЗ
    |  РегистрСведений.КурсыВалют.СрезПоследних(&Период, Валюта = &Валюта) КАК КурсыВалютСрезПоследних";

Запрос.УстановитьПараметр("Валюта", ВыбраннаяВалюта);
Запрос.УстановитьПараметр("Период", ВыбраннаяДата);

Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
    // обход результата выполнения запроса
КонецЦикла;
// Получение записи, у которой валюта равна значению из переменной «ВыбраннаяВалюта»
// и период БОЛЬШЕ или равен значению из переменной «ВыбраннаяДата»
Запрос = Новый Запрос;
Запрос.Текст = 
    "ВЫБРАТЬ
    |  КурсыВалютСрезПервых.Период,
    |  КурсыВалютСрезПервых.Валюта,
    |  КурсыВалютСрезПервых.Курс
    |ИЗ
    |  РегистрСведений.КурсыВалют.СрезПервых(&Период, Валюта = &Валюта) КАК КурсыВалютСрезПервых";

Запрос.УстановитьПараметр("Валюта", ВыбраннаяВалюта);
Запрос.УстановитьПараметр("Период", ВыбраннаяДата);

Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
    // обход результата выполнения запроса
КонецЦикла;

Кроме чтения запросом возможно использование методов объектной модели.

Для непериодических регистров сведений:

  • Выбрать(Отбор, Порядок) — выбирает записи с указанным отбором;
  • ВыбратьПоРегистратору(Регистратор) — выбирает все записи указанного регистратора;
  • Получить(Отбор) — получает ресурсы записи с отбором по всем измерениям.

Для периодических регистров сведений:

  • Выбрать(НачалоИнтервала, КонецИнтервала, Отбор, Порядок) — выбирает записи с указанным отбором, у которых период находится между НачалоИнтервала и КонецИнтервала;
  • ВыбратьПоРегистратору(Регистратор) — выбирает все записи указанного регистратора;
  • Получить(Период, Отбор) — получает ресурсы записи с отбором по всем измерениям и периоду;
  • ПолучитьПервое(НачалоПериода, Отбор) — получает ресурсы наиболее ранней записи, соответствующей указанным периоду и отбору;
  • ПолучитьПоследнее(КонецПериода, Отбор) — получает ресурсы наиболее поздней записи, соответствующей указанным периоду и отбору;
  • СрезПервых(НачалоПериода, Отбор) — получает таблицу наиболее ранних записей, соответствующую указанным периоду и отбору;
  • СрезПоследних(КонецПериода, Отбор) — получает таблицу наиболее поздних записей, соответствующую указанным периоду и отбору.

Удаление записей

Для удаления записи (записей) в независимом регистре сведений необходимо:

  • создать набор записей;
  • наложить требуемые отборы на измерения и период (если регистр периодический);
  • записать набор записей без предварительного чтения.
  • НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей();
    
    НаборЗаписей.Отбор.Валюта.Установить(Доллар);
    НаборЗаписей.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
    
    НаборЗаписей.Записать();

    Для удаления записей в подчиненном регистре сведений необходимо:

    • создать набор записей;
    • наложить отбор на регистратора;
    • записать набор записей без предварительного чтения.
    НаборЗаписей = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Регистратор.Установить(СсылкаНаДокументРегистратор);
    НаборЗаписей.Записать();

    Очистка регистра сведений

    Для удаления всех записей в независимом регистре сведений достаточно записать набор записей этого регистра без установки отборов:

    НаборЗаписей = РегистрыСведений.КурсыВалют.СоздатьНаборЗаписей(); 
    НаборЗаписей.Записать();

    Запись в регистр сведений, подчиненный регистратору, возможна только при установке отбора по регистратору, поэтому для очистки таких регистров необходимо:

    • получить перечень ссылок всех регистраторов регистра сведений;
    • последовательно записать пустой набор записей с отбором по регистраторам из первого пункта.
    Запрос = Новый Запрос(
        "ВЫБРАТЬ
        | ЦеныНоменклатуры.Регистратор
        |ИЗ
        | РегистрСведений.ЦеныНоменклатуры КАК ЦеныНоменклатуры"
    );
    
    Выборка = Запрос.Выполнить().Выбрать();
    
    НаборЗаписей = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
    Пока Выборка.Следующий() Цикл 
         НаборЗаписей.Отбор.Регистратор.Установить(Выборка.Регистратор);
         НаборЗаписей.Записать();
    КонецЦикла;

    В статье рассмотрено описание и предназначение регистров сведений, а также примеры работы с регистрами сведений средствами встроенного языка 1С – создание и редактирование наборов записей, отдельных записей, работа с ключом записи.

    Содержание

    Регистры сведений в 1С 8

    Что такое регистр сведений

    Регистр сведений – это объект конфигурации, который предназначен для хранения произвольной информации в разрезе нескольких измерений. Например, можно хранить соответствие материально-ответственных лиц и складов, курсы валют или цену на товары. Можно представить регистр сведений как многомерную таблицу, где на каждом пересечении измерений хранятся значения, которые называются Ресурсы.

    Помимо измерений и ресурсов, у регистров сведений могут быть определены реквизиты – вспомогательная информация, служащая для уточнения данных – например, ответственный пользователь, комментарий и т.п.

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

    Периодические регистры сведений позволяют получить информацию о срезе наиболее ранних или наиболее поздних записей.

    Строки в многомерной таблице регистра сведений называются записями. Уникальность записей регистра сведений определяется как комбинация измерений и периода. В случае, если регистр сведений не периодический, то период будет не заполнен, и уникальные записи будут отличаться по комбинации измерений. Платформа не допускает создания двух записей с одинаковым набором измерений и периодом. Измерения и период образуют т.н. составной ключ, и называются ключевыми полями.

    Записи в регистр сведений могут вноситься как вручную, независимо одна от другой, так и при помощи документов, единым набором. Документ, которым вносится запись в регистр сведений, называется регистратором.

    Свойства регистра сведений. Основные настройки

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

    Периодичность регистра сведений

    Данное свойство отвечает за доступность стандартного реквизита Период. Периодичность может быть

    • В пределах секунды
    • В пределах дня
    • В пределах месяца
    • В пределах квартала
    • В пределах года

    В случае, если регистр сведений подчинен регистратору (см. ниже), становится доступным еще один вариант периода – по позиции регистратора.

    Поле Период входит в составной ключ записи; можно добавлять записи с одинаковым составом измерений, но с разным периодом. Если периодичность – по позиции регистратора, то дата документа может совпадать с точностью до секунды – все равно это будут разные записи, т.к. в этом случае позиция регистратора будет определяться как момент времени (Дата + ссылка на документ). В зависимости от выбранной периодичности, период записи будет автоматически приводиться к началу периода в свойстве Периодичность. Например, если указана периодичность “В пределах дня”, то к началу суток, если “В пределах месяца” – то соответственно к первому числу месяца, и т.д.

    Режим записи регистра сведений 1С

    Режим записи определяет, можно ли редактировать записи регистра сведений вручную, или они будут вноситься движениями документа-регистратора. Для регистров сведений с режимом записи “Независимый” можно указывать основной отбор для измерений. В случае, если при этом регистр сведений периодический, становится возможным указание флажка Основной отбор по периоду.

    Что такое ведущее измерение и основной отбор?

    Флаг Ведущее у измерения регистра сведений означает, то данная запись имеет смысл пока существует объект, ссылка на который хранится в данном измерении. Например, если удалить из базы данных сотрудника “Иванов Иван”, то автоматически из регистра сведений будут удалены все записи по тарифам, где в измерении “Сотрудник” был указан Иванов Иван. Если данный флаг не установлен, то при удалении объекта, записи остались бы в регистре с битой ссылкой на него.

    Также свойство “Ведущее” у измерения отвечает за построение пользовательского интерфейса. В карточке объекта, который является ведущим измерением, появляется гиперссылка для быстрого перехода к регистру сведений с отбором по текущему объекту.

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

    Проектирование структуры регистра сведений

    Следует стараться избегать архитектурных решений, когда значение одного ресурса регистра сведений меняется значительно чаще чем значение другого. В этом случае целесообразно выделить такие ресурсы в отдельный регистр сведений. Это связано с тем, что в момент записи записываются все ресурсы, а не только измененный, что приводит к неоправданной нагрузке на СУБД.

    Получение данных из нескольких ресурсов одного регистра сведений выполняется быстрее, чем получение одного ресурса из нескольких регистров

    Следует внимательно отнестись к вопросу – какие поля многомерной таблицы должны быть измерениями, а какие – ресурсами. В зависимости от прикладной задачи, подход может быть различным.

    Например, мы хотим знать, какие материально ответственные лица закреплены за тем или иным складским помещением. Если таких МОЛ более одного человека, то правильная архитектура регистра будет такая:

    Измерения: МОЛ
    Ресурсы: Склад

    Если же нам требуется гарантировать, что у одного склада может быть только одно материально ответственное лицо, то состав регистра сведений будет следующий:

    Измерения: Склад
    Ресурсы: МОЛ

    Примеры работы с регистрами сведений в 1С

    Программная запись в регистр сведений 1С

    Программно добавить записи в независимый регистр сведений можно двумя способами: при помощи менеджера записи, и при помощи набора записей.

    //Использование менеджера записи регистра сведений
    НоваяЗапись = РегистрыСведений.ТарифыРаботников.СоздатьМенеджерЗаписи();
    //Сотрудник - это переменная, реквизит формы, параметр и т.п. с типом СправочникСсылка.Сотрудники
    НоваяЗапись.Сотрудник = Сотрудник;
    НоваяЗапись.ВидТарифа = Перечисления.ВидыТарифов.Почасовой;
    НоваяЗапись.Тариф = 1500;
    НоваяЗапись.Записать();
    
    //Использование набора записей
    НаборЗаписей = РегистрыСведений.ТарифыРаботников.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Сотрудник.Установить(Сотрудник);
    
    ЗаписьНабора = НаборЗаписей.Добавить();
    ЗаписьНабора.Сотрудник = Сотрудник;
    ЗаписьНабора.ВидТарифа = Перечисления.ВидыТарифов.Почасовой;
    ЗаписьНабора.Тариф = 1500;
    
    ЗаписьНабора = НаборЗаписей.Добавить();
    ЗаписьНабора.Сотрудник = Сотрудник;
    ЗаписьНабора.ВидТарифа = Перечисления.ВидыТарифов.ПоДням;
    ЗаписьНабора.Тариф = 6000;
    
    НаборЗаписей.Записать();
    

    Следует иметь в виду, что если не установить отбор для набора записей, при записи такого набора будет заменен весь регистр сведений!

    Набор записей регистра сведений

    Общий порядок добавления новых записей в регистр сведений:

    1. Создать набор записей
    2. Установить у него отбор по тем измерениям и периоду (если регистр периодический), по которым нужно добавить новые записи
    3. Добавить в набор необходимое количество новых записей
    4. Записать набор записей

    Рассмотрим на примерах работу с набором записей средствами языка 1С

    // работа с набором записей
    	
    //создание набора записей
    НаборТарифы = РегистрыСведений.ТарифыРаботников.СоздатьНаборЗаписей();
     
    //количество записей набора
    Колво = НаборТарифы.Количество(); //0
     
    //чтение набора записей из базы
    //если не вызвать метод Прочитать и не добавить записи, то запишется пустой набор записей!
    НаборТарифы.Прочитать();
    Колво = НаборТарифы.Количество(); //вернет количество записей в наборе
     
    //добавление записей
    ЗаписьНабора = НаборЗаписей.Добавить();
    ЗаписьНабора.Сотрудник = Сотрудник;
    ЗаписьНабора.ВидТарифа = Перечисления.ВидыТарифов.ПоДням;
    ЗаписьНабора.Период = ТекущаяДата();
    ЗаписьНабора.Тариф = 6000;
     
    //выгрузка в таблицу значений
    ТаблицаТарифов = НаборТарифы.Выгрузить();
     
    //удаление всех записей набора
    НаборТарифы.Очистить();
     
    //загрузка из таблицы значений
    НаборТарифы.Загрузить(ТаблицаТарифов);
     
    //удаление первой записи набора
    НаборТарифы.Удалить(0);
     
    //выгрузка одной колонки в массив
    МассивТоваров = НаборТарифы.ВыгрузитьКолонку("Сотрудник");
    
    //загружаем обратно
    НаборТарифы.ЗагрузитьКолонку(МассивТоваров, "Сотрудник");
     
    //сумма всех значений ресурса, если его тип содержит тип Число
    Итог = НаборТарифы.Итог("СуммаТарифа");
     
    //запись набора
    НаборТарифы.Записать();
    

    Изменение записей регистра сведений

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

    Изменим, например, все часовые оклады, добавив 10%.

    //Изменение записей регистра сведений
    НаборЗаписей = РегистрыСведений.ТарифыРаботников.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.ВидТарифа.Установить(Перечисления.ВидыТарифов.Почасовой);
    НаборЗаписей.Прочитать();
    //Переберем в цикле все записи набора
    Для Каждого ЗаписьНабора из НаборЗаписей Цикл
    	//Добавим 10%
    	ЗаписьНабора.Тариф = ЗаписьНабора.Тариф*1.1;
    КонецЦикла;
    НаборЗаписей.Записать();
    

    Удаление записей регистра сведений

    //Удаление записей из регистра сведений
    
    //1. Удалить записи с определенным отбором
    НаборЗаписей = РегистрыСведений.ТарифыРаботников.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.ВидТарифа.Установить(Перечисления.ВидыТарифов.ПоДням);
    НаборЗаписей.Отбор.Период.Установить(ДатаФильтра);
    //Запишем пустой набор записей
    НаборЗаписей.Записать();
    
    //2. Очистить регистр сведений программно
    НаборЗаписей = РегистрыСведений.ТарифыРаботников.СоздатьНаборЗаписей();
    НаборЗаписей.Записать();
    //Все записи регистра сведений будут удалены
    
    //3. Выборочное удаление записей по какому-нибудь условию
    //Здесь рассмотрим пример обработки записей с учетом значения реквизитов
    //Наложить отбор непосредственно на реквизиты нельзя, поэтому следует использовать другой способ
    НаборЗаписей = РегистрыСведений.ТарифыРаботников.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.ВидТарифа.Установить(Перечисления.ВидыТарифов.Почасовой);
    НаборЗаписей.Прочитать();
    //Переберем в цикле все записи набора
    МассивЗаписейКУдалению = Новый Массив;
    Для Каждого ЗаписьНабора из НаборЗаписей Цикл
    	Если ЗаписьНабора.Примечание = "Служебная запись" Тогда
    		МассивЗаписейКУдалению.Добавить(ЗаписьНабора);
    	КонецЕсли;
    КонецЦикла;
    //Вторым циклом удалим ненужные записи из набора регистра сведений
    Для Каждого ЗаписьКУдалению Из МассивЗаписейКУдалению Цикл
    	НаборЗаписей.Удалить(ЗаписьКУдалению);
    КонецЦикла;
    НаборЗаписей.Записать();

    Менеджер записи регистра сведений

    //Создание при помощи менеджера записи регистра сведений
    ЗаписьМенеджер = РегистрыСведений.ТарифыРаботников.СоздатьМенеджерЗаписи();
    ЗаписьМенеджер.Сотрудник = Сотрудник;
    ЗаписьМенеджер.ВидТарифа = Перечисления.ВидыТарифов.Почасовой;
    ЗаписьМенеджер.Период = ПериодЗаписиУдаления;
    ЗаписьМенеджер.Записать();
    
    //Изменение записи через менеджер записи
    ЗаписьМенеджер = РегистрыСведений.ТарифыРаботников.СоздатьМенеджерЗаписи();
    ЗаписьМенеджер.Сотрудник = Сотрудник;
    ЗаписьМенеджер.ВидТарифа = Перечисления.ВидыТарифов.ПоДням;
    ЗаписьМенеджер.Период = ПериодЗаписиУдаления;
    ЗаписьМенеджер.Прочитать();
    
    Если ЗаписьМенеджер.Выбран() Тогда
    	ЗаписьМенеджер.Тариф = 7000;
    	ЗаписьМенеджер.Записать();
    КонецЕсли;
    
    //Удаление при помощи менеджера записи
    ЗаписьМенеджер = РегистрыСведений.ТарифыРаботников.СоздатьМенеджерЗаписи();
    ЗаписьМенеджер.Сотрудник = Сотрудник;
    ЗаписьМенеджер.ВидТарифа = Перечисления.ВидыТарифов.Почасовой;
    ЗаписьМенеджер.Период = ПериодЗаписиУдаления;
    ЗаписьМенеджер.Удалить();
    

    Ключ записи регистра сведений

    // создать ключ записи
    //пустой ключ	
    ПустойКлюч = Новый("РегистрСведенийКлючЗаписи.ТарифыРаботников");
    //используя менеджер
    ПустойКлюч = РегистрыСведений.ТарифыРаботников.ПустойКлюч();
     
    //ключ на определенную запись регистра
    ЗначенияКлюча = Новый Структура;
    ЗначенияКлюча.Вставить("Период", Дата(2021,01,31));
    ЗначенияКлюча.Вставить("Сотрудник", СсылкаНаСотрудника);
    ЗначенияКлюча.Вставить("ВидТарифа", Перечисления.ВидыТарифов.ПоДням);
    КлючЗаписи = РегистрыСведений.ТарифыРаботников.СоздатьКлючЗаписи(ЗначенияКлюча);
    

    Изменение записей в регистр сведений с подчинением регистратору

    Рассмотрим пример. Допустим, у нас есть документ “Назначение материально ответственных лиц”, в котором мы в табличной части указываем склад и соответствующее ему МОЛ. Этот документ записывает движения в регистр сведений МОЛПоСкладам, со следующими настройками:

    • Измерения: Склад, тип СправочникСсылка.Склады
    • Ресурсы: МОЛ, тип СправочникСсылка.Сотрудники
    • Реквизиты: Примечание, тип Строка(100)
    • Периодичность: в пределах месяца
    • Режим записи: Подчинение регистратору

    Для изменения записей регистра сведений, подчиненного регистратору, нужно иметь ссылку на документ-регистратор. После этого необходимо получить движения объекта по этой ссылке, по нужному регистру. Далее мы получаем набор записей, и работа с ним аналогична работе при использовании метода СоздатьНаборЗаписей. Для того чтобы изменить движения документа, также следует вызвать метод Прочитать. Второй вариант – заново добавить нужные записи в движения, в этом случае новый набор полностью заменит старый.

    ОбъектРегистратор = СсылкаНаДокумент.ПолучитьОбъект();
    ДвиженияПоРегистру =ОбъектРегистратор.Движения.МОЛПоСкладам;
    ДвиженияПоРегистру.Прочитать();
    Для Каждого ЗаписьДокумента Из ДвиженияПоРегистру Цикл
    	ЗаписьДокумента.Примечание = "Запись обработана программно";
    КонецЦикла;
    ДвиженияПоРегистру.Записать();
    

    Примеры работы с периодическим регистром сведений

    Периодический регистр сведений позволяет получать данные о самых первых и самых последних записях. Для этого платформа предусматривает две виртуальные таблицы – СрезПервых и СрезПоследних. В определенных случаях можно включить итоги для среза первых и/или последних. Это может многократно ускорить получение данных, так как при этом будут созданы физические таблицы, откуда данные будут извлекаться гораздо быстрее, чем из виртуальных.

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

    Получить самые ранние записи (Срез первых)

    Получим самые ранние записи тарифов с видом тарифа “ПоДням”

    //Как получить самые первые записи
    Отбор = Новый Структура("ВидТарифа", Перечисления.ВидыТарифов.ПоДням);
    СрезПервых = РегистрыСведений.ТарифыРаботников.СрезПервых(ДатаСреза, Отбор);
    //Получим таблицу значений со структурой колонок, аналогичной структуре регистра сведений
    //В результат попадут наиболее ранние записи регистра, соответствующие установленным значениям ключевых полей.
    //Записи подбираются для каждой комбинации из всех имеющихся значений измерений регистра.
    //При этом, если есть записи с датой реньше, чем начало периода, они учитываться не будут.
    Для Каждого СтрСреза Из СрезПервых Цикл
    	Сообщить(СтрШаблон("Самый ранний тариф по дням для сотрудника %1: %2", СтрСреза.Сотрудник, СтрСреза.Тариф)); 
    КонецЦикла;
    

    Получить самые поздние записи (Срез последних)

    //Как получить последние записи регистра сведений на дату
    //В случае работы с запросом, можно накладывать более сложные фильтры, и извлекать только необходимые данные,
    // например, только сотрудника и тариф, без лишних полей
    ЗапросПоследних = Новый Запрос("ВЫБРАТЬ
    |	ПРЕДСТАВЛЕНИЕ(ТекущиеТарифы.Сотрудник) КАК Сотрудник,
    |	ТекущиеТарифы.Тариф КАК Тариф
    |ИЗ
    |	РегистрСведений.ТарифыРаботников.СрезПоследних(&ДатаСреза, ВидТарифа = ЗНАЧЕНИЕ(Перечисление.ВидыТарифов.Почасовой)) КАК ТекущиеТарифы");
    ЗапросПоследних.УстановитьПараметр(ДатаСреза, ДатаСреза);
    Выборка = ЗапросПоследних.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
    	Сообщить(СтрШаблон("Текущий почасовой тариф для сотрудника %1: %2", Выборка.Сотрудник, Выборка.Тариф)); 
    КонецЦикла;
    

    Регистры сведений в 1С 8.3 – это объекты метаданных, которые нужны для хранения справочной информации в разрезе нескольких измерений. Пример применения регистра сведений – хранение, с привязкой к периоду, цен предприятия в разрезе товаров и типов цен или курсов валют в разрезе валют. Данные в регистре сведений хранятся в виде записей, каждая из которых содержит значения измерений и соответствующие им значения ресурсов:

    • Измерения регистра сведений описывают разрезы, в которых хранится информация
    • Ресурсы регистра сведений соответственно хранят саму информацию

    Чтение записи регистра сведений в 1С 8.3:

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

        КонецЦикла;

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

    Поиск и программное изменение записи документа в регистр сведений в 1С 8.3:

    &НаСервере
    Процедура ПоискИИзменениеЗаписи()УстановкаЦенСсылка = Документы.УстановкаЦен.НайтиПоНомеру(“ПТО-00000001”, ‘20201231’);
       
    УстановкаЦен = УстановкаЦенСсылка.ПолучитьОбъект();// Получение набора записей документа Установка цен № ПТО-00000001 от 31.12.20 в регистр “ЦеныРеализации”
       
    НаборЗаписей = УстановкаЦен.Движения.ЦеныРеализации;// Чтение набора записей из базы данных.
       
    НаборЗаписей.Прочитать();

        Для Каждого

    Запись Из НаборЗаписей Цикл// Получение старых значений
           
    Сообщить(” по ” + Запись.Организация + “, ” + Запись.Контрагент + “, ” + Запись.Номенклатура + ” = ” + Запись.Цена);
           
    // Проведение удорожания на 30%
           
    Запись.Цена = Запись.Цена + (Запись.Цена * (30/100));

        КонецЦикла;

    // Добавление новой записи
       
    НоваяЗапись = НаборЗаписей.Добавить();
       
    НоваяЗапись.Период = ТекущаяДата();
       
    НоваяЗапись.Организация = Справочники.Организации.НайтиПоНаименованию(“ОАО “”Гипермаркет АЗИЯ”””);
       
    НоваяЗапись.Контрагент = Справочники.Контрагенты.НайтиПоНаименованию(“ООО “”БелИмпортТорг”””);
       
    НоваяЗапись.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(“Молоко 3,2%”);
       
    НоваяЗапись.Цена = 3;// Замещение старых записей и запись новых
       
    НаборЗаписей.Записать(Истина);

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

    Чтение записи документа в регистре сведений запросом в 1С 8.3:

    &НаСервере
    Процедура ЧтениеЗаписиЗапросом()// Если не требуется изменять найденные записи.
       
    СсылкаДок = Документы.УстановкаЦен.НайтиПоНомеру(“ПТО-00000001”, ‘20201231’);// Чтение запросом записей регистра сведений “ЦеныРеализации” текущего документа
       
    Запрос = Новый Запрос;
       
    Запрос.Текст =
       
    “ВЫБРАТЬ
        |   ЦеныРеализации.Период,
        |   ЦеныРеализации.Регистратор,
        |   ЦеныРеализации.НомерСтроки,
        |   ЦеныРеализации.Активность,
        |   ЦеныРеализации.Номенклатура,
        |   ЦеныРеализации.Контрагент,
        |   ЦеныРеализации.Организация,
        |   ЦеныРеализации.Цена
        |ИЗ
        |   РегистрСведений.ЦеныРеализации КАК ЦеныРеализации
        |ГДЕ
        |   ЦеныРеализации.Регистратор = &Регистратор
        |УПОРЯДОЧИТЬ ПО
        |   ЦеныРеализации.НомерСтроки”
    ;Запрос.УстановитьПараметр(“Регистратор”,СсылкаДок);
       
    РезультатЗапроса = Запрос.Выполнить();Записи = РезультатЗапроса.Выбрать();
        Пока
    Записи.Следующий() ЦиклСообщить(“по документу ” + Записи.Регистратор + ” по ” +Записи.Организация + “, “
           
    + Записи.Контрагент + ” ” + Записи.Номенклатура +” = “+ Записи.Цена + ” руб.”);

        КонецЦикла;

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

    Получение наиболее ранних записей регистра сведений через срез первых на дату в 1С 8.3:

    &НаСервере
    Процедура ПолучениеНаиболееРаннихЗаписей()// Параметры виртуальной таблицы СрезПервых:
        // 1. Период (включительно)
        // 2. Условие (например, Организация = &ВыбОрганизация)

        // Получение цен на Молоко 3,2% для каждого контрагента на начало 2 квартала 2020 года (включительно)
        // по организации ОАО “Гипермаркет АЗИЯ”.

    Запрос = Новый Запрос;
       
    Запрос.Текст =
       
    “ВЫБРАТЬ
        |   ЦеныРеализацииСрезПервых.Период,
        |   ЦеныРеализацииСрезПервых.Активность,
        |   ЦеныРеализацииСрезПервых.Номенклатура,
        |   ЦеныРеализацииСрезПервых.Контрагент,
        |   ЦеныРеализацииСрезПервых.Организация,
        |   ЦеныРеализацииСрезПервых.Цена
        |ИЗ
        |   РегистрСведений.ЦеныРеализации.СрезПервых(
        |       ДАТАВРЕМЯ(2020, 04, 01, 00, 00, 00),
        |       Активность = Истина И
        |       Организация = &ВыбОрганизация И
        |       Номенклатура = &ВыбНоменклатура) КАК ЦеныРеализацииСрезПервых
        |УПОРЯДОЧИТЬ ПО
        |   ЦеныРеализацииСрезПервых.Контрагент”
    ;Запрос.УстановитьПараметр(“ВыбОрганизация”,Справочники.Организации.НайтиПоНаименованию(“ОАО “”Гипермаркет АЗИЯ”””));
       
    Запрос.УстановитьПараметр(“ВыбНоменклатура”,Справочники.Номенклатура.НайтиПоНаименованию(“Молоко 3,2%”));
       
    РезультатЗапроса = Запрос.Выполнить();Записи = РезультатЗапроса.Выбрать();
        Пока
    Записи.Следующий() ЦиклСообщить(“за ” + Записи.Период + ” на ” +Записи.Номенклатура + ” ” + Записи.Контрагент + ” = ” +Записи.Цена + ” руб.”);

        КонецЦикла;

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

    Получение наиболее поздних записей регистра сведений через срез последних на дату в 1С 8.3:

    &НаСервере
    Процедура ПолучениеНаиболееПозднихЗаписей()// Параметры виртуальной таблицы СрезПоследних:
        // 1. Период (включительно)
        // 2. Условие (например, Организация = &ВыбОрганизация)

        // Получение цен на Молоко 3,2% для каждого контрагента на конец 2 квартала 2020 года (включительно)
        // по организации ОАО “Гипермаркет АЗИЯ”.

    Запрос = Новый Запрос;
       
    Запрос.Текст =
       
    “ВЫБРАТЬ
        |   ЦеныРеализацииСрезПоследних.Период,
        |   ЦеныРеализацииСрезПоследних.Активность,
        |   ЦеныРеализацииСрезПоследних.Номенклатура,
        |   ЦеныРеализацииСрезПоследних.Контрагент,
        |   ЦеныРеализацииСрезПоследних.Организация,
        |   ЦеныРеализацииСрезПоследних.Цена
        |ИЗ
        |   РегистрСведений.ЦеныРеализации.СрезПоследних(
        |       ДАТАВРЕМЯ(2020, 06, 30, 23, 59, 59),
        |       Активность = Истина И
        |       Организация = &ВыбОрганизация И
        |       Номенклатура = &ВыбНоменклатура
        |   ) КАК ЦеныРеализацииСрезПоследних
        |УПОРЯДОЧИТЬ ПО
        |   ЦеныРеализацииСрезПоследних.Контрагент”
    ;Запрос.УстановитьПараметр(“ВыбОрганизация”,Справочники.Организации.НайтиПоНаименованию(“ОАО “”Гипермаркет АЗИЯ”””));
       
    Запрос.УстановитьПараметр(“ВыбНоменклатура”,Справочники.Номенклатура.НайтиПоНаименованию(“Молоко 3,2%”));
       
    РезультатЗапроса = Запрос.Выполнить();Записи = РезультатЗапроса.Выбрать();
        Пока
    Записи.Следующий() ЦиклСообщить(“за ” + Записи.Период + ” на ” +Записи.Номенклатура + ” ” + Записи.Контрагент + ” = ” +Записи.Цена + ” руб.”);

        КонецЦикла;

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

    Создание записи в регистре сведений без привязки к документу в 1С 8.3:

    &НаСервере
    Процедура СозданиеЗаписиБезПривязкиКДокументу()// Создание записи в регистре сведений без привязки к документу можно только для регистров,
        // в свойствах которых установлен режим записи “Независимый”.

        // Создание записи – для единичных записей лучше использовать “Менеджер Записей”

    НоваяЗапись = РегистрыСведений.КурсВалют.СоздатьМенеджерЗаписи();
       
    НоваяЗапись.Период = ‘20200401’;
       
    НоваяЗапись.Валюта = Справочники.Валюты.НайтиПоНаименованию(“Евро”);
       
    НоваяЗапись.Курс = 2.8010;
       
    НоваяЗапись.Записать(Истина); // Замещение – если уже есть запись с такими же измерениями и таким же периодом

        // Поиск, изменение и удаление созданной запись на дату

    Выборка = РегистрыСведений.КурсВалют.Выбрать(‘20200401’, ‘20200401’);
        Если
    Выборка.Следующий() ТогдаЗапись = Выборка.ПолучитьМенеджерЗаписи();
           
    Запись.Прочитать();
           
    Запись.Курс = 2.8020;// Изменение курса Евро
           
    Запись.Записать(Истина);// Запись курса Евро
           
    Запись.Удалить();// Удаление курса ЕвроКонецЕсли;// Для группового изменения записей лучше использовать “Набор Записей”
       
    Евро = Справочники.Валюты.НайтиПоНаименованию(“Евро”);НаборЗаписей = РегистрыСведений.КурсВалют.СоздатьНаборЗаписей();
       
    НаборЗаписей.Отбор.Валюта.Установить(Евро);Запись_1 = НаборЗаписей.Добавить();
       
    Запись_1.Период = ‘20200401’; // 01 апреля 2020 г.
       
    Запись_1.Валюта = Евро;
       
    Запись_1.Курс = 2.8446;Запись_2 = НаборЗаписей.Добавить();
       
    Запись_2.Период = ‘20200402’; // 02 апреля 2020 г.
       
    Запись_2.Валюта = Евро;
       
    Запись_2.Курс = 2.8478;Запись_3 = НаборЗаписей.Добавить();
       
    Запись_3.Период = ‘20200403’; // 03 апреля 2020 г.
       
    Запись_3.Валюта = Евро;
       
    Запись_3.Курс = 2.8320;Запись_4 = НаборЗаписей.Добавить();
       
    Запись_4.Период = ‘20200404’; // 04 апреля 2020 г.
       
    Запись_4.Валюта = Евро;
       
    Запись_4.Курс = 2.7943;Запись_5 = НаборЗаписей.Добавить();
       
    Запись_5.Период = ‘20200405’; // 05 апреля 2020 г.
       
    Запись_5.Валюта = Евро;
       
    Запись_5.Курс = 2.7797;// Запись сразу всего набора
       
    НаборЗаписей.Записать(Истина); // Замещение – если уже есть запись с такими же измерениями и таким же периодомКонецПроцедуры

    💡 Шаблоны (готовые модели) кода 1С 8.3 с тегом #Регистры сведений:

    Copyright©, «Программист 1С в г.Минске», 05.04.2020

    Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник

    Добавить комментарий