8.х Отчет

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем serega2671, 11 ноя 2010.

  1. TopicStarter Overlay
    serega2671
    Offline

    serega2671 Опытный в 1С

    Регистрация:
    18 май 2009
    Сообщения:
    115
    Симпатии:
    0
    Баллы:
    26
    Подскажите есть отчет (самодельный). Он формирует продажи товаров по банковским картам в документе Отчет КС. Необходимо получить следующее? (рисунок). В настоящее время не выводится только СуммаВсего. По дням все выводится. Конфиг УТ 10.3

    Вложения:

  2. 1cUserAndrew
    Offline

    1cUserAndrew Профессионал в 1С Команда форума

    Регистрация:
    27 май 2010
    Сообщения:
    4.949
    Симпатии:
    149
    Баллы:
    104
    Вам просто надо вашу процедуру чуть-чуть подкорректировать (в запрос добавить ИТОГИ).
    У меня нет под рукой УТ, но примерно должно быть так:
    Код:
    Процедура КнопкаСформироватьНажатие(Кнопка)
    
    Запрос = Новый Запрос;
    Запрос.Текст ="ВЫБРАТЬ
    |	ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Организация,
    |	ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Дата,
    |	СУММА(ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Сумма) КАК Сумма
    |ИЗ
    |	Документ.ОтчетОРозничныхПродажах.ОплатаБанковскимиКредитами КАК ОтчетОРозничныхПродажахОплатаБанковскимиКредитами
    |ГДЕ
    |	ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Дата >= &ДатаНач
    |	И ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Дата <= &ДатаКон
    |	И ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Организация = &ВыбОрг
    |
    |СГРУППИРОВАТЬ ПО
    |	ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Организация,
    |	ОтчетОРозничныхПродажахОплатаБанковскимиКредитами.Ссылка.Дата
    |ИТОГИ ПО ОБЩИЕ";//Здесь рассчитываем итоги
    Запрос.УстановитьПараметр("ДатаНач",НачалоДня(НачПериода));
    Запрос.УстановитьПараметр("ДатаКон",КонецДня(КонПериода));
    Запрос.УстановитьПараметр("ВыбОрг",ПолеВвода1);
    
    ВыбИтог = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);//Чуть-чуть меняем тут (выбираем итоговую запись)
    
    
    Таб=Новый ТабличныйДокумент;
    Таб.ОтображатьСетку=Ложь;
    таб.ОтображатьЗаголовки=Ложь;
    таб.ТолькоПросмотр=Истина;
    таб.АвтоМасштаб = истина;
    Таб.ОриентацияСтраницы=ОриентацияСтраницы.Портрет;
    Макет=ПолучитьМакет("Макет");
    Обл=Макет.ПолучитьОбласть("Заголовок"); 
    Обл.Параметры.Д1=Формат(НачПериода,"Длф=Д");
    Обл.Параметры.Д2=Формат(КонПериода,"Длф=Д");
    
    Таб.Вывести(Обл);
    Обл=Макет.ПолучитьОбласть("Шапка");
    Таб.Вывести(Обл);
    Обл=Макет.ПолучитьОбласть("СтрокаОрганизация");
    Обл.Параметры.Организация = ПолеВвода1;
    
    ВыбИтог.Следующий();//Здесь мы получаем итоговую запись
    обл.Параметры.СуммаВсего = ВыбИтог.Сумма; 
    
    Таб.Вывести(Обл);
    ВыбПоДатам = ВыбИтог.Выбрать();//Здесь выбираем по датам
    Пока ВыбПоДатам.Следующий() цикл
    Обл = Макет.ПолучитьОбласть("СтрокаДатаСумма");
    Обл.Параметры.Заполнить(ВыбПоДатам);
    Таб.Вывести(Обл);
    КонецЦикла;
    
    Таб.Показать();
    
    
    КонецПроцедуры
    

Поделиться этой страницей