KurchataD пишет:
Здорово, классная вещь. Вот бы такое для 7.7 Бух сделать.
//*****************************
Процедура СформироватьАннуитет()
тз.видимостьколонки("Комиссия",?(КомиссияМес=0,0,1));
Форма.фКомиссия.Видимость(?(КомиссияМес=0,0,1));
Форма.сКомиссия.Видимость(?(КомиссияМес=0,0,1));
НачСумма = СуммаКредита;
ставкаМес = (ставкаГод / 12) / 100;
Игого = 0;
ИгогоПроц = 0;
суммаМесВсего = СуммаКредита *(ставкаМес)/(1-1/вСТЕПЕНЬ((1+ставкаМес), срокКредита));
Для й = 1 По СрокКредита Цикл
суммаПроцентов = НачСумма * ставкаМес;
СуммаМес = суммаМесВсего - суммаПроцентов;
НачСумма = НачСумма - суммаМес;
Игого = Игого + суммаМесВсего;
ИгогоПроц = ИгогоПроц + суммаПроцентов;
//Таб.ВывестиСекцию("Строка");
тз.НоваяСтрока();
тз.Мес= й;
тз.СуммаОсн = СуммаМес;
тз.СуммаПроц = суммаПроцентов;
тз.комиссия = суммакредита / 100 * комиссияМес;
тз.Сумма = суммаМесВсего + тз.комиссия;
КонецЦикла;
Переплата = Игого - СуммаКредита;
сПРЦ = тз.Итог("СуммаПроц");
сВсего = тз.Итог("Сумма");
скомиссия = тз.итог("Комиссия");
КонецПроцедуры
//*****************************
Процедура СформироватьСтандартный()
Перем МесячнаяСумма;
тз.видимостьколонки("Комиссия",?(КомиссияМес=0,0,1));
Форма.фКомиссия.Видимость(?(КомиссияМес=0,0,1));
Форма.сКомиссия.Видимость(?(КомиссияМес=0,0,1));
НачСумма = СуммаКредита;
ставкаМес = (ставкаГод / 12) / 100;
Игого = 0;
ИгогоПроц = 0;
ИгогоОсн = 0 ;
МесячнаяСумма = Окр(СуммаКредита / срокКредита,2);
Для й = 1 По СрокКредита Цикл
Если й = срокКредита Тогда
НачСумма = СуммаКредита - ИгогоОсн;
СуммаМес = НачСумма;
Иначе
СуммаМес = МесячнаяСумма;
КонецЕсли;
суммаПроцентов = НачСумма * ставкаМес;
СуммаМесВсего = СуммаМес + суммаПроцентов;
НачСумма = НачСумма - суммаМес;
Игого = Игого + суммаМесВсего;
ИгогоПроц = ИгогоПроц + суммаПроцентов;
ИгогоОсн = ИгогоОсн + СуммаМес;
тз.НоваяСтрока();
тз.Мес= й;
тз.СуммаОсн = СуммаМес;
тз.СуммаПроц = суммаПроцентов;
тз.комиссия = суммакредита / 100 * комиссияМес;
тз.Сумма = суммаМесВсего + тз.комиссия;
КонецЦикла;
Переплата = Игого - СуммаКредита;
сПРЦ = тз.Итог("СуммаПроц");
сВсего = тз.Итог("Сумма");
скомиссия = тз.итог("Комиссия");
КонецПроцедуры
//*****************************