Начисление % по займам

Ситуация следующая. Наша фирма взяла займ у УК на 16 лимонов на 12%. При этом 12 лимонов пришли 30.05, а еще 4 - 31.05. При этом в договоре займа сказано, что % по займу начисляются , начиная со дня, следующего с момента предоставления денег. Поэтому бух считает, что за май % должен начислиться за один день (31.05) и с суммы в 12 лимонов.
Однако документ начислениепроцентовсзайма, к-1 заложен в нашей 1с(7.7) считает по другому: во-первых считает % в любом случае с полной суммы займа, а, во-вторых, в любом случае начисляет % за полный м-ц(последнее вообще странно). Вот, собственно, код:
Сум66=Ит.СКК();
...
Если Договор.ДатаК<НачМесяца(ДатаДок) Тогда
Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" закончился в предыдущем периоде - "+Договор.ДатаК+" проценты не начисляем!!!");
ИначеЕсли Договор.ДатаК>КонМесяца(ДатаДок) Тогда
// СрокДог=Договор.ДатаК;
СД=Сум66/ДнейВГоду*Проц/100;
СМ=СД*ДнейВМесяце;
СуммаВ=Сум66;
СуммаДень=СД;
СуммаМес=СМ;
ИначеЕсли Договор.ДатаК=НачМесяца(ДатаДок) Тогда
СрокДог=Договор.ДатаК;
СД=Сум66/ДнейВГоду*Проц/100;
СМ=СД*ДнейВМесяце;
СуммаВ=Сум66;
СуммаДень=СД;
СуммаМес=СД;
Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" заканчивается в текущем месяце - "+СрокДог+" проценты начисляем за 1 день!");
Иначе
СрокДог=Договор.ДатаК;
СД=Сум66/ДнейВГоду*Проц/100;
ДнДоКД=СрокДог-НачМесяца(ДатаДок)+1;
СМ=СД*ДнДоКД;
СуммаВ=Сум66;
СуммаДень=СД;
СуммаМес=СМ;
Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" заканчивается в текущем месяце - "+СрокДог+" проценты начисляем за "+ДнДоКД+" дней!");
КонецЕсли;
Бухи сегодня до обеда должны уже отчитаться, а я что-то не соображу, как тут поменять. Может, у когото есть что-то готовое считающее % по займу правильно? Заранее благодарен.

А ручными проводками начислить слабо?

Так вообще всю бух-ю можно и на счеты перевести, зачем какие-то компьютеры, 1С какая-то?;)))
Ну положим, сегодня бухи вобьют вручную, но жизнь сегодня не кончится. Хотелось бы чтобы по крайней мере в дальнейшем % считались автоматом и правильно.

А как ты себе это представляешь, если сбербанк собирается менять ставку рефинансирования?

Цитата:

Сообщение от ZloiBuhgalter

А как ты себе это представляешь, если сбербанк собирается менять ставку рефинансирования?

А причем тут это? Сформулируем тогда вопрос так:
Исходные данные:
Наша фирма взяла займ у УК на 16 лимонов на 12%. При этом 12 лимонов пришли 30.05, а еще 4 - 31.05. При этом в договоре займа сказано, что % по займу начисляются , начиная со дня, следующего с момента предоставления денег.
Вопрос:
Как посчитать, сколько % нам надо заплатить за май?

Задай вопрос на форуме Решения-1С...
Может программеры помогут, однако такой сложный расчет организовать трудно...

foxm,
можно еще раз код, только в тэге [code] ... А то читать не удобно ...

Тогда полный код процедуры:

Код:

Процедура Расчет() СД=0; СМ=0; ДнейВГоду=КонГода(ДатаДок)-НачГода(ДатаДок)+1; ДнейВМесяце=КонМесяца(ДатаДок)-НачМесяца(ДатаДок)+1; Ит=СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1,0); Ит.ИспользоватьСубконто(ВидыСубконто.Основание,,1,0); Ит.ВключатьСубсчета(-1,-1); Ит.ВыполнитьЗапрос(,ДатаДок,"66.03.01,66.04.01,66.06.01",,,,1); Ит.ВыбратьСубконто(1); Ном=0; Пока Ит.ПолучитьСубконто(1)=1 Цикл КО=Ит.Субконто(1); Ит.ВыбратьСубконто(2); Пока Ит.ПолучитьСубконто(2)=1 Цикл ДГ=Ит.Субконто(2); Ит.ВыбратьСчета(); Пока Ит.ПолучитьСчет() = 1 Цикл Ном=Ном+1; СЧ=Ит.Счет; Сум66=Ит.СКК(); // Сообщить("---"+КО+"---"+ДГ+"---"+СЧ+"---"+Сум66); НоваяСтрока(); СубСчет=СЧ; Контра=КО; Договор=ДГ; Проц=Договор.ПроцентнаяСтавка; Если Договор.ДатаК<НачМесяца(ДатаДок) Тогда Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" закончился в предыдущем периоде - "+Договор.ДатаК+" проценты не начисляем!!!"); ИначеЕсли Договор.ДатаК>КонМесяца(ДатаДок) Тогда // СрокДог=Договор.ДатаК; СД=Сум66/ДнейВГоду*Проц/100; СМ=СД*ДнейВМесяце; СуммаВ=Сум66; СуммаДень=СД; СуммаМес=СМ; ИначеЕсли Договор.ДатаК=НачМесяца(ДатаДок) Тогда СрокДог=Договор.ДатаК; СД=Сум66/ДнейВГоду*Проц/100; СМ=СД*ДнейВМесяце; СуммаВ=Сум66; СуммаДень=СД; СуммаМес=СД; Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" заканчивается в текущем месяце - "+СрокДог+" проценты начисляем за 1 день!"); Иначе СрокДог=Договор.ДатаК; СД=Сум66/ДнейВГоду*Проц/100; ДнДоКД=СрокДог-НачМесяца(ДатаДок)+1; СМ=СД*ДнДоКД; СуммаВ=Сум66; СуммаДень=СД; СуммаМес=СМ; Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" заканчивается в текущем месяце - "+СрокДог+" проценты начисляем за "+ДнДоКД+" дней!"); КонецЕсли; СД=0; СМ=0; КонецЦикла; КонецЦикла; КонецЦикла; КонецПроцедуры

Цитата:

что % по займу начисляются , начиная со дня, следующего с момента предоставления денег.

Как начисляются - ежемесячно, ежедневно ...
Простой процент, прогрессирующий ?
Штрафы ?
Ставка рефин. не учитывается ?

Цитата:

Сообщение от Aquad

Как начисляются - ежемесячно, ежедневно ...
Простой процент, прогрессирующий ?
Штрафы ?
Ставка рефин. не учитывается ?

Насколько я понимаю, приведенный мною расчет бухгалтеров в целом
устраивает, т.е. при начислении % за июнь он даст правильный по их мнению результат - Сумма% = СуммаЗайма*%*ДнейвМесяце/ДнейвГоду.
Не устраивают их следующие моменты:
1)Расчет не учитывает, что договор может начинаться не с 1-го числа м-ца и за первый м-ц нужно брать не число дней в м-це, а фактический срок пользования деньгами в этом м-це.
2)Если займ предоставляется отдельными частями, то для каждой части в 1-м м-це % надо считать отдельно.
То есть делать глобальную переделку расчета(к чему ведут Ваши вопросы) мне бы не хотелось. А хотелось бы услышать советы по технической части решения проблем вышеуказанных двух пунктов.
Или, я думал, есть какие-то готовы наработе\ки в данном вопросе, с к-ми можно ознакомиться.

Цитата:

То есть делать глобальную переделку расчета(к чему ведут Ваши вопросы) мне бы не хотелось

Тоды ОЙ ... ;)
Без этого никак для 2 пункта ...

Цитата:

Сообщение от Aquad

Тоды ОЙ ... ;)
Без этого никак для 2 пункта ...

"Сколько нужно программистов, чтобы выкрутить лампочку?
-Трое:Один держит лампочку, а двое вращают его против часовой стрелки" ;)
Я вообще-то имел ввиду следующее:
Сейчас в расчете сумма, на к-ю нач-ся %%, берется как СКК, а нужно, имхо, выбирать операции, в к-х проводятся полученны части займа и рассчитывать %% для каждой операции отдельно с учетом даты операции.
Но, оказывается, получить операцию и ее дату без ставки рефинансирования никак нельзя... :)

foxm,
Вы читать умеете ?

Я написал, что без переделки не обойтись ... При чем здесь ставка рефинансирования ... Не злите меня !!!

Цитата:

Сообщение от Aquad

foxm,
Вы читать умеете ?

Я написал, что без переделки не обойтись ... При чем здесь ставка рефинансирования ... Не злите меня !!!

Да я же смайлик поставил - не заметили? :D Это была просто шутка, но ежели она Вас так задела, то я дико извиняюсь...
Просто ситуацичя простая - у нашего предприятия есть еще ряд текущих займов и приведенный мной алгоритм формирует % по всем займам. При этом бухов УСТРАИВАЕТ расчет % по всем остальным займам, а НЕ устраивает только по одному этому, почему - я вроде бы объяснил. Поэтому я-то хотел поправить расчет чисто технически, но если это невозможно, тогда опять извините.

foxm,

ИМХО, лучше написать один раз - но универсальную ...

Судя по количеству вопросов(т.е. проблем) универсальная обработка есть в данном случае стрельба из пушки по воробьям. Да и в таком разе не хочется изобретать велосипед, наверняка, мы не первые, кто платит % по займам и хтелось бы ознакомиться с готовыми решениями.

Странно, я подписан на уведомление по этой теме и только что мне пришло уведомление об ответе, я заглянул сюда, а нет никакаго ответа. Как это можно объяснить?

Удалено сообщение.

А за что?