Работа с бухгалтерскими счетами очень похожа на работу с иерархическим справочником. Существует список счетов, имеющих стандартные атрибуты (Код, Наименование и др), и дополнительные реквизиты, задаваемые разработчиком. Реквизиты могут быть периодическими, т.е. хранить значение на определенную дату. Счета могут объединяться в группы, тогда счета, входящие в группу, называются субсчетами. Каждый счет обязательно принадлежит определенному плану счетов. В конфигурации может быть произвольное количество планов счетов, один из которых является основным.

Перебор счетов

1-й вариант:

Счета = СоздатьОбъект("Счет.ОснПлан");
Счета.ВыбратьСчета();
Пока Счета.ПолучитьСчет()=1 Цикл
....ТекСчет = Счета.ТекущийСчет();
....<действия с тек. счетом>
КонецЦикла;

2-й вариант:

Счета = СоздатьОбъект("Счет"); //не указан план счетов
Счета.ИспользоватьПланСчетов(ПланыСчетов.ОснПлан); //а вот теперь указан
Счета.ВыбратьСчета();
Пока Счета.ПолучитьСчет()=1 Цикл
....ТекСчет = Счета.ТекущийСчет();
....<действия с тек. счетом>
КонецЦикла;

Атрибуты счета

Счет имеет следующие атрибуты:

Работа с периодическими реквизитам счета не отличается от работы с периодическими реквизитами справочника.

Пример, прочитать и установить ответственного за ведение счета:

Счета = СоздатьОбъект("Счет.ОснПлан");
Счета.НайтиПоКоду("10.1");
БылОтветственный = Счета.Ответственный.Получить(НекаяДата);
Счета.Ответственный.Установить(НекаяДата, ВыбрСотрудник);
Счета.Записать();

Можно установить дату выборки периодических реквизитов, тогда ниже уже нельзя применять методы Установить и Получить

Счета = СоздатьОбъект("Счет.ОснПлан");
Счета. ИспользоватьДату(НекаяДата);
Счета.НайтиПоКоду("10.1");
БылОтветственный = Счета.Ответственный;
Счета.Ответственный = ВыбрСотрудник;
Счета.Записать();

Счета и субсчета

Счета могут объединяться в группы. Счет, который является группой, называется "синтетический счет". Счет, который входит в группу, называется "субсчет". Для работы с такими счетами применяются следующие методы:

Виды субконто

Для ведения аналитического учета в 1С используется термин "субконто". Субконто в системе 1С:Предприятие называется объект аналитического учета. Термином «субконто» могут быть обозначены любые объекты аналитического учета: основные средства, нематериальные активы, материалы, организации, подотчетные лица, договоры, бюджеты. Видом субконто, в свою очередь, называется множество однотипных объектов аналитического учета. Например, вид субконто "Контрагенты" типа Справочник.Контрагенты, субконто - "Магазин Красная Заря".

В 1С у счета может быть до 5 прикрепленных видов субконто. Максимальное количество видов субконто задается в Конфигураторе, но не может превышать 5.

Пример, вывести все виды субконто, прикрепленные к заданному счету:

Счета = СоздатьОбъект("Счет.Основной");
Счета.НайтиПоКоду("10.1");
Для Ном = 1 По Счета.КоличествоСубконто() Цикл
.... Сообщить("Вид субконто " + Счета.ВидСубконто(Ном));
КонецЦикла;

Создание, удаление и корректировка счетов
Обычно счета создаются вручную в режиме Конфигуратор или Предприятие. Но иногда может потребоваться программная корректировка списка счетов.

Счета = СоздатьОбъект("Счет.Основной");

Счета.Новый(1); //у счета будут субсчета
Счета.Код = "10";
Счета.Наименование = "Материалы";
Счета.Активный = 1; //активный
Счета.Записать();

Счета.Новый();
Счета.Код = "10.1";
Счета.Наименование = "Основные материалы";
Счета.ВидСубконто(1,ВидыСубконто.Материалы);
Счета.ВидСубконто(2,ВидыСубконто.Склады);
Счета.Записать();

Пример, изменить наименование счета:

Счета = СоздатьОбъект("Счет.Основной");
Счета.НайтиПоКоду("10");
Счета.Наименование = "Все материалы";
Счета.Записать();

Пример, пометить на удаление все счета, введенные пользователем в режиме "Предприятие". Оставить только счета, заданные разработчиком в Конфигураторе.

Счета = СоздатьОбъект("Счет.Основной");
Счета.ВыбратьСчета();
Пока Счета.ПолучитьСчет()=1 Цикл
.....Если Счета.ЗаданВКонфигурации()=0 Тогда
.........Счета.Удалить(0); //пометить на удаление
.....КонецЕсли;
КонецЦикла;

Пример, отменить все пометки на удаление:

Счета = СоздатьОбъект("Счет.Основной");
Счета.ВыбратьСчета();
Пока Счета.ПолучитьСчет()=1 Цикл
.....Если Счета.ПометкаУдаления()=1 Тогда
.........Счета.СнятьПометкуУдаления();
.....КонецЕсли;
КонецЦикла;

Другие полезные методы

Некоторые методы уже применялись в примерах, а теперь сведем их в таблицу: