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