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