В начало

Выгрузка отчета в массив структур

 

            Функция выгружает отчет в массив структур.

 

Листинг. Модуль формы

&НаСервере

Функция ВыгрузитьОтчетВМассив(Знач ДатаНачалаВзаимодействий, Знач ДатаОкончанияВзаимодействий)

 

            СКД = Отчеты.ОтчетДляРуководителей.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

           

            Запрос = Новый Запрос;

            Запрос.Текст = СКД.НаборыДанных.НаборДанных1.Запрос;

            Запрос.УстановитьПараметр("ДатаНачалаВзаимодействий", ДатаНачалаВзаимодействий);

            Запрос.УстановитьПараметр("ДатаОкончанияВзаимодействий", ДатаОкончанияВзаимодействий);

           

            Результат = Запрос.Выполнить();

           

            Если Результат.Пустой() Тогда

                        Возврат Неопределено;

            КонецЕсли;

           

            ТЗ = Результат.Выгрузить();       

            ТЗ.Свернуть("F1_Город, ПодряднаяОрганизация", "СуммаЕИРЦ");

           

            мВых = Новый Массив;

            Для Каждого Эл Из ТЗ Цикл

                        стТемп = Новый Структура;

                        стТемп.Вставить("Город", Эл.F1_Город);

                        стТемп.Вставить("ПодряднаяОрганизация", Эл.ПодряднаяОрганизация);

                        стТемп.Вставить("СуммаЕИРЦ", Эл.СуммаЕИРЦ);

 

                        мВых.Добавить(стТемп)

            КонецЦикла;

           

            Возврат мВых;

           

КонецФункции