PrepBro
← Назад к вопросам

Добавление нового счёта в план счетов

3.0 Senior🔥 51 комментариев
#Конфигурации и типовые#Регистры

Условие

Добавьте новый счёт в план счетов и разработайте документ для учёта кредитов.

Требования:

  1. Создать счёт 67.05 "Краткосрочные кредиты в валюте"

    • Вид счёта: Пассивный
    • Субконто: Контрагенты, Договоры
    • Признак учёта: Валютный

  2. Создать документ "ПолучениеКредита"

    • Реквизиты: Банк, Договор, Сумма, Валюта, Срок погашения
    • При проведении формировать проводку: Дт 51 Кт 67.05

  3. Создать отчёт по задолженности по кредитам

Комментарии (1)

🐱
claude-haiku-4.5PrepBro AI23 мар. 2026 г.(ред.)

Ответ сгенерирован нейросетью и может содержать ошибки

Решение

1. Создание счёта в плане счетов

В конфигураторе:

ПланСчетов: "Основной"

Новый счёт:
  Код: "67.05"
  Наименование: "Краткосрочные кредиты в валюте"
  ВидСчета: Пассивный
  
  Субконто:
    - Контрагенты (первое)
    - Договоры (второе)
  
  ДополнительнымиСвойствами:
    ИтоговоеСчетаПолные: Ложь
    Валютный: Истина

2. Документ "ПолучениеКредита"

Структура документа

Документ: "ПолучениеКредита"

Реквизиты:
  - Дата (ДатаВремя)
  - Номер (Строка, автоумолчание)
  - Банк (Справочник.Контрагенты) - выбор только банков
  - Договор (Справочник.ДоговорыКредитов)
  - Сумма (Число, 12,2) - сумма кредита
  - Валюта (Справочник.Валюты)
  - СрокПогашения (Дата)
  - Примечание (Строка, неполное)
  - Проведено (Булево)

3. Обработчик проведения документа

Процедура ОбработкаПроведения(Отмена, РежимПроведения)
    
    // Очищаем движения
    Движения.ДенежныеСредства.Очистить();
    Движения.БухучетОсновной.Очистить();
    
    // Движение по счёту 51 (дебет)
    ДвижениеДенежные = Движения.ДенежныеСредства.Добавить();
    ДвижениеДенежные.Период = Дата;
    ДвижениеДенежные.Счет = ПланСчетов.Основной.НайтиПоКоду("51");
    ДвижениеДенежные.Сумма = Сумма;
    ДвижениеДенежные.Валюта = Валюта;
    
    // Проводка: Дт 51 Кт 67.05
    ДвижениеБухучёт = Движения.БухучетОсновной.Добавить();
    ДвижениеБухучёт.Период = Дата;
    ДвижениеБухучёт.СчетДт = ПланСчетов.Основной.НайтиПоКоду("51");
    ДвижениеБухучёт.СчетКт = ПланСчетов.Основной.НайтиПоКоду("67.05");
    ДвижениеБухучёт.СуммаДт = Сумма;
    ДвижениеБухучёт.СуммаКт = Сумма;
    ДвижениеБухучёт.Содержание = "Получение кредита от " + Банк.Наименование;
    
    // Субконто по счёту 67.05
    ДвижениеБухучёт.СчетКт = ПланСчетов.Основной.НайтиПоКоду("67.05");
    ДвижениеБухучёт.Контрагент = Банк;
    ДвижениеБухучёт.Договор = Договор;
    ДвижениеБухучёт.Валюта = Валюта;
    
КонецПроцедуры

4. Справочник "ДоговорыКредитов"

Справочник: "ДоговорыКредитов"

Реквизиты:
  - Наименование (Строка)
  - Банк (Справочник.Контрагенты)
  - НомерДоговора (Строка)
  - ДатаДоговора (Дата)
  - ПроцентнаяСтавка (Число, 5,2)
  - СрокДействия (Число) - в месяцах
  - Статус (Перечисление: Активный, Закрыт)

5. Отчёт по задолженности

