очиститьСообщения();
началоПросрочки = 0;
конецПросрочки = 15;
сообщить("начало" + Строка(ТекущаяДАта()));
text = "select a.id, a.back_date, adddate(a.credit_date, a.credit_time) as ДатаВвода
|    ,a.debt as debt
|from applications as a
|where a.status = 'issued'
|and DATEDIFF(curdate(), a.back_date) between "+Строка(началоПросрочки)+" and "+Строка(конецПросрочки)+"
|and now() > adddate(date(a.credit_date), a.credit_time)
|";
Сайт = Новый ТаблицаЗначений;
Сайт.Колонки.Добавить("id",Новый ОписаниеТипов("Число",,,Новый КвалификаторыЧисла(11,0)));
Сайт.Колонки.Добавить("back_date",Новый ОписаниеТипов("Дата",,,,,Новый КвалификаторыДаты(ЧастиДаты.Дата)));
Сайт.Колонки.Добавить("ДатаВвода",Новый ОписаниеТипов("Дата",,,,,Новый КвалификаторыДаты(ЧастиДаты.Дата)));
Сайт.Колонки.Добавить("debt",Новый ОписаниеТипов("Число",,,,Новый КвалификаторыЧисла(15,2)));
ЗМ_Разработка.ВыполнитьЗапросКSQL(text,,,Сайт);
мОбъектЗапроса.УстановитьПараметр("Сайт",Сайт);                    
мОбъектЗапроса.УстановитьПараметр("ТекущаяДата", ТекущаяДата());
мОбъектЗапроса.УстановитьПараметр("НачалоПросрочки", началоПросрочки);
мОбъектЗапроса.УстановитьПараметр("КонецПросрочки", конецПросрочки);
сообщить("конец(" + Формат(Сайт.количество(),"ЧГ=0") +") "+ Строка(ТекущаяДАта()));

Функция ВыполнитьЗапросКSQL(ТекстЗапроса, ВозвращатьТаблицуСТекстовымиЗначениямиПолей = Истина, СтрокаПодключения = Неопределено
,ТаблицаДляЗаполнения = Неопределено
,Connection = Неопределено
) Экспорт
нач = ТекущаяУниверсальнаяДатаВМиллисекундах();
тек = неопределено;
КоличествоВозможныхНеудачныхПопытокЗапросаКСайту = РегистрыСведений.ХранилищеНастроек.Загрузить("Внутренние настройки","Кол-во неудачных запросов");
Если Не ЗначениеЗаполнено(КоличествоВозможныхНеудачныхПопытокЗапросаКСайту) Тогда
КоличествоВозможныхНеудачныхПопытокЗапросаКСайту = 1;
КонецЕсли;
СчетчикНеудачныхПопытокЗапросаКСайту = 0;
Пока СчетчикНеудачныхПопытокЗапросаКСайту <= КоличествоВозможныхНеудачныхПопытокЗапросаКСайту Цикл

Попытка
Connection = Новый COMОбъект("ADODB.Connection");
Исключение
ЗаписьЖурналаРегистрации("Ошибка при выполнении запроса к SQL", УровеньЖурналаРегистрации.Ошибка,,,"Возникла ошибка при создании COM объекта соединения
|описание ошибки =" + Строка(ОписаниеОшибки()) + "
|номер попытки =" + Формат(СчетчикНеудачныхПопытокЗапросаКСайту, "ЧГ=0")
);
СчетчикНеудачныхПопытокЗапросаКСайту = СчетчикНеудачныхПопытокЗапросаКСайту + 1;
Продолжить;
КонецПопытки;
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Создан com-объект Connection", нач, тек);
Connection.ConnectionString  = ?(ЗначениеЗаполнено(СтрокаПодключения), СтрокаПодключения, ПолучитьConStr());
Connection.ConnectionTimeOut = 500;
Connection.CommandTimeout    = 500;

