Отчет из таблиц SQL выгружает данные в 1с. За месяц отчет выполняется секунд 40. Нужно убыстрить. Есть код формирования скд, есть код выгрузки таблиц из скуля. Что тут можно оптимизировать? Могу скинуть сам отчет, только куда?

&НаСервере
Функция ПолучитьТаблицу()

    Дата1 = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[0].Значение.ДатаНачала;
    Дата2 = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[0].Значение.ДатаОкончания;
    
    ЗапросПродаж = Новый Запрос;
    ЗапросПродаж.УстановитьПараметр("Дата1",Дата1);
    ЗапросПродаж.УстановитьПараметр("Дата2",Дата2);

    ЗапросПродаж.Текст = "ВЫБРАТЬ
            |    OtchetProdazh.Ofis КАК Офисы,
            |    OtchetProdazh.GrupTovara КАК ГруппыТоваров,
            |    OtchetProdazh.KodTovara КАК KodTovara,
            |    СУММА(OtchetProdazh.Vistavleno) КАК Выставлено,
            |    СУММА(OtchetProdazh.Oplacheno) КАК Оплачено,
            |    OtchetProdazh.Data КАК Дата
            |ИЗ
            |    ВнешнийИсточникДанных.OtchetProdazh.Таблица.OtchetProdazh КАК OtchetProdazh
            |ГДЕ
            |    OtchetProdazh.Data >= &Дата1
            |    И OtchetProdazh.Data <= &Дата2 ";

    
    Если Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[1].Использование  = Истина
       и Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[1].ПравоеЗначение <> 7 тогда
       Офис = ПолучитьОфис();
    ЗапросПродаж.УстановитьПараметр("Ofis","%"+Офис+"%");
       ЗапросПродаж.Текст = ЗапросПродаж.Текст + "И OtchetProdazh.Ofis ПОДОБНО &Ofis ";
   КонецЕсли;
  
   ЗапросПродаж.Текст = ЗапросПродаж.Текст + "СГРУППИРОВАТЬ ПО
            |    OtchetProdazh.Ofis,
            |    OtchetProdazh.GrupTovara,
            |    OtchetProdazh.KodTovara,
            |    OtchetProdazh.Data
            |
            |УПОРЯДОЧИТЬ ПО
            |    KodTovara";
    
    РезультатЗапросаПродаж = ЗапросПродаж.Выполнить().Выгрузить();
    РезультатЗапросаПродаж.Колонки.Добавить("Товары");
    РезультатЗапросаПродаж.Колонки.Добавить("Соотношение");
    //РезультатЗапросаПродаж.Колонки.Добавить("Дата");
    
     кол  = РезультатЗапросаПродаж.Количество();    
    
    строка=0;
    
    Пока строка < кол Цикл
        КодТовара = РезультатЗапросаПродаж[строка].KodTovara;
        Товары = Справочники.Номенклатура.НайтиПоКоду(СокрЛП(КодТовара));
        Пока строка < кол  И КодТовара = РезультатЗапросаПродаж[строка].KodTovara Цикл
            РезультатЗапросаПродаж[строка].Товары = Товары;
            строка = строка+1;
        КонецЦикла;
    КонецЦикла;

    Возврат РезультатЗапросаПродаж;

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

Заведи регистр оборотов и сделай агрегат. Отчёт будет формироваться за 1 секунду.

(1) в рабочую базу вмешиваться очень нежелательно. крайний вариант.

вообще было бы не плохо увидеть на каких строках сколько тратиться времени. Сразу видно что последний цикл нужно заменить запросом

(0) Странно, функиця есть "group by" нет

так же проверить есть ли индекс по датам во внешней базе

(4)  ЗапросПродаж.Текст = ЗапросПродаж.Текст + "СГРУППИРОВАТЬ ПО

+4 неполностью посмотрел, сори.

Мне кажется "OtchetProdazh.Data" тут лишняя и с подобно надо что то делать

(3) 35% времени тратится на строчку     ПроцессорВывода.Вывести(ПроцессорКомпоновки);

26% времени тратится на строчку
    РезультатЗапросаПродаж = ЗапросПродаж.Выполнить().Выгрузить();

Товары = Справочники.Номенклатура.НайтиПоКоду(СокрЛП(КодТовара));

Это определенно надо в запросе делать

Охренеть, мне сам Волшебник отвечал! Надо сохранить себе скрин на память :-)

(0) Запрос с этим условием: "И OtchetProdazh.Ofis ПОДОБНО &Ofis " ?

Ну и (3) с (9) однозначно надо. Если с типами нет косяка.

(10) теперь неделю глаза не мой ))

(11) Если стоит отбор по офисам, то добавляется это условие, если нет, то без него. В любом случае неприлично долго.

(11) касательно (3) я уже ответила в (8) 2 самые долгие позиции. А касательно (9) сейчас переделываю.

(12) Чуяло мое нутро, не надо было сегодня глаза красить ))

(13) Поиск по параметру такого вида "%"+Офис+"%" херит все индексы. Если они там вообще есть, конечно же. Желательно искать по полному равенству. Или хотя бы знак % оставить только в конце.

(0) У вас внешний источник.... выгрузка просто из  него данных простым селектом скажем Тор 100 сколько времени ?

(17) Вообще не плохо бы понимать сколько там данных во "внешнем источнике", а то там может не 100, а 100500 и 40 секунд это нормально для такого объема.

+(17) И мы обсуждаем "неприлично долго" работу внешнего источника ? Или   обработку в цикле  курсора оного с вызовом  НайтиПоКоду ?

(17)(18) первые 100 выбирает за 7,2 сек. Количество записей в таблице за месяц апрель к примеру - 97776.

(19)Есть отчет и жалоба на него что он работает долго. Собственно я и думаю как-то его убыстрить. Отчет на двух функциях тормозит, первую я выложила, вот вторая (ссылается на функцию выше).

    Если Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[1].ПравоеЗначение = 7 тогда
        Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[1].Использование = ложь;
    КонецЕсли;
        
    Результат.Очистить();
    ОтчетОбъект = РеквизитФормыВЗначение("Отчет");    
    Схема = ОтчетОбъект.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
    Настройки = Схема.НастройкиПоУмолчанию;
    
    КомпоновщикНастроекДанных = Новый КомпоновщикНастроекКомпоновкиДанных;        
    КомпоновщикНастроекДанных.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема));
    КомпоновщикНастроекДанных.ЗагрузитьНастройки(Схема.НастройкиПоУмолчанию);
    КомпоновщикНастроекДанных.ЗагрузитьПользовательскиеНастройки(Отчет.КомпоновщикНастроек.ПользовательскиеНастройки);
    
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    Макет = КомпоновщикМакета.Выполнить(Схема, КомпоновщикНастроекДанных.ПолучитьНастройки());
                
    ТаблицаЗаказов = ПолучитьТаблицу();
        
    ВнешниеНаборыДанных = Новый Структура;  ///присоединяем к скд наш внешний набор данных
    ВнешниеНаборыДанных.Вставить("Результат",ТаблицаЗаказов);
    
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;        
    ПроцессорКомпоновки.Инициализировать(Макет, ВнешниеНаборыДанных);
    
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(Результат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
    
    Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;
    Элементы.Результат.ОтображениеСостояния.ДополнительныйРежимОтображения = ДополнительныйРежимОтображения.НеИспользовать;
    
    Результат.ПоказатьУровеньГруппировокСтрок(1);
    Результат.ПоказатьУровеньГруппировокСтрок(0);
                     
        Офис = ПолучитьОфис();
        Если Офис = "Общий" тогда
            ТаблицаЗаказов.Свернуть("Офисы,Дата","Оплачено");
            Строка = "[";
            Для каждого СтрТЗ из ТаблицаЗаказов Цикл
                Если СтрТЗ.Офисы<>"" и СтрТЗ.Офисы <> null тогда
                    Строка = Строка + Строка("["+Формат(СтрТЗ.Дата, "ДФ=ггггММдд") + "," + Формат(окр(СтрТЗ.Оплачено,0),"ЧГ=0")+"," + Символ(34)+СтрТЗ.Офисы+Символ(34)+"],");
                КонецЕсли;
            КонецЦикла;
            Строка = Строка+"]";
        Иначе
            ТаблицаЗаказов.Свернуть("ГруппыТоваров,Дата","Оплачено");
            Строка = "[";
            Для каждого СтрТЗ из ТаблицаЗаказов Цикл
                Если СтрТЗ.ГруппыТоваров<>"" и СтрТЗ.ГруппыТоваров <> null тогда
                    Строка = Строка + Строка("["+Формат(СтрТЗ.Дата, "ДФ=ггггММдд") + "," + Формат(окр(СтрТЗ.Оплачено,0),"ЧГ=0")+"," + Символ(34)+СтрТЗ.ГруппыТоваров+Символ(34)+"],");
                КонецЕсли;                    
            КонецЦикла;    
            Строка = Строка+"]";            
        КонецЕсли;    
    
    Возврат Строка;

(19) некрасиво получилось... лучше так:

&НаСервере
Функция СформироватьКнопкаНаСервере()
    Время = ТекущаяДата();
    
    Если Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[1].ПравоеЗначение = 7 тогда
        Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы[1].Использование = ложь;
    КонецЕсли;
        
    Результат.Очистить();
    ОтчетОбъект = РеквизитФормыВЗначение("Отчет");    
    Схема = ОтчетОбъект.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
    Настройки = Схема.НастройкиПоУмолчанию;
    
    КомпоновщикНастроекДанных = Новый КомпоновщикНастроекКомпоновкиДанных;        
    КомпоновщикНастроекДанных.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(Схема));
    КомпоновщикНастроекДанных.ЗагрузитьНастройки(Схема.НастройкиПоУмолчанию);
    КомпоновщикНастроекДанных.ЗагрузитьПользовательскиеНастройки(Отчет.КомпоновщикНастроек.ПользовательскиеНастройки);
    
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    Макет = КомпоновщикМакета.Выполнить(Схема, КомпоновщикНастроекДанных.ПолучитьНастройки());
                
    ТаблицаЗаказов = ПолучитьТаблицу();
        
    ВнешниеНаборыДанных = Новый Структура;  ///присоединяем к скд наш внешний набор данных
    ВнешниеНаборыДанных.Вставить("Результат",ТаблицаЗаказов);
    
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;        
    ПроцессорКомпоновки.Инициализировать(Макет, ВнешниеНаборыДанных);
    
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(Результат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
    
    Элементы.Результат.ОтображениеСостояния.Видимость = Ложь;
    Элементы.Результат.ОтображениеСостояния.ДополнительныйРежимОтображения = ДополнительныйРежимОтображения.НеИспользовать;
    
    Результат.ПоказатьУровеньГруппировокСтрок(1);
    Результат.ПоказатьУровеньГруппировокСтрок(0);
                     
        Офис = ПолучитьОфис();
        Если Офис = "Общий" тогда
            ТаблицаЗаказов.Свернуть("Офисы,Дата","Оплачено");
            Строка = "[";
            Для каждого СтрТЗ из ТаблицаЗаказов Цикл
                Если СтрТЗ.Офисы<>"" и СтрТЗ.Офисы <> null тогда
                    Строка = Строка + Строка("["+Формат(СтрТЗ.Дата, "ДФ=ггггММдд") + "," + Формат(окр(СтрТЗ.Оплачено,0),"ЧГ=0")+"," + Символ(34)+СтрТЗ.Офисы+Символ(34)+"],");
                КонецЕсли;
            КонецЦикла;
            Строка = Строка+"]";
        Иначе
            ТаблицаЗаказов.Свернуть("ГруппыТоваров,Дата","Оплачено");
            Строка = "[";
            Для каждого СтрТЗ из ТаблицаЗаказов Цикл
                Если СтрТЗ.ГруппыТоваров<>"" и СтрТЗ.ГруппыТоваров <> null тогда
                    Строка = Строка + Строка("["+Формат(СтрТЗ.Дата, "ДФ=ггггММдд") + "," + Формат(окр(СтрТЗ.Оплачено,0),"ЧГ=0")+"," + Символ(34)+СтрТЗ.ГруппыТоваров+Символ(34)+"],");
                КонецЕсли;                    
            КонецЦикла;    
            Строка = Строка+"]";            
        КонецЕсли;    
    
    Возврат Строка;    

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

какая строчка выполняется дольше всего?

(23)
35% времени тратится на строчку    
ПроцессорВывода.Вывести(ПроцессорКомпоновки);

26% времени тратится на строчку
    РезультатЗапросаПродаж = ЗапросПродаж.Выполнить().Выгрузить();

(24) сколько в итоговом отчете строк?

(9) переделала, стало дольше.

    Пока строка < кол Цикл
        КодТовара = РезультатЗапросаПродаж[строка].KodTovara;
    
    ЗапросТовар = Новый Запрос;
    ЗапросТовар.Текст = "ВЫБРАТЬ
                        |    Номенклатура.Ссылка
                        |ИЗ
                        |    Справочник.Номенклатура КАК Номенклатура
                        |ГДЕ
                        |    Номенклатура.Код = &Код";
    ЗапросТовар.УстановитьПараметр("Код",КодТовара);
    ВыборкаТовар = ЗапросТовар.Выполнить().Выбрать();
    ВыборкаТовар.Следующий();
    РезультатЗапросаПродаж[строка].Товары = ВыборкаТовар.Ссылка;
    строка = строка+1;
    КонецЦикла;

(25)Количество записей в таблице за месяц апрель к примеру - 97776.

(25)а вот выгружать из внешних источников в эксель чтобы быстренько глянуть общее количество данных явно не стоило... сижу, жду, когда отвиснет.

(26) Ну ты конечно переделала :)

