Доброе утро!
Простейшая фигня, а выдает ошибку...
В существующей бух. справке нужно заменить счет:
ЗначениеСубконто = Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Остаточная стоимость списанных ОС");
ДвиженияДокументаНУ = РегистрыБухгалтерии.Налоговый.СоздатьНаборЗаписей();
ДвиженияДокументаНУ.Отбор.Регистратор.Значение = ОперацияБух;
ДвиженияДокументаНУ.Прочитать();
Для Каждого Элемент Из ДвиженияДокументаНУ Цикл
Если (Элемент.СчетДт = ПланыСчетов.Налоговый.ПоступлениеИВыбытиеИмуществаРаботУслугПрав) Тогда
Элемент.СчетДт = ПланыСчетов.Налоговый.ВнереализационныеРасходы;
Элемент.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ПрочиеДоходыИРасходы] = ЗначениеСубконто;
КонецЕсли;
КонецЦикла;
ДвиженияДокументаНУ.Записать();
Предупреждение("Готово.");
Выдает ошибку:
https://postimg.cc/Xr3pNMj0
Какие контрагенты?!
Спасибо.