Advertisement
Guest User

Untitled

a guest
Dec 5th, 2016
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.26 KB | None | 0 0
  1. Процедура ОбработкаПроведения(Отказ, Режим)
  2. Движения.Продажи.Записывать = Истина;
  3. Движения.СтоимостьМатериалов.Записывать = Истина;
  4. Движения.ОстаткиМатериалов.Записывать = Истина;
  5.  
  6. Запрос = Новый Запрос;
  7. Запрос.Текст =
  8. "ВЫБРАТЬ
  9. | ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
  10. | ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры,
  11. | СУММА(ОказаниеУслугиПереченьНоменклатуры.Количество) КАК КоличествоВДокументе,
  12. | ОказаниеУслугиПереченьНоменклатуры.НаборСвойств,
  13. | СУММА(ОказаниеУслугиПереченьНоменклатуры.Сумма) КАК СуммаВДокументе,
  14. | СУММА(ОказаниеУслугиПереченьНоменклатуры.Стоимость) КАК Стоимость
  15. |ИЗ
  16. | Документ.ОказаниеУслуги.ПереченьНоменклатуры КАК ОказаниеУслугиПереченьНоменклатуры
  17. |ГДЕ
  18. | ОказаниеУслугиПереченьНоменклатуры.Ссылка = &Ссылка
  19. |
  20. |СГРУППИРОВАТЬ ПО
  21. | ОказаниеУслугиПереченьНоменклатуры.Номенклатура,
  22. | ОказаниеУслугиПереченьНоменклатуры.Номенклатура.ВидНоменклатуры,
  23. | ОказаниеУслугиПереченьНоменклатуры.НаборСвойств";
  24.  
  25. Запрос.УстановитьПараметр("Ссылка", Ссылка);
  26.  
  27. Результат = Запрос.Выполнить();
  28.  
  29. ВыборкаДетальныеЗаписи = Результат.Выбрать();
  30.  
  31. Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
  32. Если ВыборкаДетальныеЗаписи.Номенклатура.ВидНоменклатуры =
  33. Перечисления.ВидыНоменклатуры.Материал Тогда
  34.  
  35. Движение = Движения.ОстаткиМатериалов.Добавить();
  36. Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
  37. Движение.Период = Дата;
  38. Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
  39. Движение.Склад = Склад;
  40. Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
  41.  
  42. Движение = Движения.СтоимостьМатериалов.Добавить();
  43. Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
  44. Движение.Период = Дата;
  45. Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
  46. Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе * ВыборкаДетальныеЗаписи.Стоимость;
  47. КонецЕсли;
  48. Движение = Движения.Продажи.Добавить();
  49. Движение.Период = Дата;
  50. Движение.Номенклатура=ВыборкаДетальныеЗаписи.Номенклатура;
  51. Движение.Клиент = Клиент;
  52. Движение.Мастер = Мастер;
  53. Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
  54. Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;
  55. Движение.Стоимость = ВыборкаДетальныеЗаписи.Стоимость * ВыборкаДетальныеЗаписи.КоличествоВДокументе;
  56. КонецЦикла;
  57.  
  58. КонецПроцедуры;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement