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

[foxm]

Ситуация следующая. Наша фирма взяла займ у УК на 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;
СуммаДень=СД;
СуммаМес=СМ;
Сообщить("Стр №"+Ном+" Срок окончания договора: "+Контра+"/"+Договор+" заканчивается в текущем месяце - "+СрокДог+" проценты начисляем за "+ДнДоКД+" дней!");
КонецЕсли;
Бухи сегодня до обеда должны уже отчитаться, а я что-то не соображу, как тут поменять. Может, у когото есть что-то готовое считающее % по займу правильно? Заранее благодарен.

[ZloiBuhgalter]

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

[foxm]

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

[ZloiBuhgalter]

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

[foxm]

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

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

[ZloiBuhgalter]

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

[Aquad]

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

[foxm]

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

Процедура Расчет() 
	СД=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]

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

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

[foxm]

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

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

[Aquad]

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

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

[foxm]

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

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

[Aquad]

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

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

[foxm]

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

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

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

[Aquad]

foxm,

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

[foxm]

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

[foxm]

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

[azernot]

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

[training1C]

А за что?