В начало

ОП для «Оказание услуг»

 

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

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

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

            Движения.Продажи.Записывать=Истина;

           

            Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл

Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидыНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда

                                  

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

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

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

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

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

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

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

                       

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

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

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

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

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

                        Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость*

                                             ТекСтрокаПереченьНоменклатуры.Количество;

                                  

                        КонецЕсли;                                                

                       

                        //Регистр Продажи 

                        Движение = Движения.Продажи.Добавить();

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

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

                        Движение.Клиент = Клиент;

                        Движение.Мастер = Мастер;

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

                        Движение.Выручка = ТекСтрокаПереченьНоменклатуры.Сумма;

                        Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость*

                                             ТекСтрокаПереченьНоменклатуры.Количество;               

                        КонецЦикла;

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