Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- КоличествоЗаписейДляОбработкеВОдномПотоке = Окр((ИтогоКоличествоЗаписейКОбработке / КоличествоПотоков),0,РежимОкругления.Окр15как20);
- ДатаОтбор = Дата(1,1,1);
- Для НомерПотока = 1 По КоличествоПотоков Цикл
- Запрос = Новый Запрос;
- Запрос.Текст =
- "ВЫБРАТЬ ПЕРВЫЕ 100
- | ДанныеБизнесПроцессов.БизнесПроцесс КАК БизнесПроцесс,
- | ДанныеБизнесПроцессов.БизнесПроцесс.Шаблон КАК Шаблон,
- | ДанныеБизнесПроцессов.Завершен КАК Завершен,
- | ДанныеБизнесПроцессов.Дата КАК Дата
- |ИЗ
- | РегистрСведений.ДанныеБизнесПроцессов КАК ДанныеБизнесПроцессов
- |ГДЕ
- | ДанныеБизнесПроцессов.УК_Шаблон = НЕОПРЕДЕЛЕНО
- | И ДанныеБизнесПроцессов.Дата > &ДатаОтбор
- | И НЕ ДанныеБизнесПроцессов.БизнесПроцесс.Шаблон ЕСТЬ NULL
- |
- |УПОРЯДОЧИТЬ ПО
- | ДанныеБизнесПроцессов.Дата";
- Запрос.УстановитьПараметр("ДатаОтбор", ДатаОтбор);
- Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат(КоличествоЗаписейДляОбработкеВОдномПотоке, "ЧГ=0"));
- РезультатЗапроса = Запрос.Выполнить();
- Если РезультатЗапроса.Пустой() Тогда
- Прервать;
- КонецЕсли;
- мДанныеДляОбработки = Новый Массив;
- Выборка = РезультатЗапроса.Выбрать();
- Пока Выборка.Следующий() Цикл
- СтруктураДанных = Новый Структура("БизнесПроцесс, Завершен, Шаблон", Выборка.БизнесПроцесс, Выборка.Завершен, Выборка.Шаблон);
- мДанныеДляОбработки.Добавить(СтруктураДанных);
- КонецЦикла;
- ДатаОтбор = Выборка.Дата;
- НаборПараметровФоновогоЗадания = Новый Массив;
- НаборПараметровФоновогоЗадания.Добавить(мДанныеДляОбработки);
- Задание = ФоновыеЗадания.Выполнить("СБ_ОбщегоНазначения.ОбработатьПорциюЗаполненияШаблонаДанныеБизнесПроцессов", НаборПараметровФоновогоЗадания);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement