Как создать периодический регистр сведений в 1С 8? 1с 8 примеры

Правой кнопкой по ветви Регистры сведений -> Добавить. Наименование регистра сведений ПоследняяЦена, периодичность в пределах секунды, в поле Режим записи укажем Подчинение регистратору:

На закладке Данные вводим измерение Наименование с типом СправочникСсылка.Номенклатура, ресурс Цена типа число, длина 14, точность 3:

На закладке Регистраторы установите флаг ПоступлениеТовара:

На закладке Интерфейсы установите флаг в окне Команды:

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

Процедуру ОбработкаПроведения(Отказ, Режим) переписываем так: Процедура ОбработкаПроведения(Отказ, Режим) //{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ // Данный фрагмент построен конструктором. // При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!! Для Каждого ТекСтрокаТовары Из Товары Цикл // регистр Товары Приход Движение = Движения.Товары.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Приход; Движение.Период = Дата; Движение.Наименование = ТекСтрокаТовары.Наименование; Движение.Получатель = Получатель; Движение.Количество = ТекСтрокаТовары.Количество; КонецЦикла; Для Каждого ТекСтрокаТовары Из Товары Цикл // регистр ПоследняяЦена отбор = Новый Структура(«Наименование»,ТекСтрокаТовары.Наименование); максЦена = РегистрыСведений.ПоследняяЦена.ПолучитьПоследнее(ТекущаяДата(), отбор).Цена; если максЦена < ТекСтрокаТовары.Цена тогда Движение = Движения.ПоследняяЦена.Добавить(); Движение.Период = ТекущаяДата(); Движение.Наименование = ТекСтрокаТовары.Наименование; Движение.Цена = ТекСтрокаТовары.Цена; конецЕсли; КонецЦикла; // записываем движения регистров Движения.Товары.Записать(); Движения.ПоследняяЦена.Записать(); //}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ КонецПроцедуры

Автоматизируем определение цены при оформлении документа ПеремещениеТовара. Откроем форму ФормаДокумента, курсор на ПолеВвода в колонке Наименование, в свойствах ПоляВвода жмём кнопку-педальку с изображением лупы в поле При изменении, в открывшемся модуле формы пишем код соответствующего обработчика:

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