Кредитное сжатие: что это такое и как оно влияет на бизнес

Полезный код 1С

Этот код 1С:Предприятие 8.5 помогает автоматизировать учет кредитов в условиях кредитного сжатия, позволяя отслеживать изменения процентных ставок и задолженности. Он полезен для финансовых отделов, чтобы оперативно реагировать на изменения условий кредитования.

// Процедура для расчета процентов по кредиту с учетом ключевой ставки
Процедура РассчитатьПроцентыПоКредиту(Кредит, ДатаРасчета) Экспорт
    // Получаем текущую ключевую ставку ЦБ РФ
    КлючеваяСтавка = ПолучитьКлючевуюСтавкуЦБ(ДатаРасчета);
    
    // Проверяем валидность данных
    Если Кредит.Сумма = 0 Или Кредит.Срок = 0 Тогда
        Сообщить('Ошибка: некорректные данные кредита');
        Возврат;
    КонецЕсли;
    
    // Расчет процентов
    ПроцентнаяСтавка = КлючеваяСтавка + Кредит.МаржаБанка;
    СуммаПроцентов = Кредит.Сумма * ПроцентнаяСтавка / 100 * Кредит.Срок / 12;
    
    // Записываем результат в регистр
    Движение = РегистрыНакопления.ПроцентыПоКредитам.СоздатьНаборЗаписей();
    Движение.Отбор.Кредит.Установить(Кредит);
    НоваяЗапись = Движение.Добавить();
    НоваяЗапись.Период = ДатаРасчета;
    НоваяЗапись.Кредит = Кредит;
    НоваяЗапись.СуммаПроцентов = СуммаПроцентов;
    Движение.Записать();
КонецПроцедуры

// Функция получения ключевой ставки ЦБ РФ
Функция ПолучитьКлючевуюСтавкуЦБ(Дата)
    // Здесь должен быть вызов API ЦБ РФ или справочника
    // Для примера возвращаем фиксированное значение
    Возврат 10; // Заменить на реальный запрос
КонецФункции

Примечание: Код написан для абстрактной конфигурации 1С:Предприятие 8.5, не претендует на полноту и может содержать ошибки, так как сгенерирован ИИ. Перед использованием проверьте его в тестовой среде.