Оптимизация распределения работников

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

			ПараметрыОтбора = Новый Структура;
			ПараметрыОтбора.Вставить("Рабочий",Выборка.Рабочий);
			НайденныеСтроки = Текущий.НайтиСтроки(ПараметрыОтбора);
			Если НайденныеСтроки.Количество()>0 Тогда
				Для Каждого ТекСтр из НайденныеСтроки Цикл
					ТекСтр["Место"+ДеньМесяца] = ТекКонвеер.Конвеер;
				КонецЦикла;
			КонецЕсли;
			
		КонецЦикла;
	КонецЦикла;