edward4324

Untitled

Nov 20th, 2021 (edited)
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.20 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. СуммаОборота УБЫВ
Add Comment
Please, Sign In to add comment