Конструктор (листинг 3.1)

Добавим в список регистров, по кото­рым формируются движения, еще один - СтоимостьМатериалов.

Изменение процедуры проведения документа Приходная накладная

Откроем в конфигураторе окно редактирования объекта конфигурации Документ ПриходнаяНакладная, перейдем на закладку Движения.

В списке регистров отметим, что документ будет создавать движения и по регистру СтоимостьМа­териалов.

Запустим конструктор движений и согласимся с тем, что существующая процедура ОбработкаПроведения будет замещена (рис3.1а).

Рис. 3.1а. Регистр СтоимостьМатериалов в режиме запуска конструктора движений

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

Выберем для него ту же табличную часть Материалы и заполним выражения.

Для ресурса Стоимость выберем значения реквизита таблич­ной части Сумма (рис..3.2).

Рис. 3.2. Добавим в список регистров новый регистр

Нажмаем О К и просматриваем текст, который сформировал

Листинг 3.1. Процедура ОбработкаПроведения()

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

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

Для Каждого ТекСтрокаМатериалы Из Материалы Цикл

// регистр ОстаткиМатериалов Приход

Движение = Движения.ОстаткиМатериалов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Материал = ТекСтрокаМатериалы.Материал;

Движение.Склад = Склад;

Движение.НаборСвойств = ТекСтрокаМатериалы.НаборСвойств;

Движение.Количество = ТекСтрокаМатериалы.Количество;

КонецЦикла;

Для Каждого ТекСтрокаМатериалы Из Материалы Цикл

// регистр СтоимостьМатериалов Приход

Движение = Движения.СтоимостьМатериалов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Материал = ТекСтрокаМатериалы.Материал;

Движение.Стоимость = ТекСтрокаМатериалы.Сумма;

КонецЦикла;

//}}_КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

Конструктор создал два цикла обхода табличной части документа — отдельно для каждого регистра.

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

В нашем случае табличная часть всего одна, поэтому можно объединить эти два цикла в один, закомментировав следующие строки (листинг 3.2).

Листинг 3.2. Объединение двух циклов в один

Запустим 1С:Предприятие в режиме отладки и пере­проведем документ Приход­ная накладная № 1 и № 2.

Рис.3.3. Приходная накладная №1

Затем откроем первый документ и убедимся, что документ создает желае­мые записи в регистрах на­копления (рис. 3.3, 3.4, 3.5). Рис.3.3. Приходная накладная №1

Рис.3.4. Записи регистра Остатки материалов

Рис.3.5. Записи регистра Стоимость материалов

Дата добавления: 2015-07-13