Оборотный регистр в 1С 8. 1с 8 примеры

Создадим оборотный регистр “Поставщики”.

Для этого делаем новый регистр накопления, вид регистра – Обороты:

На закладке Данные введём измерения: Поставщик, тип СправочникСсылка.Контрагенты и Наименование, тип СправочникСсылка.Номенклатура; и ресурс Количество, тип число, длина 14, точность 3:

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

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