vabik
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте! Есть конфигурация Альфа-Авто, на платформе 1с, 8.2, отчёт делаю впервые, всё не очень просто для меня, надо сделать отбор по контрагенту, листинг:
Процедура Отчет(ТабДок, ДатаНачала, ДатаКонца) Экспорт
Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ОстаткиАвтомобилейОстаткиИОбороты.Автомобиль.Наименование КАК АвтомобильНаименование,
| ОстаткиАвтомобилейОстаткиИОбороты.Автомобиль.Поставщик.Наименование КАК ПоставщикНаименование,
| ОстаткиАвтомобилейОстаткиИОбороты.Партия.Дата КАК Дата,
| ОстаткиАвтомобилейОстаткиИОбороты.КоличествоПриход КАК Приход,
| ОстаткиАвтомобилейОстаткиИОбороты.КоличествоРасход КАК Расход
|ИЗ
| РегистрНакопления.ОстаткиАвтомобилей.ОстаткиИОбороты(&ДатаНачала, &ДатаКонца, , , ) КАК ОстаткиАвтомобилейОстаткиИОбороты
|
|СГРУППИРОВАТЬ ПО
| ОстаткиАвтомобилейОстаткиИОбороты.Автомобиль.Поставщик.Наименование,
| ОстаткиАвтомобилейОстаткиИОбороты.Автомобиль.Наименование,
| ОстаткиАвтомобилейОстаткиИОбороты.Партия.Дата,
| ОстаткиАвтомобилейОстаткиИОбороты.КоличествоПриход,
| ОстаткиАвтомобилейОстаткиИОбороты.КоличествоРасход
|
|УПОРЯДОЧИТЬ ПО
| ОстаткиАвтомобилейОстаткиИОбороты.Автомобиль.Поставщик.Наименование
|ИТОГИ
| СУММА(Приход),
| СУММА(Расход)
|ПО
| ОБЩИЕ,
| ПоставщикНаименование";
Запрос.УстановитьПараметр("ДатаКонца", КонецДня(ДатаКонца));
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("Поставщик", Поставщик);
Результат = Запрос.Выполнить();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьЗаголовок.Параметры.ЗаголовокОтчета="Отчет по поставщикам за период : ";
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьОбщийИтог = Макет.ПолучитьОбласть("ОбщийИтог");
ОбластьИтого = Макет.ПолучитьОбласть("Итого");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ВыборкаОбщийИтог = Результат.Выбрать();
Пока ВыборкаОбщийИтог.Следующий() Цикл
ОбластьОбщийИтог.Параметры.Заполнить(ВыборкаОбщийИтог);
ТабДок.Вывести(ОбластьОбщийИтог);
КонецЦикла;
На форме есть ДатаНачала ДатаКонца и Контрагент.
Подскажите пожалуйста кто селён в этом как правильно сделать?
Добавлено:
Добавил вот такую строчку ИЗ
| РегистрНакопления.ОстаткиАвтомобилей.ОстаткиИОбороты(&ДатаНачала, &ДатаКонца, , , Автомобиль.Поставщик = &Поставщик) КАК ОстаткиАвтомобилейОстаткиИОбороты
.....
если НЕ ЗначениеЗаполнено(Поставщик) Тогда
Запрос.Текст = СтрЗаменить(Запрос.Текст, "Автомобиль.Поставщик = &Поставщик", "");
КонецЕсли;
|
Программы » 
Варезник » 
