|
|
Необходимо заменить оди счет на другой в опреции в ручную обработкой. Счета имеют разное количество субконто.Счет, который заменяю имеет субконто Контрагенты и Договоры. Счет нв который меняю имеет субконто КЭК и нправление деятельности. Используется код:
НаборЗаписей =Док.Движения.ЕПСБУ;
НаборЗаписей.Прочитать();
Для Каждого ЭлементНабора ИЗ НаборЗаписей Цикл
счетКр= ПланыСчетов.ЕПСБУ.НайтиПоКоду("401.10");
КБКСчетКредита=Справочники.КБК.НайтиПоНаименованию("00000000000000000");
КОСГУСчетКредита=Справочники.КОСГУ.НайтиПоКоду("130");
ЭлементНабора.СчетКт = счетКр;
ЭлементНабора.СубконтоКт.НаправленияДеятельности = НоваяАналитика;
ЭлементНабора.КБККт = КБКСчетКредита;
ЭлементНабора.СубконтоКт.КОСГУ= КОСГУСчетКредита ;
КонецЦикла;
НаборЗаписей.Записать();
Выдается ошибка "Записьне верна! Вид субконто "Догворые" не доступент для данной записти (Регистр бухгалтерия. Журнал проводок номер строки 1) ". Подскижите как очистить субконото Договоры. |
|
Виды Субконто
