оптимизация решения условия по поиску даты вступления в должность

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

	н=0;
	к=0;
	номер=0;
	элементыформы.Индикатор1.МаксимальноеЗначение = выборка.Количество();
	для каждого стр из выборка цикл
		элементыформы.Индикатор1.Значение = элементыформы.Индикатор1.Значение + 1;
		
	номер=номер+1;	
		
		
	запрос = новый запрос;
	запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
	               |	РаботникиОрганизаций.Период КАК Период,
	               |	РаботникиОрганизаций.Сотрудник КАК Сотрудник,
	               |	РаботникиОрганизаций.Должность,
	               |	РаботникиОрганизаций.ПодразделениеОрганизации,
	               |	РаботникиОрганизаций.Сотрудник.Физлицо.ДатаРождения как ДатаРождения,
	               |	КатегорииОбъектов.Категория,
	               |	КлассыУсловийТрудаПоДолжностямСрезПоследних.КлассУсловийТруда
	               |ИЗ
	               |	РегистрСведений.РаботникиОрганизаций КАК РаботникиОрганизаций
	               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КатегорииОбъектов КАК КатегорииОбъектов
	               |		ПО РаботникиОрганизаций.Сотрудник.Физлицо = КатегорииОбъектов.Объект.Ссылка
	               |		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КлассыУсловийТрудаПоДолжностям.СрезПоследних КАК КлассыУсловийТрудаПоДолжностямСрезПоследних
	               |		ПО РаботникиОрганизаций.Сотрудник.Должность = КлассыУсловийТрудаПоДолжностямСрезПоследних.Должность
	               |ГДЕ
	               |	РаботникиОрганизаций.Сотрудник = &сотрудник
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	Период УБЫВ";
	запрос.Параметры.Вставить("сотрудник",стр.сотрудник);	
	результат = запрос.Выполнить().Выгрузить();	
		
	д = результат.Количество()-1;
	
	//элементыформы.Индикатор2.МаксимальноеЗначение = результат.Количество();
	
	пока н < результат.Количество()-1 цикл
		//элементыформы.Индикатор2.Значение = элементыформы.Индикатор2.Значение + 1;
		если результат[н+1].должность.КодПоОКПДТР <> результат[н].должность.КодПоОКПДТР тогда	
		ОблС.Параметры.фио = результат[н].сотрудник;
		ОблС.Параметры.Должность = результат[н].должность;
		ОблС.Параметры.дата = результат[н].период;
		ОблС.Параметры.подразделение = результат[н].ПодразделениеОрганизации;
		ОблС.Параметры.год = результат[н].ДатаРождения;
		ОблС.Параметры.класс = результат[н].КлассУсловийТруда;
		ОблС.Параметры.Категория = результат[н].Категория;
		ОблС.Параметры.номер = номер;
		ТабДок.Вывести(ОблС);		
		сообщить(н);
		к=к+1;
		Прервать;
		конецесли;
		н=н+1;
	конеццикла;
	если к=0 тогда
		ОблС.Параметры.фио = результат[0].сотрудник;
		ОблС.Параметры.Должность = результат[0].должность;
		ОблС.Параметры.дата = результат[д].период;
		ОблС.Параметры.подразделение = результат[0].ПодразделениеОрганизации;
		ОблС.Параметры.год = результат[0].ДатаРождения;
		ОблС.Параметры.класс = результат[0].КлассУсловийТруда;
		ОблС.Параметры.Категория = результат[0].Категория;
		ОблС.Параметры.номер = номер;
		ТабДок.Вывести(ОблС);
	конецесли;
	н=0;
	к=0;
	конеццикла;

	табдок.Показать();