Добрый день. Есть конфигурация на 8.1 Бух для Казахстана. Есть обработка которая выполняет подсчет ГЭСВ(годовой эфективной ставки) и есть очень большой объем данных для которых нужно выполнить расчет. Подскажите как можно ускорить процесс

Процедура КнопкаВыполнитьНажатие(Кнопка)
УсловиеПункт ="";    
Запрос = Новый Запрос;
МенеджерВТ = Новый МенеджерВременныхТаблиц;
Запрос.МенеджерВременныхТаблиц = МенеджерВт;
Если Подразделение.Пустая() Тогда

Иначе
    УсловиеПункт = "И ФинДвиженияПоЗБ.Пункт = &Пункт";
КонецЕсли;
Запрос.Текст = "ВЫБРАТЬ
               |    ФинДвиженияПоЗБ.Пункт КАК Пункт,
               |    ФинДвиженияПоЗБ.Регистратор.ЗБ КАК ЗБ,
               |    ФинДвиженияПоЗБ.Регистратор.Дата КАК ДатаВыдачи,
               |    ФинДвиженияПоЗБ.Регистратор.ДатаВозврата КАК ДатаВозврата,
               |    СУММА(ВЫБОР
               |            КОГДА ФинДвиженияПоЗБ.ДвижениеДС = &Выдача
               |                ТОГДА ФинДвиженияПоЗБ.Сумма
               |            ИНАЧЕ 0
               |        КОНЕЦ) КАК СуммаКредита,
               |    СУММА(ВЫБОР
               |            КОГДА ФинДвиженияПоЗБ.ДвижениеДС = &Вознаграждение
               |                    ИЛИ ФинДвиженияПоЗБ.ДвижениеДС = &КомСбор
               |                ТОГДА ФинДвиженияПоЗБ.Сумма
               |            ИНАЧЕ 0
               |        КОНЕЦ) КАК ДоходОтВыдачи
               |ПОМЕСТИТЬ ВтСырыеДанные
               |ИЗ
               |    РегистрНакопления.ФинДвиженияПоЗБ КАК ФинДвиженияПоЗБ
               |ГДЕ
               |    ФинДвиженияПоЗБ.Регистратор ССЫЛКА Документ.ВыдачаЗБ
               |    И ФинДвиженияПоЗБ.Период МЕЖДУ &НачДата И &КонДАта
               |    "+УсловиеПункт+"
               |
               |СГРУППИРОВАТЬ ПО
               |    ФинДвиженияПоЗБ.Пункт,
               |    ФинДвиженияПоЗБ.Регистратор.ЗБ,
               |    ФинДвиженияПоЗБ.Регистратор.Дата,
               |    ФинДвиженияПоЗБ.Регистратор.ДатаВозврата
               |;
               |
               |////////////////////////////////////////////////////////////////////////////////
               |ВЫБРАТЬ
               |    ВтСырыеДанные.Пункт,
               |    ВтСырыеДанные.ЗБ,
               |    ВтСырыеДанные.ДатаВыдачи,
               |    ВтСырыеДанные.ДатаВозврата,
               |    ВтСырыеДанные.СуммаКредита,
               |    ВтСырыеДанные.ДоходОтВыдачи,
               |    ВтСырыеДанные.СуммаКредита + ВтСырыеДанные.ДоходОтВыдачи КАК СуммаГашения
               |ПОМЕСТИТЬ ВтДанныеБезГЭСВ
               |ИЗ
               |    ВтСырыеДанные КАК ВтСырыеДанные
               |;
               |
               |////////////////////////////////////////////////////////////////////////////////
               |ВЫБРАТЬ
               |    ВтДанныеБезГЭСВ.Пункт,
               |    ВтДанныеБезГЭСВ.ЗБ,
               |    ВтДанныеБезГЭСВ.ДатаВыдачи,
               |    ВтДанныеБезГЭСВ.ДатаВозврата,
               |    ВтДанныеБезГЭСВ.СуммаКредита,
               |    ВтДанныеБезГЭСВ.ДоходОтВыдачи,
               |    ВтДанныеБезГЭСВ.СуммаГашения
               |ИЗ
               |    ВтДанныеБезГЭСВ КАК ВтДанныеБезГЭСВ";
              
