---

&НаКлиенте
Процедура СписокЗаказовПриОбновлении(Отказ)
    ОбновитьИтоги();
КонецПроцедуры

&НаКлиенте
Процедура ОбновитьИтоги()
    Запрос = Новый Запрос;
   
    Запрос.Текст = СписокЗакасов.ПолучитьТекстЗапроса(); 
    
    Запрос.Текст = СтрЗаменить(Запрос.Текст, "ВЫБРАТЬ", "ВЫБРАТЬ КОЛИЧЕСТВО(РАЗЛИЧНЫЕ Ссылка) КАК КолЗаказов, СУММА(СуммаЗаказа) КАК ОбщаяСумма,");
    
    Результат = Запрос.Выполнить().Выбрать();
    Если Результат.Следующий() Тогда
        ИтоговаяСтрока = "Всего заказов: " + Результат.КолЗаказов + "; Общая сумма: " + Формат(Результат.ОбщаяСумма, "ЧДЦ=2");
    Иначе
        ИтоговаяСтрока = "Нет данных";
    КонецЕсли;
КонецПроцедуры.    


&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)

    ТекСтрока = Элементы.Товары.ТекущиеДанные;

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ ПЕРВЫЕ 1
    |   Цены.Цена КАК Цена
    |ИЗ
    |   РегистрСведений.ЦеныНоменклатуры.СрезПоследних(
    |       ,
    |       Номенклатура = &Номенклатура
    |       И ВидЦены = &ВидЦены
    |   ) КАК Цены";

    Запрос.УстановитьПараметр(
        "Номенклатура",
        ТекСтрока.Номенклатура);

    Запрос.УстановитьПараметр(
        "ВидЦены",
        Объект.ВидЦены);

    Результат = Запрос.Выполнить().Выбрать();

    Если Результат.Следующий() Тогда
        ТекСтрока.Цена = Результат.Цена;
        ТекСтрока.Сумма = ТекСтрока.Количество * ТекСтрока.Цена;
    Иначе
        ТекСтрока.Цена = 0;
        ТекСтрока.Сумма = 0;
    КонецЕсли;

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