0
Zaicev
25.08.13
✎
11:07
|
Здравствуйте!
Переделываю отчет для мобильной конфигурации 1с, столкнулся с проблемой, нужно сделать группировку по поставщику.
Пробовал создать отчет через запросы, ну запрос в мобильной конфигурации использовать нельзя.
Посоветуйте пожалуйста, как возможно это сделать ?
Вот код :
&НаСервере
Процедура СформироватьНаСервере()
Макет = Обработки.ДвиженияДенег.ПолучитьМакет("Макет");
Содержимое.Очистить();
ТаблицаДвижений = Новый ТаблицаЗначений;
ТаблицаДвижений.Колонки.Добавить("Дата");
ТаблицаДвижений.Колонки.Добавить("НаименованиеКонтрагента");
ТаблицаДвижений.Колонки.Добавить("НаименованиеПоставщик");
ТаблицаДвижений.Колонки.Добавить("Сумма");
ТаблицаДвижений.Колонки.Добавить("СуммаЗароботок");
ВыборкаДвижений = РегистрыНакопления.ДенежныеСредства.Выбрать();
Пока ВыборкаДвижений.Следующий() Цикл
Документ = ВыборкаДвижений.Регистратор;
НоваяСтрока = ТаблицаДвижений.Добавить();
НоваяСтрока.Дата = Формат(Документ.Дата, "ДФ=dd.MM.yyyy");
НоваяСтрока.НаименованиеКонтрагента = Документ.Контрагент.Наименование;
НоваяСтрока.НаименованиеПоставщик = Документ.Основание.ПоставщикТ;
НоваяСтрока.НаименованиеПосредник = Документ.Основание.Посредник;
НоваяСтрока.СуммаЗароботок = Документ.Основание.СуммаДокументаЗароботок;
НоваяСтрока.Сумма = ВыборкаДвижений.Сумма;
Если ВыборкаДвижений.ВидДвижения = ВидДвиженияНакопления.Расход Тогда
НоваяСтрока.Сумма = -НоваяСтрока.Сумма;
КонецЕсли;
КонецЦикла;
//ТаблицаДвижений.Свернуть("НаименованиеПоставщик, Дата", "Сумма");
ТаблицаДвижений.Сортировать("НаименованиеПоставщик, Дата");
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.Сумма = ТаблицаДвижений.Итог("Сумма");
ОбластьМакета.Параметры.ВсеЗароботок = ТаблицаДвижений.Итог("СуммаЗароботок");
Содержимое.Вывести(ОбластьМакета);
//ОбластьМакета = Макет.ПолучитьОбласть("ИтогПоставщик");
//ОбластьМакета.Параметры.НаименованиеПоставщик = Документ.Основание.ПоставщикТ;
//Содержимое.Вывести(ОбластьМакета);
Для каждого Движение Из ТаблицаДвижений Цикл
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
ЗаполнитьЗначенияСвойств(ОбластьМакета.Параметры,Движение);
Содержимое.Вывести(ОбластьМакета);
КонецЦикла;
КонецПроцедуры // СформироватьНаСервере()
|
|