Модуль документов в 1С 8. 1с 8 примеры

В процедуру проведения документа ПоступлениеТовара введём проводку по регистру бухгалтерии ЖурналПроводок:

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

В процедуру проведения документа ПеремещениеТовара введём проводку по регистру бухгалтерии ЖурналПроводок: