Как программно изменить проводку в Регистре Бухгалтерии?

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

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