Как проставить счета учета в справочнике Номенклатура программно? Сделал обработку, вот код:



Спр = Справочники.Номенклатура.Выбрать();
//Флаг = 1;
Пока Спр.Следующий() Цикл
Если Спр.ЭтоГруппа Тогда Продолжить; КонецЕсли;
С = Спр.ПолучитьОбъект();
РС = РегистрыСведений.СчетаУчетаНоменклатуры.Выбрать();
Р = РегистрыСведений.СчетаУчетаНоменклатуры.СоздатьМенеджерЗаписи();
Если С.ВидНоменклатуры.Наименование = "Товар" Тогда
Р.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("281");
Р.СчетУчетаПередачиБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("283");
Р.СчетУчетаЗабалансовыйБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("0241");
Р.СчетУчетаПередачиЗабалансовыйБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("0242");
Р.СхемаРеализации = Справочники.СхемыРеализации.НайтиПоНаименованию("Товары");
ИначеЕсли С.ВидНоменклатуры.Наименование = "Материал" Тогда
Р.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("201");
Р.СчетУчетаПередачиБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("206");
Р.СчетУчетаЗабалансовыйБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("0221");
Р.СхемаРеализации = Справочники.СхемыРеализации.НайтиПоНаименованию("Товары");
ИначеЕсли С.ВидНоменклатуры.Наименование = "Продукция" Тогда
Р.СчетУчетаБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("26");
Р.СчетУчетаПередачиБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("283");
Р.СчетУчетаЗабалансовыйБУ = ПланыСчетов.Хозрасчетный.НайтиПоКоду("023");
Р.СхемаРеализации = Справочники.СхемыРеализации.НайтиПоНаименованию("Продукция");
КонецЕсли;
С.Записать();
КонецЦикла;



Но эта обработка проставляет счета учета в спр-ке Номенклатура только по виду номенклатуры = "товар".