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