Имя: Пароль:
1C
1С v8
Группировка в мобильной версии конфигурации
0 Zaicev
 
25.08.13
11:07
Здравствуйте!
Переделываю отчет для мобильной конфигурации 1с, столкнулся с проблемой, нужно сделать группировку по поставщику.
Пробовал создать отчет через запросы, ну запрос в мобильной конфигурации использовать нельзя.
Посоветуйте пожалуйста, как возможно это сделать ?
Вот код :

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

    Для каждого Движение Из ТаблицаДвижений Цикл
        ОбластьМакета = Макет.ПолучитьОбласть("Строка");
        ЗаполнитьЗначенияСвойств(ОбластьМакета.Параметры,Движение);
                Содержимое.Вывести(ОбластьМакета);
    КонецЦикла;
    
КонецПроцедуры // СформироватьНаСервере()
1 Zaicev
 
25.08.13
18:01
Печалька(