Сначал собрать все коды товаров в массив, потом сделать запрос по товарам с этим кодов - выгрузить в ТЗ (добавить ТЗ индекс по полю кода).
И в цикле искать уже по коду в ТЗ, а не делать запрос по каждой строке.

(29)Я старалась, спешила, пока желающие помочь не пропали) Что исправить?

(30)Спасибо!

(32) Не надо его благодарить - он гадость советует

(33)Спасибо отменяется, кто чего хорошего посоветует?)

(32) У тебя уже есть запрос из внешнего источника - в нем же через левое соединение получи номенклатуру

(35)Гениально, черт побери

(35)использование нескольких источников данных недопустимо, пишет (

(37) Выбери сначала в ВТ из внешнего. Потом к этой ВТ уже присоединяй.

(38)Ща, спасибо!

(38)Та же ошибка при попытке создания временной таблицы из внешнего источника данных( Получение данных из нескольких источников недопустимо (

(40) Кажется, я вспомнил, почему мы не юзаем внешние источники данных -_-

Тогда (30). Верни ему спасибо :)

(30) Спасибо! :-)

(42) Выгрузи тогда первый запрос в таблицу значений и прогрузи ее во времянку а там левое соединение.

(43)по скорости получилось примерно одинаково, но метод по (30) сработал чуть быстрее.

(0)  а вот это что такое? Офис = ПолучитьОфис();