перенос ЗУП 2,5 в ЗУП 3,1

// Корректируем список ведущих по базовым и вытесняющим начислениям.
	Для Каждого КлючИЗначение Из ПакетВидовРасчета Цикл
		ВидРасчета = КлючИЗначение.Значение;
		ВедущиеНачисления = Новый Массив;
		
		// Собираем уже имеющиеся ведущие начисления.
		Для Каждого Строка Из ВидРасчета.ВедущиеВидыРасчета Цикл
			ВедущиеНачисления.Добавить(Строка.ВидРасчета);
		КонецЦикла;
		
		// Если расчетная база определяется за текущий период, 
		// то базовые виды расчета являются также ведущими.
		Если ЕстьПоказательВКоллекции(ВидРасчета.Показатели, "РасчетнаяБаза") Тогда
			Для Каждого Строка Из ВидРасчета.БазовыеВидыРасчета Цикл
				ВедущиеНачисления.Добавить(Строка.ВидРасчета);
			КонецЦикла;
		КонецЕсли;
		
		// Ведущие начисления
		СвойстваНачисления = СвойстваНачислений[ВидРасчета.КатегорияНачисленияИлиНеоплаченногоВремени];
		ОтборВедущих = СвойстваНачисления.ОтборВедущих;
		Если ОтборВедущих <> Неопределено
			И НачислениеРассчитываетсяПоЧасам(ВидРасчета) 
			И ЗарплатаКадрыРасширенныйКлиентСервер.ЗачетОтработанногоВремени(ВидРасчета.ВидВремени) Тогда
			
			// Начисления по условию из коллектора.
			ОбщегоНазначенияКлиентСервер.ДополнитьМассив(
				ВедущиеНачисления, ПланыВидовРасчета.Начисления.ВидыРасчетаКоллектораПоОтбору(ПакетВидовРасчета, ОтборВедущих));
				
			// ..Дополняются по условию из базы данных.
			ОбщегоНазначенияКлиентСервер.ДополнитьМассив(
				ВедущиеНачисления, ПланыВидовРасчета.Начисления.НачисленияПоОтбору(ОтборВедущих), Истина);
		КонецЕсли;
		
		// Заполняем табличную часть полученными вытесняющими начислениями.
		Для Каждого ВедущееНачисление Из ВедущиеНачисления Цикл
			Если ВидРасчета.ВедущиеВидыРасчета.Найти(ВедущееНачисление, "ВидРасчета") = Неопределено 
				И КлючИЗначение.Ключ <> ВедущееНачисление Тогда
				
				ВидРасчета.ВедущиеВидыРасчета.Добавить().ВидРасчета = ВедущееНачисление;
			КонецЕсли;
		КонецЦикла;
	КонецЦикла;