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