В модуле регистра перехватил перед записью ,
поправил измерение .
На отбор ругается  .

ну дык установи его правильно

даже боюсь код спросить... если спросишь, то как вывалит простыню метров на 10 :-)

Пробовал , недоступно для записи . Подскажи как ?

(0) убери с отбора измерение которое меняешь, перебери в цикле с условием твоего измерения там и поменяй

СвТер=ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Код территории (Территории)");
    //НаборЗаписей = РегистрыСведений.грНачисленияСотрудников.СоздатьНаборЗаписей();
    //НаборЗаписей.Отбор.ID.Установить(УИД);
    //НаборЗаписей.Прочитать();
    
    НаборЗаписей=ЭтотОбъект;
    Для каждого Запись Из НаборЗаписей Цикл
        КПП=Запись.ПодразделениеОрганизации.РегистрацияВНалоговомОргане.КПП;
        Для каждого сДопРек Из Запись.ВидРабот.ДополнительныеРеквизиты Цикл
            Если сДопРек.Свойство=СвТер Тогда
                КодТер=сДопРек.Значение;
            Иначе
            КонецЕсли;    
        КонецЦикла;
        Если ЗначениеЗаполнено(КодТер) Тогда
            ТехТер=НайтиТериторию(КПП,КодТер,СвТер);
            НаборЗаписей.Отбор.ТехническаяТерритория=ТехТер;
            Запись.ТехническаяТерритория=ТехТер;
        Иначе
        КонецЕсли;
    КонецЦикла;
    //НаборЗаписей.Записать();

(5)НаборЗаписей.Отбор.ТехническаяТерритория.Установить(ТехТер)

Спасибо . Работает.