Подсчет выплаты кредита

Процедура ПроцентПриИзменении(Элемент)
 
    если Объект.КоличествоМесяцевОплаты=0 Тогда возврат Иначе 
 
    Объект.СуммаКвартирыСПроцентами=Объект.ОставшеясяСумма*(Объект.Процент/100)+Объект.ОставшеясяСумма;
 
    //Объект.ТабКредит.Очистить();
 
    дата=ТекущаяДата();
 
    табкр = Объект.ТабКредит;
 
    
 
    //табкр=ЭтаФорма.Элементы.ТабКредит;//элемент таблияной формы
 
    месяцы=Объект.КоличествоМесяцевОплаты;
 
    СуммаОплаты=Объект.СуммаКвартирыСПроцентами/Объект.КоличествоМесяцевОплаты ;
 
    строка = табкр.Добавить();
 
    строка.ДатаОплаты=дата;
 
    строка.СуммаОплаты=СуммаОплаты;
 
    строка.ОстатокДолга=СуммаОплаты*(месяцы-строка.НомерСтроки);
 
    пока строка.НомерСтроки < месяцы цикл
 
        строка =табкр.Добавить();
 
    
 
        
 
        строка.ДатаОплаты=ДобавитьМесяц(ТекущаяДата(),-1+строка.НомерСтроки);
 
        строка.СуммаОплаты =СуммаОплаты ;
 
        строка.ОстатокДолга=СуммаОплаты*(месяцы-строка.НомерСтроки);
 
        
 
        
 
    КонецЦикла;
 
    
 
    КонецЕсли;
 
    
 
    
 
КонецПроцедуры

вот код программы..при подсчете реквизита ОСТАТОКДОЛГА выдает ошибку..все время пишет 9,99 на каждой строке..в чем ошибка?