Запрос.УстановитьПараметр("Вознаграждение",Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000074"));
Запрос.УстановитьПараметр("КомСбор",Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000073"));
Запрос.УстановитьПараметр("Выдача",Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000072"));
Запрос.УстановитьПараметр("Пункт",Подразделение);
Запрос.УстановитьПараметр("НачДАта",НачДата);
Запрос.УстановитьПараметр("КОнДата",КонДата);
Выборка = Запрос.Выполнить().Выбрать();
ТабДок = Новый ТаблицаЗначений;
ТабДок.Колонки.Добавить("ЗБ",Новый ОписаниеТипов("СправочникССылка.ЗалоговыеБилеты"));
ТабДок.Колонки.Добавить("ГЭСВ",Новый ОписаниеТипов("Число"));

Пока Выборка.Следующий() Цикл
      ТекСтрока = ТабДок.Добавить();
      ТекСтрока.ЗБ = Выборка.ЗБ;
      ТекСтрока.ГЭСВ = ЧистВнДох(Выборка.ДатаВыдачи,Выборка.СуммаКредита,Выборка.ДатаВозврата,Выборка.ДоходОтВыдачи);
КонецЦикла;

Запрос2 = Новый ЗАпрос;
Запрос2.Текст =  "ВЫБРАТЬ
                 |    ЗБСГЭСВ.ЗБ,
                 |    ЗБСГЭСВ.ГЭСВ
                 |ПОМЕСТИТЬ ВТЗБСГЭСВ
                 |ИЗ
                 |    &ЗБСГЭСВ КАК ЗБСГЭСВ
                 |;
                 |
                 |////////////////////////////////////////////////////////////////////////////////
                 |ВЫБРАТЬ
                 |    ВтДанныеБезГЭСВ.Пункт,
                 |    ВтДанныеБезГЭСВ.ЗБ КАК ЗБ,
                 |    ВтДанныеБезГЭСВ.ДатаВыдачи,
                 |    ВтДанныеБезГЭСВ.ДатаВозврата,
                 |    ВтДанныеБезГЭСВ.СуммаКредита,
                 |    ВтДанныеБезГЭСВ.ДоходОтВыдачи,
                 |    ВтДанныеБезГЭСВ.СуммаГашения,
                 |    ВТЗБСГЭСВ.ГЭСВ
                 |ИЗ
                 |    ВтДанныеБезГЭСВ КАК ВтДанныеБезГЭСВ
                 |        ЛЕВОЕ СОЕДИНЕНИЕ ВТЗБСГЭСВ КАК ВТЗБСГЭСВ
                 |        ПО ВтДанныеБезГЭСВ.ЗБ = ВТЗБСГЭСВ.ЗБ
                 |
                 |УПОРЯДОЧИТЬ ПО
                 |    ЗБ";
Запрос2.МенеджерВременныхТаблиц = МенеджерВТ;
Запрос2.УстановитьПараметр("ЗБСГЭСВ",ТабДок);
ТЗ = Запрос2.Выполнить().Выгрузить();

Печать(ТЗ);

КонецПроцедуры

//Описание:
//Входные параметры:
// ДатаВыдачи,
// СуммаКредита (СуммаК),
// ДатаВозврата,
// СтавкаВознаграждение,
// Срок,
Функция ЧистВнДох(ДатаВыдачи, СуммаКредита, ДатаВозврата, СуммаВознаграждения, Точность = 0.01) экспорт
    
    Если ДатаВыдачи = Null или СуммаКредита = 0 или ДатаВозврата = null или СуммаВознаграждения = 0  Тогда
        Возврат 0;
    КонецЕсли;

    ТаблицаРасчета = Новый ТаблицаЗначений;
    ТаблицаРасчета.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата", новый КвалификаторыДаты(ЧастиДаты.Дата)));
    ТаблицаРасчета.Колонки.Добавить("РазностьДат");
    ТаблицаРасчета.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,2)));
    
    НоваяСтрокаТаблицаРасчета = ТаблицаРасчета.Добавить();
    НоваяСтрокаТаблицаРасчета.Дата = НачалоДня(ДатаВыдачи);
    НоваяСтрокаТаблицаРасчета.РазностьДат = (НачалоДня(ДатаВыдачи) - НачалоДня(ДатаВыдачи)) / (24 * 60 * 60) / 365;
    НоваяСтрокаТаблицаРасчета.Сумма = -СуммаКредита;
    
    НоваяСтрокаТаблицаРасчета = ТаблицаРасчета.Добавить();
    НоваяСтрокаТаблицаРасчета.Дата = НачалоДня(ДатаВозврата);
    НоваяСтрокаТаблицаРасчета.РазностьДат = (НачалоДня(ДатаВозврата) - НачалоДня(ДатаВыдачи)) / (24 * 60 * 60) / 365;
    НоваяСтрокаТаблицаРасчета.Сумма = СуммаКредита+СуммаВознаграждения;
    
    //
    ПСК = 0.1;
    Сумма = 0;
    Для каждого СтрокаРасчета Из ТаблицаРасчета Цикл
        Сумма = Сумма + СтрокаРасчета.Сумма / Pow(1 + ПСК, СтрокаРасчета.РазностьДат)
    КонецЦикла;
    
    Если Сумма > 0 Тогда
        Шаг = 0.382 * ПСК;
     Иначе
        Шаг = -0.382 * ПСК;
    КонецЕсли;

    Пока (Шаг < -Точность) ИЛИ (Шаг > Точность) Цикл
        ПСК = ПСК + Шаг;
        Сумма = 0;
        Для каждого СтрокаРасчета Из ТаблицаРасчета Цикл
            Сумма = Сумма + СтрокаРасчета.Сумма / Pow(1 + ПСК, СтрокаРасчета.РазностьДат)
            
        КонецЦикла;
        Если Сумма * Шаг < 0 Тогда
            Шаг = -Шаг * 0.382;//из метода золотого сечения
        КонецЕсли;
    КонецЦикла;
    //ГЭСВ = ПСК
    Возврат Формат(ПСК*100,"ЧЦ=10; ЧДЦ=2");
    
КонецФункции
// -Sarge: 07/11/2018

Процедура Печать(ТЗ)
    ТабДокумент = Новый ТабличныйДокумент;
    
    Макет = ПолучитьМакет("Макет");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    
    ОбластьШапка.Параметры.Пункт = Подразделение;
    ОбластьШапка.Параметры.НачДата = НачДата;
    ОбластьШапка.Параметры.КонДата = КонДата;
    ТабДокумент.Вывести(ОбластьШапка);
    
    ОбластьШапкаТЗ = Макет.ПолучитьОбласть("ШапкаТЗ");
    ТабДокумент.Вывести(ОбластьШапкаТЗ);
    
    ОбластьДанныеТЗ= Макет.ПолучитьОбласть("ДанныеТЗ");
    
    Для каждого Запись Из ТЗ Цикл
    
        ОбластьДанныеТЗ.Параметры.Заполнить(Запись);
        ТабДокумент.Вывести(ОбластьДанныеТЗ);
        Сообщить("Выведен в таблицу билет :"+Запись.ЗБ);
    КонецЦикла;
    
    ТабДокумент.Показать();
    
КонецПроцедуры;

Как можно это реализовать в запросе. Если таковое возможно

//из метода золотого сечения

Вон оно чо.
Почувствовал свою ущербность...

Все не читал, но писать 365 в коде это не по пацански. Раз в 4 года будут вопросы.

Спасибо на счет 365 учту.

(1)   Пока (Шаг < -Точность) ИЛИ (Шаг > Точность) Цикл

вот тут то с запросом возникнет трудность

Замер производительности что показывает?
Какие строки занимают больше всего времени?

Он просто много делает итераций внутри крайнего цикла.

update

Знаю что проблема в функции ЧИСтВнДох но где не могу понять. Подскажите пожалуйста как укоротить количество итераций

//Описание:

//Входные параметры:
// ДатаВыдачи,

// СуммаКредита (СуммаК),
// ДатаВозврата,

// СтавкаВознаграждение,
// Срок,

Функция ЧистВнДох(ДатаВыдачи, СуммаКредита, ДатаВозврата, СуммаВознаграждения, Точность = 0.01) экспорт
    
    Если ДатаВыдачи = Null или СуммаКредита = 0 или ДатаВозврата = null или СуммаВознаграждения = 0  Тогда
        Возврат 0;
    КонецЕсли;

    ТаблицаРасчета = Новый ТаблицаЗначений;
    ТаблицаРасчета.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата", новый КвалификаторыДаты(ЧастиДаты.Дата)));
    ТаблицаРасчета.Колонки.Добавить("РазностьДат");
    ТаблицаРасчета.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,2)));
    
    НоваяСтрокаТаблицаРасчета = ТаблицаРасчета.Добавить();
    НоваяСтрокаТаблицаРасчета.Дата = НачалоДня(ДатаВыдачи);
    НоваяСтрокаТаблицаРасчета.РазностьДат = (НачалоДня(ДатаВыдачи) - НачалоДня(ДатаВыдачи)) / (24 * 60 * 60) / 365;
    НоваяСтрокаТаблицаРасчета.Сумма = -СуммаКредита;
    
    НоваяСтрокаТаблицаРасчета = ТаблицаРасчета.Добавить();
    НоваяСтрокаТаблицаРасчета.Дата = НачалоДня(ДатаВозврата);
    НоваяСтрокаТаблицаРасчета.РазностьДат = (НачалоДня(ДатаВозврата) - НачалоДня(ДатаВыдачи)) / (24 * 60 * 60) / 365;
    НоваяСтрокаТаблицаРасчета.Сумма = СуммаКредита+СуммаВознаграждения;
    
    //

    ПСК = 0.1;
    Сумма = 0;
    Для каждого СтрокаРасчета Из ТаблицаРасчета Цикл
        Сумма = Сумма + СтрокаРасчета.Сумма / Pow(1 + ПСК, СтрокаРасчета.РазностьДат)
    КонецЦикла;
    
    Если Сумма > 0 Тогда
        Шаг = 0.382 * ПСК;
     Иначе
        Шаг = -0.382 * ПСК;
    КонецЕсли;

    Пока (Шаг < -Точность) ИЛИ (Шаг > Точность) Цикл
        ПСК = ПСК + Шаг;
        Сумма = 0;
        Для каждого СтрокаРасчета Из ТаблицаРасчета Цикл
            Сумма = Сумма + СтрокаРасчета.Сумма / Pow(1 + ПСК, СтрокаРасчета.РазностьДат)
            
        КонецЦикла;
        Если Сумма * Шаг < 0 Тогда
            Шаг = -Шаг * 0.382//из метода золотого сечения

        КонецЕсли;
    КонецЦикла;
    //ГЭСВ = ПСК

    Возврат Формат(ПСК*100,"ЧЦ=10; ЧДЦ=2");
    
КонецФункции
// -Sarge: 07/11/20

точнее

//Описание:

//Входные параметры:
// ДатаВыдачи,

// СуммаКредита (СуммаК),
// ДатаВозврата,

// СтавкаВознаграждение,
// Срок,

Функция ЧистВнДох(ДатаВыдачи, СуммаКредита, ДатаВозврата, СуммаВознаграждения, Точность = 0.01) экспорт
    
    Если ДатаВыдачи = Null или СуммаКредита = 0 или ДатаВозврата = null или СуммаВознаграждения = 0  Тогда
        Возврат 0;
    КонецЕсли;

    ТаблицаРасчета = Новый ТаблицаЗначений;
    ТаблицаРасчета.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата", новый КвалификаторыДаты(ЧастиДаты.Дата)));
    ТаблицаРасчета.Колонки.Добавить("РазностьДат");
    ТаблицаРасчета.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,2)));
    
    НоваяСтрокаТаблицаРасчета = ТаблицаРасчета.Добавить();
    НоваяСтрокаТаблицаРасчета.Дата = НачалоДня(ДатаВыдачи);
    НоваяСтрокаТаблицаРасчета.РазностьДат = (НачалоДня(ДатаВозврата) - НачалоДня(ДатаВыдачи)) / (24 * 60 * 60) / 365;
    НоваяСтрокаТаблицаРасчета.Сумма = -СуммаКредита;
    
    НоваяСтрокаТаблицаРасчета = ТаблицаРасчета.Добавить();
    НоваяСтрокаТаблицаРасчета.Дата = НачалоДня(ДатаВозврата);
    НоваяСтрокаТаблицаРасчета.РазностьДат = (НачалоДня(ДатаВозврата) - НачалоДня(ДатаВыдачи)) / (24 * 60 * 60) / 365;
    НоваяСтрокаТаблицаРасчета.Сумма = СуммаКредита+СуммаВознаграждения;
    
    //

    ПСК = 0.1;
    Сумма = 0;
    Для каждого СтрокаРасчета Из ТаблицаРасчета Цикл
        Сумма = Сумма + СтрокаРасчета.Сумма / Pow(1 + ПСК, СтрокаРасчета.РазностьДат)
    КонецЦикла;
    
    Если Сумма > 0 Тогда
        Шаг = 0.382 * ПСК;
     Иначе
        Шаг = -0.382 * ПСК;
    КонецЕсли;

    Пока (Шаг < -Точность) ИЛИ (Шаг > Точность) Цикл
        ПСК = ПСК + Шаг;
        Сумма = 0;
        Для каждого СтрокаРасчета Из ТаблицаРасчета Цикл
            Сумма = Сумма + СтрокаРасчета.Сумма / Pow(1 + ПСК, СтрокаРасчета.РазностьДат)
            
        КонецЦикла;
        Если Сумма * Шаг < 0 Тогда
            Шаг = -Шаг * 0.382//из метода золотого сечения

        КонецЕсли;
    КонецЦикла;
    //ГЭСВ = ПСК

    Возврат Формат(ПСК*100,"ЧЦ=10; ЧДЦ=2");
    
КонецФункции
// -Sarge: 07/11/20

Я правильно понимаю, что ЧистВнДох() зависит от периода кредита и сумм кредита и вознаграждения? Причем, исходя из первого запроса, либо суммы равны, либо одна из них = 0, но в последнем случае страбатывает граничное условие.
Т.е. по факту у рассчета два параметра: сумма и период.
Может закешировать результат расчета в таблице и повторно не рассчитывать для одинаковых значений параметров?