Попытка      
Connection.Open();
Connection.DefaultDatabase = "zaymer";
Исключение      
ЗаписьЖурналаРегистрации("Ошибка при выполнении запроса к SQL", УровеньЖурналаРегистрации.Ошибка,,,"Возникла ошибка при открытии COM объекта
|описание ошибки = " + Строка(ОписаниеОшибки()) + "
|номер попытки =" + Формат(СчетчикНеудачныхПопытокЗапросаКСайту, "ЧГ=0")
);
СчетчикНеудачныхПопытокЗапросаКСайту = СчетчикНеудачныхПопытокЗапросаКСайту + 1;
Продолжить;
КонецПопытки;   
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Соединение открыто", нач, тек);
Table = Новый COMОбъект("ADODB.RecordSet");
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Создан com-объект RecordSet", нач, тек);Table.Open(СокрЛП(ТекстЗапроса),Connection,3,1); 
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Набор записей получен", нач, тек);
Если ТипЗнч(ТаблицаДляЗаполнения) = Тип("ТаблицаЗначений") Тогда
Пока Table.EOF() = 0 Цикл
Стр = ТаблицаДляЗаполнения.Добавить();
Для Каждого Колонка Из ТаблицаДляЗаполнения.Колонки Цикл
Стр[Колонка.Имя] = ?(Колонка.ТипЗначения = Новый ОписаниеТипов("Строка",,,,Новый КвалификаторыСтроки(20)) 
или Колонка.ТипЗначения = Новый ОписаниеТипов("Строка",,,,Новый КвалификаторыСтроки(80))
,Формат(Table.Fields(Колонка.Имя).Value, "ЧГ=0")
,Table.Fields(Колонка.Имя).Value);
КонецЦикла;
Table.MoveNext();
КонецЦикла;
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Произведен обход набора записей и сформирована таблица значений", нач, тек);
Connection.Close();
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Соединение закрыто, производится выход из функции", нач, тек);
Возврат ТаблицаДляЗаполнения;
КонецЕсли;
Если ВозвращатьТаблицуСТекстовымиЗначениямиПолей Тогда
ТЗ = Новый ТаблицаЗначений;
Для Каждого Field Из Table.Fields Цикл
Попытка
ТЗ.Колонки.Добавить(Field.Name, Новый ОписаниеТипов("Строка",,,,Новый КвалификаторыСтроки(1000)));
Исключение
Сообщить("при добавлениии колонки "+Field.Name+" произошла ошибка: "+Строка(ОписаниеОшибки()));
КонецПопытки;
КонецЦикла;
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Сгенерирована таблица значений со строковыми полями с псевдонимами равными псевданимам колонок набора записей", нач, тек);
Пока Table.EOF() = 0 Цикл
Стр = ТЗ.Добавить();
Для Каждого Колонка Из ТЗ.Колонки Цикл
Стр[Колонка.Имя] = Формат(Table.Fields(Колонка.Имя).Value, "ЧГ=0");
КонецЦикла;
Table.MoveNext();
КонецЦикла;
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Произведены обход набора записей и заполнение таблицы значений", нач, тек);
Connection.Close();
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Соединение закрыто", нач, тек);
КонецЕсли;
РегламентныеЗаданияСервер.ЗаписатьМетрикуВЖурнал("Выполнение запроса к SQL", "Производится выход из функции", нач, тек);
Возврат ?(ВозвращатьТаблицуСТекстовымиЗначениямиПолей, ТЗ, Table);
КонецЦикла;
Если КоличествоВозможныхНеудачныхПопытокЗапросаКСайту > СчетчикНеудачныхПопытокЗапросаКСайту Тогда
ВыполнитьОповещениеОбОшибке("при выполнении запроса к сайту в течение "+Формат(СчетчикНеудачныхПопытокЗапросаКСайту,"ЧГ=0")+" раз(а) не был получен ответ от сайта, текст запроса: 
|
|"+ТекстЗапроса);
КонецЕсли;
Возврат Неопределено;
КонецФункции