ЗУП 2.5 как заполнить реквизит в регистре расчета без перерасчета.

Для каждого СтрТаб из ТабРегистраРасчетов цикл		
		
		НаборЗаписей = РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
		НаборЗаписей.Отбор.Регистратор.Установить(СтрТаб.Регистратор);
		//Для каждого регистратора выполним изменение набора записей
		НаборЗаписей.Прочитать();
		Для каждого Запись Из НаборЗаписей Цикл
			Если ЗначениеЗаполнено(Запись.ГоловноеПодразделение) тогда
				Запись.СекторУчета = Запись.ГоловноеПодразделение.СекторУчета ;
			ИначеЕсли НЕ ЗначениеЗаполнено(Запись.ГоловноеПодразделение)и  
 ЗначениеЗаполнено(Запись.ПодразделениеОрганизации)  тогда
				Запись.СекторУчета = Запись.ПодразделениеОрганизации.СекторУчета ;
				
			ИначеЕсли (НЕ ЗначениеЗаполнено(Запись.ГоловноеПодразделение)и НЕ ЗначениеЗаполнено(Запись.ПодразделениеОрганизации))  тогда
				Если Запись.Организация.Префикс="ЧАО" тогда
					Запись.СекторУчета = Справочники.СекторУчета.НайтиПоКоду("009");
				Иначе
					Если  ЗначениеЗаполнено(СтрТаб.Регистратор.ГоловноеПодразделение) тогда
						Запись.СекторУчета = СтрТаб.Регистратор.ГоловноеПодразделение.СекторУчета ;
					Конецесли;
					
				Конецесли;
			иначе
				Если  ЗначениеЗаполнено(СтрТаб.Регистратор.ГоловноеПодразделение) тогда
				Запись.СекторУчета = СтрТаб.Регистратор.ГоловноеПодразделение.СекторУчета ;
				Конецесли;

			Конецесли;
		КонецЦикла;
		
		Если НаборЗаписей.Модифицированность() Тогда
			
			НаборЗаписей.Записать(истина);
		КонецЕсли;
		//	
	КонецЦикла;