Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Процедура ОбработкаПроведения(Отказ, Режим)
- Движения.Продажи.Записывать = Истина;
- Движения.СтоимостьМатериалов.Записывать = Истина;
- Движения.ОстаткиМатериалов.Записывать = Истина;
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ
- | ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
- | ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,
- | СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
- | ОказаниеУслугиПереченьНоменклатуры.НаборСвойств,
- | СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе,
- | СУММА(ОказаниеУслугиПереченьНоменклатуры.Стоимость) КАК Стоимость
- |ИЗ
- | Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
- |ГДЕ
- | ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
- |
- |СГРУППИРОВАТЬ ПО
- | ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
- | ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры,
- | ОказаниеУслугиПереченьНоменклатуры.НаборСвойств";
- Запрос.УстановитьПараметр("Ссылка", Ссылка);
- Результат = Запрос.Выполнить();
- ВыборкаДетальныеЗаписи = Результат.Выбрать();
- Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
- Если ВыборкаДетальныеЗаписи.Номенклатура.ВидНоменклатуры =
- Перечисления.ВидыНоменклатуры.Материал Тогда
- Движение = Движения.ОстаткиМатериалов.Добавить();
- Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
- Движение.Период = Дата;
- Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
- Движение.Склад = Склад;
- Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
- Движение = Движения.СтоимостьМатериалов.Добавить();
- Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
- Движение.Период = Дата;
- Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
- Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе * ВыборкаДетальныеЗаписи.Стоимость;
- КонецЕсли;
- Движение = Движения.Продажи.Добавить();
- Движение.Период = Дата;
- Движение.Номенклатура=ВыборкаДетальныеЗаписи.Номенклатура;
- Движение.Клиент = Клиент;
- Движение.Мастер = Мастер;
- Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
- Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;
- Движение.Стоимость = ВыборкаДетальныеЗаписи.Стоимость * ВыборкаДетальныеЗаписи.КоличествоВДокументе;
- КонецЦикла;
- КонецПроцедуры;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement