Автоматический расчёт выплат

процедура РасчитатьВыплатыСервер()
    числоМес = 3;
    выплатаВМесяц = Объект.Сумма / числоМес;
    
    Объект.НазваниеТабличнойЧасти.Очистить();
    
    для индекс = 1 по числоМес цикл
        новаяСтрокаТЧ = Объект.НазваниеТабличнойЧасти.Добавить();
        
        новаяСтрокаТЧ.Дата = ДобавитьМесяц(Объект.Дата, индекс); // дата, которая в шапке документа 
        новаяСтрокаТЧ.Сумма = выплатаВМесяц;
        новаяСтрокаТЧ.Проценты = выплатаЗаМес * 0.1; // вместо этого может быть формула расчета % от платежа
    конеццикла;
конецпроцедуры

&НаКлиенте
Процедура Расчёт(Команда)
    Если Не ЗначениеЗаполнено(Объект.ВидЗайма) Или Не ЗначениеЗаполнено(Объект.Сумма) Или Не ЗначениеЗаполнено(Объект.Дата) Тогда
        Предупреждение(НСтр("ru = 'Перед расчетом выплат необходимо заполнить обязательные поля: Дата, Сумма и Вид займа.'"), 10);
        Возврат;
    КонецЕсли;
    Объект.Расчёт.Очистить();
    
    СтруктураПараметровРасчета = ПолучитьПараметрыРасчетаНаСервере(Объект.ВидЗайма);
    ЧислоПериодов = СтруктураПараметровРасчета.СрокЗайма;
    Периодичность = СтруктураПараметровРасчета.Периодичность;
    Ставка = СтруктураПараметровРасчета.Ставка;
    //Перепроверить расчет процентов и уточнить формулу
    //условно принято, что Ставка - это ставка за период, указанный в Периодичности займа. Если для всех видов займа будет ставка  как процент годовых, то формула изменится
    //Проценты = Объект.Сумма*(ЧислоПериодов*(Ставка/100));
    //ПроцентыЗаПериод = Проценты/ЧислоПериодов;
    
    ВыплатаЗаПериод = Объект.Сумма/ЧислоПериодов;
    
    Для Индекс = 1 по ЧислоПериодов цикл
        НовСтрока = Объект.Расчёт.Добавить();
        
        Если Периодичность = ПредопределенноеЗначение("Перечисление.Периодичность.Год") Тогда
            НовСтрока.Дата = ДобавитьМесяц(Объект.Дата, Индекс * 12); // дата, которая в шапке документа 
        ИначеЕсли Периодичность = ПредопределенноеЗначение("Перечисление.Периодичность.День") Тогда
            НовСтрока.Дата = Объект.Дата + 24*3600*Индекс; 
        ИначеЕсли Периодичность = ПредопределенноеЗначение("Перечисление.Периодичность.Месяц") Тогда
            НовСтрока.Дата = ДобавитьМесяц(Объект.Дата, индекс); 
        ИначеЕсли Периодичность = ПредопределенноеЗначение("Перечисление.Периодичность.Неделя") Тогда
            НовСтрока.Дата = Объект.Дата + 24*3600*7*Индекс; 
        КонецЕсли; 
        НовСтрока.Сумма = ВыплатаЗаПериод;
        НовСтрока.Проценты = ВыплатаЗаПериод * (Ставка/100);
    КонецЦикла;
КонецПроцедуры
 
&НаСервереБезКонтекста
Функция ПолучитьПараметрыРасчетаНаСервере(ВидЗайма)
    СтруктураПараметровРасчета = Новый Структура("СрокЗайма, Периодичность, Ставка", ВидЗайма.СрокЗайма, ВидЗайма.Периодичность, ВидЗайма.Ставка);
    Возврат СтруктураПараметровРасчета 
КонецФункции

Процедура Расчёт(Команда)
если ЭтотОбъект.ПроверитьЗаполнение() тогда
ВыполнитьРасчетСервер();
...