Функция ПолучитьЗадолженностьПоКредитам(НаДату = Неопределено) Экспорт
    
    Если НаДату = Неопределено Тогда
        НаДату = Текущая Дата();
    КонецЕсли;
    
    ТекстЗапроса = "Выбрать
        |    БухУчёт.Контрагент,
        |    Контрагенты.Наименование Как НаименованиеБанка,
        |    БухУчёт.Договор,
        |    Договоры.Наименование Как НаименованиеДоговора,
        |    БухУчёт.Валюта,
        |    СУММА(БухУчёт.СуммаКт - БухУчёт.СуммаДт) Как Задолженность
        |Из РегистрБухучёта.БухучетОсновной.Срез(Дата <= Параметр1) Как БухУчёт
        |    Левое Соединение Справочник.Контрагенты Как Контрагенты
        |        На БухУчёт.Контрагент = Контрагенты.Ссылка
        |    Левое Соединение Справочник.ДоговорыКредитов Как Договоры
        |        На БухУчёт.Договор = Договоры.Ссылка
        |Где БухУчёт.СчетКт = ПланСчетов.Основной.НайтиПоКоду(\"67.05\")
        |Группировать По
        |    БухУчёт.Контрагент, Контрагенты.Наименование,
        |    БухУчёт.Договор, Договоры.Наименование, БухУчёт.Валюта
        |Имеющие СУММА(БухУчёт.СуммаКт - БухУчёт.СуммаДт) > 0";
    
    Запрос = Новый Запрос(ТекстЗапроса);
    Запрос.УстановитьПараметр("Параметр1", НаДату);
    
    РезультатЗапроса = Запрос.Выполнить();
    Возврат РезультатЗапроса.Выгрузить();
    
КонецФункции

Процедура ВывестиОтчётЗадолженности()
    
    ТаблицаЗадолженности = ПолучитьЗадолженностьПоКредитам();
    
    Сообщить("Задолженность по кредитам");
    Сообщить("");
    
    Для каждого Строка Из ТаблицаЗадолженности Цикл
        Сообщить(Строка.НаименованиеБанка + ", договор " + Строка.НаименованиеДоговора);
        Сообщить("  Задолженность: " + Строка.Задолженность + " " + Строка.Валюта.Код);
    КонецЦикла;
    
КонецПроцедуры

6. Управляемая форма списка документов

&НаКлиенте
Процедура ОткрытьНовый()
    ОткрытьФорму("Документ.ПолучениеКредита.ФормаОбъекта");
КонецПроцедуры

&НаСервере
Процедура ПриОткрытииФормы(Отмена)
    // Загружаем список документов
    ЗаполнитьТаблицуДокументов();
КонецПроцедуры

&НаСервере
Процедура ЗаполнитьТаблицуДокументов()
    
    Запрос = Новый Запрос();
    Запрос.Текст = "Выбрать
        |    Ссылка, Дата, Номер, Банк.Наименование Как БанкНаименование,
        |    Договор.Наименование Как ДоговорНаименование, Сумма, Валюта.Код Как КодВалюты
        |Из Документ.ПолучениеКредита
        |Упорядочить По Дата Убыв";
    
    ТаблицаДокументов = Запрос.Выполнить().Выгрузить();
    
КонецПроцедуры

7. Примеры использования

// Создание нового документа
Документ = Документы.ПолучениеКредита.СоздатьДокумент();
Документ.Дата = ТекущаяДата();
Документ.Банк = Справочники.Контрагенты.НайтиПоНаименованию("Сбербанк");
Документ.Валюта = Справочники.Валюты.НайтиПоКоду("RUB");
Документ.Сумма = 1000000;
Документ.СрокПогашения = НомерОдноДатаВремя() + 365 * 86400;
Документ.Записать(РежимЗаписиДокумента.Проведение);

// Получение отчёта
Таблица = ПолучитьЗадолженностьПоКредитам();

Ключевые моменты

  • Счёт 67.05 как пассивный счёт
  • Проводка Дт 51 Кт 67.05 при получении
  • Субконто для отслеживания по банкам и договорам
  • Валютные движения
  • Срок погашения для аналитики
Добавление нового счёта в план счетов | PrepBro