Дипломная работа: Автоматизация приема платежей в базе конфигурации 1С: предприятие 8.3.6 для ТОО "ASD.PRO"

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