В начало

ОП приходной накладной

 

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

            Движения.ОстаткиМатериалов.Записывать = Истина;

            Движения.СтоимостьМатериалов.Записывать = Истина; //Изменение

 

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

                        //Регистр ОстаткиМатериалов

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

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

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

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

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

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

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

                       

                         //Регистр СтоимостьМатериалов

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

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

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

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

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

            КонецЦикла;

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