//Необходимо изменить существующие проводки и добавить значение Субконто

Набор = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

Набор.Отбор.Регистратор.Установить(Объект.Ссылка);

Набор.Прочитать();

Для каждого Запись из Набор Цикл

    

    Если Запись.СчетКт =  ПланыСчетов.Хозрасчетный.ПрочиеРасчетыСРазнымиДебиторамиИКредиторами Тогда

	// для переборов субконто

        Запись.СубконтоКт[Запись.СчетКт.ВидыСубконто[1]] = Объект.ДоговорКонтрагента;

	// указывая конкретное значение

	//Запись.СубконтоКт.Договоры = Объект.ДоговорКонтрагента;

    КонецЕСли;

  

КонецЦикла;

Набор.Записать();   

  // Перебор и замена реквизитов в проводках операции

   НаборЗаписейБУ = РегистрыБухгалтерии.Типовой.СоздатьНаборЗаписей();

   НаборЗаписейБУ.Отбор.Регистратор.Использование = Истина;

   НаборЗаписейБУ.Отбор.Регистратор.Значение = ОперацияБух;

   НаборЗаписейБУ.Прочитать();

   Для Каждого ЗаписьБУ Из НаборЗаписейБУ Цикл

      Если (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.ИндивидуальныйПодоходныйНалог) или

          (ЗаписьБУ.СчетКт = ПланыСчетов.Типовой.СоциальныйНалог) Тогда

         

         ВидСубк = ЗаписьБУ.СчетКт.ВидыСубконто[2].ВидСубконто;

         ЗаписьБУ.СубконтоКт.Вставить(ВидСубк, Контрагент);

      

         ЕстьИзменения = Истина;

      КонецЕсли;

   КонецЦикла;

   Если ЕстьИзменения Тогда

      НаборЗаписейБУ.Записать();

   КонецЕсли;