Вывод расчета процентов по дням в документ
Здравствуйте! Есть реквизиты ДатаЗайма и ДатаВыкупа. Также есть реквизит СхемаКредитования в нем указывается % в месяц и СуммаЗайма. Хочу в документе создать что-то типо таблицы, где будет по дням начиная от даты займа до даты выкупа расписываться сумма займа с учетом процента. (Скрин прикладываю) Например: 11.09.2024 - 28000, 12.09.2024 - 28075.6 и т.д.
Прикрепленные файлы:
По теме из базы знаний
- Универсальный конструктор отчетов (Новейший отчет) для 1C 7.7
- Расчет резерва отпусков, Зарплата и кадры.
- 50+ советов для успешной сдачи 1С: Специалист по платформе
- Доплата до оклада при командировках. ЗУП 2.5
- Обновление для КА 1.1, ЗУП 2.5, БУХ 2.0: НДС, ЕФС-1, Расчет страховых взносов, Мобилизация, Статистика, Электронные трудовые книжки, 2-НДФЛ, Регламентированная отчетность, Кадровый учет, Прослеживаемость импортных товаров
Найденные решения
(4) В общем, написал такую топорную функцию, которая вызывается по команде для заполнения таблицы. Структуру документа попытался повторить как у вас, так что, думаю, что сможете переписать под себя, изменив формулы (например, при рассчете СуммаПроцентов брать не СуммаПроцентов, а сумму займа):
&НаСервере
Процедура ЗаполнитьТаблицуРасшифровки()
// За начало расшифровки берем дату займа
ТекущийДень = Объект.ДатаЗайма;
// Получаем параметры из схемы займа
СхемаЗайма = Объект.СхемаЗайма;
ПроцентВМесяц = СхемаЗайма.ПроцетнаяСтавка;
СуммаСПроцентами = СхемаЗайма.СуммаЗайма;
// Заполняем таблицу расшифровки от даты займа по дату выкупа
Пока ТекущийДень <= Объект.ДатаВыкупа Цикл
// На первый день процент не начисляем (если надо, то нижние
// рассчеты можно перенести над этим комментарием)
СтрокаРасшифровка = Объект.РасшифровкаПоДням.Добавить();
СтрокаРасшифровка.Дата = ТекущийДень;
СтрокаРасшифровка.Сумма = СуммаСПроцентами;
// Добавляем день
ТекущийДень = ТекущийДень + 86400;
// Выполняем рассчет процентов
ДнейВТекущемМесяце = День(КонецМесяца(ТекущийДень));
ПроцентВДень = ПроцентВМесяц / ДнейВТекущемМесяце;
СуммаПроцентов = (СуммаСПроцентами / 100) * ПроцентВДень;
СуммаСПроцентами = СуммаСПроцентами + СуммаПроцентов;
КонецЦикла;
КонецПроцедуры
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4) В общем, написал такую топорную функцию, которая вызывается по команде для заполнения таблицы. Структуру документа попытался повторить как у вас, так что, думаю, что сможете переписать под себя, изменив формулы (например, при рассчете СуммаПроцентов брать не СуммаПроцентов, а сумму займа):
&НаСервере
Процедура ЗаполнитьТаблицуРасшифровки()
// За начало расшифровки берем дату займа
ТекущийДень = Объект.ДатаЗайма;
// Получаем параметры из схемы займа
СхемаЗайма = Объект.СхемаЗайма;
ПроцентВМесяц = СхемаЗайма.ПроцетнаяСтавка;
СуммаСПроцентами = СхемаЗайма.СуммаЗайма;
// Заполняем таблицу расшифровки от даты займа по дату выкупа
Пока ТекущийДень <= Объект.ДатаВыкупа Цикл
// На первый день процент не начисляем (если надо, то нижние
// рассчеты можно перенести над этим комментарием)
СтрокаРасшифровка = Объект.РасшифровкаПоДням.Добавить();
СтрокаРасшифровка.Дата = ТекущийДень;
СтрокаРасшифровка.Сумма = СуммаСПроцентами;
// Добавляем день
ТекущийДень = ТекущийДень + 86400;
// Выполняем рассчет процентов
ДнейВТекущемМесяце = День(КонецМесяца(ТекущийДень));
ПроцентВДень = ПроцентВМесяц / ДнейВТекущемМесяце;
СуммаПроцентов = (СуммаСПроцентами / 100) * ПроцентВДень;
СуммаСПроцентами = СуммаСПроцентами + СуммаПроцентов;
КонецЦикла;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот