Расчет процентов по займам и кредитам

13.07.16

Учетные задачи - Займы, кредит, лизинг

В свое время взяла с Инфостарта обработку по расчету процентов по полученным займам и кредитам и переработала ее. Подходит для автоматического расчета исчисленных процентов по полученным займам и кредитам (особенно при большом количестве договоров займа) с нетрудоемким отражением в бухгалтерском и налоговом учете исчисленных процентов. Уточнен налоговый учет расходов по процентам в соответствии с изменениями законодательства в 2015 году. Внесены исправления по техническим ошибкам (в Бухучете расходы отражались по группе счета 91, а также в НУ по Дт счета отражены суммы процентов)

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
расчет процентов по полученным займам и кредитам (счета 66 и 67)
.epf 15,50Kb
18
18 Скачать (1 SM) Купить за 1 850 руб.

Я не программист, поэтому прошу не судить строго.

В свое время взяла с Инфостарта обработку по расчету процентов по полученным займам и кредитам (обработка Svetlana Baryshnikova  raschet_protsentov_3.1.epf - //infostart.ru/public/277199/). Доработала ее.

Изначально проценты рассчитывались от конечной суммы остатка по счетам 66 и 67 и не учитывали движение/изменение задолженности в середине рассчитываемого периода, в т.ч. когда получение займа происходило внутри рассчитываемого периода. Это подправила.

Кроме того, позволила сделать выбор периода.

Также в первичном варианте мне не понравилось, как она формировала операцию по исчисленным процентам в случае, когда количество займов и кредитов больше одного. Переделала, сократив до минимума лишние телодвижения. Чуть подправила учет процентов в налоговом учете.

Процент указывается вручную в табличной части. Проблему пока не решила, чтобы она автоматом подтягивала размер процентной ставки (для этого в справочник "Договоры" добавила дополнительный реквизит (не через конфигуратор). Как достать этот дополнительный реквизит - не совсем пока понимаю.

Не претендую на "шедевральность". Еще раз хочу сказать, что я не программист. Выкладываю исключительно для того, чтобы заработать Стартмани. Поэтому если хоть немного понравилось - буду признательна. Сама в работе пользуюсь. Это первый мой опыт в версии 3.0

расчет процентов

См. также

Займы, кредит, лизинг Бухгалтер Пользователь Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Налоговый учет Платные (руб)

Внешняя обработка "Начисление процентов по кредитам и займам" предназначена для бухгалтеров, перед которыми стоит задача по расчету процентов по кредитам и займам и формированию операций по отражению начисленных процентов в бухгалтерском и налоговом учете. В своей работе обработка использует только бухгалтерские итоги по счетам учета договоров займа (66, 67, 58.03)

2400 руб.

13.01.2014    82106    456    91    

141

Займы, кредит, лизинг Взаиморасчеты Платформа 1С v8.3 1С:Зарплата и Управление Персоналом 3.x Россия Абонемент ($m)

По запросу сотрудников расчетной части создал отчет "Анализ выданных и погашенных займов сотрудникам организации", где видно сальдо по взаиморасчетам выданных займов, рассчитанная материальная выгода и НДФЛ с материальной выгоды (35%)

3 стартмани

30.08.2024    263    3    9093042    0    

0

WEB-интеграция Займы, кредит, лизинг Программист Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Бухгалтерия 1.6 1С:Бухгалтерия 3.0 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Данный механизм позволяет направлять в НБКИ и получать по переданным пакетам все движения по кредитной истории клиентов в режиме онлайн. Теперь информация о любых важных изменениях в процессе обслуживания заемщиками своих кредитных обязательств поступает из Национального бюро кредитных историй (НБКИ) максимально оперативно, улучшая качество управления его портфелем.

10 стартмани

20.05.2024    652    3    itserve    0    

1

Займы, кредит, лизинг Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет Конфигурации 1cv8 Финансовые услуги, инвестиции Бухгалтерский учет Бесплатно (free)

Данная статья поможет разобраться в том, что такое лизинг и договоры лизинга, а также как работает программное решение 1С:Бухгалтерия лизинговой компании. Помимо этого, отдельно подробно будет рассмотрено то, как внутри данного программного решения можно вести отчёты относительно лизинговых договоров лизинга и какими эти отчёты бывают, за что отвечают.

25.03.2024    767    Koder_Line    0    

1

Займы, кредит, лизинг Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Финансовые услуги, инвестиции Россия Бухгалтерский учет Управленческий учет Абонемент ($m)

Расширение: Контроль схемы кредитования для Ломбард 4 от Рарус, сводит к минимуму ошибки при выборе схемы кредитования при оформлении залоговых операций.

1 стартмани

08.02.2024    564    0    DENSKR    0    

2

Математика и алгоритмы Займы, кредит, лизинг Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

На примере рассмотрения математического парадокса показаны возможности решения таких задач на 1С с использованием технологий: консоль кода, абстрактный массив, рекурсия, ChatGPT

19.01.2024    1548    kalyaka    16    

9

Учет ОС и НМА Займы, кредит, лизинг Регламентированный учет и отчетность Бухгалтер Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Налоговый учет Налог на прибыль Абонемент ($m)

Учет аренды по ФСБУ 25/2018 «Бухгалтерский учёт аренды». В статье описана методика составления справки-расчета дисконтированной стоимости прав пользования активом (ППА) и приведены примеры отражения операций по арендованному имуществу на примере конфигурации УПП 1.3.

1 стартмани

04.12.2023    2388    shmuylovich    0    

3

Займы, кредит, лизинг Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Абонемент ($m)

Благодаря данному решению, в конфигурации 1С:Бухгалтерия 3.0 реализована возможность начислять проценты по полученным/выданным займам.

2 стартмани

24.11.2023    1777    38    Cab-dv    40    

15
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. progvicof 31 17.04.15 12:08 Сейчас в теме
Если кому интересно, я для бухгалтерии 1.6 делал таким образом.
ВЫБРАТЬ
	Вложенный.Организация,
	Вложенный.Банк,
	Вложенный.Договор,
	МАКСИМУМ(Вложенный.ДатаНачалаРасчета) КАК ДатаНачалаРасчета
ПОМЕСТИТЬ ВТ_ДатыНачалаРасчетаДолга
ИЗ
	(ВЫБРАТЬ
		МИНИМУМ(ХозрасчетныйОбороты.Период) КАК ДатаНачалаРасчета,
		ХозрасчетныйОбороты.Организация КАК Организация,
		ХозрасчетныйОбороты.Субконто1 КАК Банк,
		ХозрасчетныйОбороты.Субконто2 КАК Договор
	ИЗ
		РегистрБухгалтерии.Хозрасчетный.Обороты(
				,
				&ОкончаниеПериода,
				День,
				Счет = &Счет6601,
				&ВидыСубконто,
				Организация В (&Организация)
					И Субконто1 В (&Контрагент),
				,
				) КАК ХозрасчетныйОбороты
	
	СГРУППИРОВАТЬ ПО
		ХозрасчетныйОбороты.Организация,
		ХозрасчетныйОбороты.Субконто1,
		ХозрасчетныйОбороты.Субконто2
	
	ОБЪЕДИНИТЬ ВСЕ
	
	ВЫБРАТЬ
		МАКСИМУМ(ХозрасчетныйОбороты.Период),
		ХозрасчетныйОбороты.Организация,
		ХозрасчетныйОбороты.Субконто1,
		ХозрасчетныйОбороты.Субконто2
	ИЗ
		РегистрБухгалтерии.Хозрасчетный.Обороты(
				,
				&ОкончаниеПериода,
				День,
				Счет = &Счет6602,
				&ВидыСубконто,
				Организация В (&Организация)
					И Субконто1 В (&Контрагент),
				,
				) КАК ХозрасчетныйОбороты
	ГДЕ
		НАЧАЛОПЕРИОДА(ХозрасчетныйОбороты.Период, ДЕНЬ) < НАЧАЛОПЕРИОДА(&Дата, ДЕНЬ)
		И ХозрасчетныйОбороты.СуммаОборотКт > 0
	
	СГРУППИРОВАТЬ ПО
		ХозрасчетныйОбороты.Субконто2,
		ХозрасчетныйОбороты.Субконто1,
		ХозрасчетныйОбороты.Организация) КАК Вложенный

СГРУППИРОВАТЬ ПО
	Вложенный.Организация,
	Вложенный.Банк,
	Вложенный.Договор
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	СтавкиПоПериодам.Ссылка.Договор.Организация КАК Организация,
	СтавкиПоПериодам.Ссылка.Договор.Владелец КАК Банк,
	СтавкиПоПериодам.Ссылка.Договор КАК Договор,
	СтавкиПоПериодам.ДатаНачалаДействия КАК Период,
	СтавкиПоПериодам.Ссылка.УчитыватьДеньОплатыДолгаВРасчетеПроцентов КАК УчитыватьДень,
	СтавкиПоПериодам.Ставка
ПОМЕСТИТЬ ВТ_СтавкиПоПериодам
ИЗ
	Документ.фдДоговорКредитаНаФинансированиеАвтодилеров.СтавкиКредита КАК СтавкиПоПериодам
ГДЕ
	(СтавкиПоПериодам.Ссылка.Договор.Организация, СтавкиПоПериодам.Ссылка.Договор.Владелец, СтавкиПоПериодам.Ссылка.Договор) В
			(ВЫБРАТЬ
				ВТ.Организация,
				ВТ.Банк,
				ВТ.Договор
			ИЗ
				ВТ_ДатыНачалаРасчетаДолга КАК ВТ)
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	СтавкаРефинансированияЦБСрезПоследних.Период,
	1.8 КАК Коэффициент,
	СтавкаРефинансированияЦБСрезПоследних.Размер КАК СтавкаРефинансирования,
	СтавкаРефинансированияЦБСрезПоследних.КлючеваяСтавка КАК КлючеваяСтавка
ПОМЕСТИТЬ ВТ_СтавкиРефинансирования
ИЗ
	РегистрСведений.СтавкаРефинансированияЦБ КАК СтавкаРефинансированияЦБСрезПоследних
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря КАК ДатаКалендаря
ПОМЕСТИТЬ ВТ_ПК
ИЗ
	РегистрСведений.РегламентированныйПроизводственныйКалендарь КАК РегламентированныйПроизводственныйКалендарь
ГДЕ
	РегламентированныйПроизводственныйКалендарь.ДатаКалендаря МЕЖДУ &НачалоПериода И &ОкончаниеПериода
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	ХозрасчетныйОстаткиИОбороты.Субконто1 КАК Банк,
	ХозрасчетныйОстаткиИОбороты.Субконто2 КАК Договор,
	ХозрасчетныйОстаткиИОбороты.Организация,
	ВТ_ПК.ДатаКалендаря КАК Период,
	СУММА(ВЫБОР
			КОГДА ХозрасчетныйОстаткиИОбороты.Период >= ВТ_ПК.ДатаКалендаря
				ТОГДА ВЫБОР
						КОГДА ХозрасчетныйОстаткиИОбороты.Период = &НачалоПериода
							ТОГДА -ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстаток
						ИНАЧЕ 0
					КОНЕЦ
			КОГДА КОНЕЦПЕРИОДА(ХозрасчетныйОстаткиИОбороты.Период, ДЕНЬ) = КОНЕЦПЕРИОДА(&ОкончаниеПериода, ДЕНЬ)
				ТОГДА 0
			КОГДА ХозрасчетныйОстаткиИОбороты.СуммаОборотДт = 0
					И ХозрасчетныйОстаткиИОбороты.СуммаОборотКт = 0
				ТОГДА -ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстаток
			ИНАЧЕ -ХозрасчетныйОстаткиИОбороты.СуммаОборот
		КОНЕЦ) КАК СуммаДолга
ПОМЕСТИТЬ ВТ_ОстаткиИОбороты
ИЗ
	ВТ_ПК КАК ВТ_ПК
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
				&НачалоПериода,
				&ОкончаниеПериода,
				День,
				,
				Счет = &Счет6601,
				&ВидыСубконто,
				(Организация, Субконто1, Субконто2) В
					(ВЫБРАТЬ
						ВТ.Организация,
						ВТ.Банк,
						ВТ.Договор
					ИЗ
						ВТ_ДатыНачалаРасчетаДолга КАК ВТ)) КАК ХозрасчетныйОстаткиИОбороты
		ПО (ИСТИНА)

СГРУППИРОВАТЬ ПО
	ХозрасчетныйОстаткиИОбороты.Субконто1,
	ХозрасчетныйОстаткиИОбороты.Субконто2,
	ХозрасчетныйОстаткиИОбороты.Организация,
	ВТ_ПК.ДатаКалендаря
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	Вложенный.Период,
	Вложенный.Организация,
	Вложенный.Банк,
	Вложенный.Договор,
	Вложенный.СуммаДолга,
	ЕСТЬNULL(ВТ_СтавкиПоПериодам.Ставка, 0) КАК Ставка,
	Вложенный.СуммаДолга * ЕСТЬNULL(ВТ_СтавкиПоПериодам.Ставка, 0) / 100 / (РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(Вложенный.Период, ГОД), КОНЕЦПЕРИОДА(Вложенный.Период, ГОД), ДЕНЬ) + 1) КАК Сумма,
	ЕСТЬNULL(ВТ_ДатыНачалаРасчетаДолга.ДатаНачалаРасчета, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаНачалаРасчета,
	ВЫБОР
		КОГДА Вложенный.Период < ДАТАВРЕМЯ(2015, 1, 1)
			ТОГДА ЕСТЬNULL(ВТ_СтавкиРефинансирования.СтавкаРефинансирования, 0)
		ИНАЧЕ ЕСТЬNULL(ВТ_СтавкиРефинансирования.КлючеваяСтавка, 0)
	КОНЕЦ КАК СтавкаРефинансирования,
	ЕСТЬNULL(ВТ_СтавкиРефинансирования.Коэффициент, 0) КАК Коэффициент,
	Вложенный.СуммаДолга * ВЫБОР
		КОГДА Вложенный.Период < ДАТАВРЕМЯ(2015, 1, 1)
			ТОГДА ЕСТЬNULL(ВТ_СтавкиРефинансирования.СтавкаРефинансирования, 0)
		ИНАЧЕ ЕСТЬNULL(ВТ_СтавкиРефинансирования.КлючеваяСтавка, 0)
	КОНЕЦ * ЕСТЬNULL(ВТ_СтавкиРефинансирования.Коэффициент, 0) / 100 / (РАЗНОСТЬДАТ(НАЧАЛОПЕРИОДА(Вложенный.Период, ГОД), КОНЕЦПЕРИОДА(Вложенный.Период, ГОД), ДЕНЬ) + 1) КАК СуммаРефинансирования
ПОМЕСТИТЬ ВТ_ОстаткиИОборотыСоСтавками
ИЗ
	(ВЫБРАТЬ
		ВТ_ОстаткиИОбороты.Банк КАК Банк,
		ВТ_ОстаткиИОбороты.Договор КАК Договор,
		ВТ_ОстаткиИОбороты.Организация КАК Организация,
		ВТ_ОстаткиИОбороты.Период КАК Период,
		ВТ_ОстаткиИОбороты.СуммаДолга КАК СуммаДолга,
		МАКСИМУМ(ЕСТЬNULL(ВТ_СтавкиПоПериодам.Период, ДАТАВРЕМЯ(1, 1, 1))) КАК ПериодСтавки,
		МАКСИМУМ(ЕСТЬNULL(ВТ_СтавкиРефинансирования.Период, ДАТАВРЕМЯ(1, 1, 1))) КАК ПериодСтавкиРефинансирования
	ИЗ
		ВТ_ОстаткиИОбороты КАК ВТ_ОстаткиИОбороты
			ЛЕВОЕ СОЕДИНЕНИЕ ВТ_СтавкиПоПериодам КАК ВТ_СтавкиПоПериодам
			ПО ВТ_ОстаткиИОбороты.Организация = ВТ_СтавкиПоПериодам.Организация
				И ВТ_ОстаткиИОбороты.Банк = ВТ_СтавкиПоПериодам.Банк
				И ВТ_ОстаткиИОбороты.Договор = ВТ_СтавкиПоПериодам.Договор
				И ВТ_ОстаткиИОбороты.Период >= ВТ_СтавкиПоПериодам.Период
			ЛЕВОЕ СОЕДИНЕНИЕ ВТ_СтавкиРефинансирования КАК ВТ_СтавкиРефинансирования
			ПО ВТ_ОстаткиИОбороты.Период >= ВТ_СтавкиРефинансирования.Период
	
	СГРУППИРОВАТЬ ПО
		ВТ_ОстаткиИОбороты.Банк,
		ВТ_ОстаткиИОбороты.Договор,
		ВТ_ОстаткиИОбороты.Организация,
		ВТ_ОстаткиИОбороты.Период,
		ВТ_ОстаткиИОбороты.СуммаДолга) КАК Вложенный
		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_СтавкиПоПериодам КАК ВТ_СтавкиПоПериодам
		ПО Вложенный.Организация = ВТ_СтавкиПоПериодам.Организация
			И Вложенный.Банк = ВТ_СтавкиПоПериодам.Банк
			И Вложенный.Договор = ВТ_СтавкиПоПериодам.Договор
			И Вложенный.ПериодСтавки = ВТ_СтавкиПоПериодам.Период
		ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ДатыНачалаРасчетаДолга КАК ВТ_ДатыНачалаРасчетаДолга
		ПО Вложенный.Организация = ВТ_ДатыНачалаРасчетаДолга.Организация
			И Вложенный.Банк = ВТ_ДатыНачалаРасчетаДолга.Банк
			И Вложенный.Договор = ВТ_ДатыНачалаРасчетаДолга.Договор
		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ВТ_СтавкиРефинансирования КАК ВТ_СтавкиРефинансирования
		ПО Вложенный.ПериодСтавкиРефинансирования = ВТ_СтавкиРефинансирования.Период
;

////////////////////////////////////////////////////////////­////////////////////
ВЫБРАТЬ
	МИНИМУМ(ВТ_ОстаткиИОборотыСоСтавками.Период) КАК ПериодС,
	МАКСИМУМ(ВТ_ОстаткиИОборотыСоСтавками.Период) КАК ПериодПо,
	ВТ_ОстаткиИОборотыСоСтавками.Организация,
	ВТ_ОстаткиИОборотыСоСтавками.Банк,
	ВТ_ОстаткиИОборотыСоСтавками.Договор КАК ДоговорКонтрагента,
	ВТ_ОстаткиИОборотыСоСтавками.СуммаДолга,
	ВТ_ОстаткиИОборотыСоСтавками.Ставка,
	СУММА(ВТ_ОстаткиИОборотыСоСтавками.Сумма) КАК Сумма,
	ВТ_ОстаткиИОборотыСоСтавками.СтавкаРефинансирования,
	ВТ_ОстаткиИОборотыСоСтавками.Коэффициент,
	СУММА(ВТ_ОстаткиИОборотыСоСтавками.СуммаРефинансирования) КАК СуммаПоСтавкеРефинансирования,
	СУММА(ВЫБОР
			КОГДА ВТ_ОстаткиИОборотыСоСтавками.Сумма > ВТ_ОстаткиИОборотыСоСтавками.СуммаРефинансирования
				ТОГДА ВТ_ОстаткиИОборотыСоСтавками.СуммаРефинансирования
			ИНАЧЕ ВТ_ОстаткиИОборотыСоСтавками.Сумма
		КОНЕЦ) КАК СуммаПринимаемыхВНУ,
	СУММА(ВЫБОР
			КОГДА ВТ_ОстаткиИОборотыСоСтавками.Сумма > ВТ_ОстаткиИОборотыСоСтавками.СуммаРефинансирования
				ТОГДА ВТ_ОстаткиИОборотыСоСтавками.Сумма - ВТ_ОстаткиИОборотыСоСтавками.СуммаРефинансирования
			ИНАЧЕ 0
		КОНЕЦ) КАК СуммаНеПринимаемыхВНУ
ИЗ
	ВТ_ОстаткиИОборотыСоСтавками КАК ВТ_ОстаткиИОборотыСоСтавками
ГДЕ
	ВТ_ОстаткиИОборотыСоСтавками.Сумма > 0
	И ВТ_ОстаткиИОборотыСоСтавками.ДатаНачалаРасчета <= ВТ_ОстаткиИОборотыСоСтавками.Период

СГРУППИРОВАТЬ ПО
	ВТ_ОстаткиИОборотыСоСтавками.Организация,
	ВТ_ОстаткиИОборотыСоСтавками.Банк,
	ВТ_ОстаткиИОборотыСоСтавками.Договор,
	ВТ_ОстаткиИОборотыСоСтавками.СуммаДолга,
	ВТ_ОстаткиИОборотыСоСтавками.Ставка,
	ВТ_ОстаткиИОборотыСоСтавками.Коэффициент,
	ВТ_ОстаткиИОборотыСоСтавками.СтавкаРефинансирования

УПОРЯДОЧИТЬ ПО
	ВТ_ОстаткиИОборотыСоСтавками.Организация,
	ВТ_ОстаткиИОборотыСоСтавками.Банк,
	ВТ_ОстаткиИОборотыСоСтавками.Договор,
	ПериодС,
	ПериодПо
Показать
2. duhh 238 20.04.15 13:24 Сейчас в теме
В процедуре есть Пример получения % ставки из доп. свойства

Процедура ЗаполнитьПоПоступлению(ДанныеЗаполнения) Экспорт

	ВалютаРеглУчета = Константы.ВалютаРегламентированногоУчета.Получить();
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Счет", СчетУчетаРасчетовСКонтрагентом);
	Запрос.УстановитьПараметр("ДоговорКонтрагента", ДоговорКонтрагента);
	Запрос.УстановитьПараметр("НачалоПериода", НачалоДня(НачалоПериода));
	Запрос.УстановитьПараметр("КонецПериода", КонецДня(КонецПериода));
	СвойствоПоиска = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("% ставка по займу (Договор)", Истина);
	Запрос.Параметры.Вставить("Свойство", СвойствоПоиска);

	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ХозрасчетныйОстаткиИОбороты.Регистратор,
	|	ХозрасчетныйОстаткиИОбороты.Период,
	|	ХозрасчетныйОстаткиИОбороты.Счет,
	|	ХозрасчетныйОстаткиИОбороты.Субконто2,
	|	ВЫБОР
	|		КОГДА ХозрасчетныйОстаткиИОбороты.Счет.Вид = ЗНАЧЕНИЕ(ВидСчета.Пассивный)
	|			ТОГДА -1
	|		ИНАЧЕ 1
	|	КОНЕЦ * ХозрасчетныйОстаткиИОбороты.СуммаНачальныйОстаток КАК СуммаНачальныйОстаток,
	|	ВЫБОР
	|		КОГДА ХозрасчетныйОстаткиИОбороты.Счет.Вид = ЗНАЧЕНИЕ(ВидСчета.Пассивный)
	|			ТОГДА -1
	|		ИНАЧЕ 1
	|	КОНЕЦ * ХозрасчетныйОстаткиИОбороты.ВалютнаяСуммаНачальныйОстаток КАК ВалютнаяСуммаНачальныйОстаток,
	|	ВЫБОР
	|		КОГДА ХозрасчетныйОстаткиИОбороты.Счет.Вид = ЗНАЧЕНИЕ(ВидСчета.Пассивный)
	|			ТОГДА -1
	|		ИНАЧЕ 1
	|	КОНЕЦ * ХозрасчетныйОстаткиИОбороты.СуммаОборот КАК СуммаОборот,
	|	ВЫБОР
	|		КОГДА ХозрасчетныйОстаткиИОбороты.Счет.Вид = ЗНАЧЕНИЕ(ВидСчета.Пассивный)
	|			ТОГДА -1
	|		ИНАЧЕ 1
	|	КОНЕЦ * ХозрасчетныйОстаткиИОбороты.ВалютнаяСуммаОборот КАК ВалютнаяСуммаОборот,
	|	ВЫБОР
	|		КОГДА ХозрасчетныйОстаткиИОбороты.Счет.Вид = ЗНАЧЕНИЕ(ВидСчета.Пассивный)
	|			ТОГДА -1
	|		ИНАЧЕ 1
	|	КОНЕЦ * ХозрасчетныйОстаткиИОбороты.СуммаКонечныйОстаток КАК СуммаКонечныйОстаток,
	|	ВЫБОР
	|		КОГДА ХозрасчетныйОстаткиИОбороты.Счет.Вид = ЗНАЧЕНИЕ(ВидСчета.Пассивный)
	|			ТОГДА -1
	|		ИНАЧЕ 1
	|	КОНЕЦ * ХозрасчетныйОстаткиИОбороты.ВалютнаяСуммаКонечныйОстаток КАК ВалютнаяСуммаКонечныйОстаток,
	|	ДополнительныеСведения.Значение КАК Процент
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(&НачалоПериода, &КонецПериода, Регистратор, , Счет = &Счет, , Субконто2 = &ДоговорКонтрагента) КАК ХозрасчетныйОстаткиИОбороты
	|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
	|		ПО ХозрасчетныйОстаткиИОбороты.Субконто2 = ДополнительныеСведения.Объект
	|ГДЕ
	|	ДополнительныеСведения.Свойство = &Свойство";
	
	РезультатЗапроса = Запрос.Выполнить();
	Выборка = РезультатЗапроса.Выбрать();
	Пока Выборка.Следующий() Цикл
		
		СтрокаТабличнойЧасти = Задолженность.Добавить();
		
		СтрокаТабличнойЧасти.Период          = Выборка.Период;
		СтрокаТабличнойЧасти.Процент         = Выборка.Процент;
		СтрокаТабличнойЧасти.ДокументДолга   = Выборка.Регистратор;
		Если ДоговорКонтрагента.РасчетыВУсловныхЕдиницах Тогда
			СтрокаТабличнойЧасти.СуммаДолга	     = Выборка.ВалютнаяСуммаНачальныйОстаток;	
			СтрокаТабличнойЧасти.СуммаПогашения  = Выборка.ВалютнаяСуммаОборот;
		Иначе
			СтрокаТабличнойЧасти.СуммаДолга	     = Выборка.СуммаНачальныйОстаток;	
			СтрокаТабличнойЧасти.СуммаПогашения  = Выборка.СуммаОборот;
		КонецЕсли;		
	КонецЦикла;
	
	ЧислоДнейВГоду = ДеньГода(КонецГода(КонецПериода));
	Для Каждого Строка Из Задолженность Цикл
		Если Строка.НомерСтроки > 1 и Строка.СуммаДолга > 0 Тогда
			Если  НачалоДня(Задолженность[Строка.НомерСтроки-2].Период) = НачалоДня(НачалоПериода) Тогда
				ЭтоНачалоПериода = Истина;
			Иначе
				ЭтоНачалоПериода = Ложь;
			КонецЕсли;	
			РазницаВСекундах = Строка.Период - Задолженность[Строка.НомерСтроки-2].Период;
			Строка.Количество = РазницаВСекундах/24/60/60 + ?(ЭтоНачалоПериода,1,0);
			Строка.Сумма      = Строка.СуммаДолга * Строка.Количество * Строка.Процент/ 100 / ЧислоДнейВГоду;
		КонецЕсли;	
		
	КонецЦикла;	
	
КонецПроцедуры
Показать

3. lvk74 27 22.04.15 11:37 Сейчас в теме
(2) duhh,
Спасибо большое за информацию, как только сдам все отчеты - обязательно приму к сведению и попытаюсь применить
4. Tata7772 05.08.15 20:52 Сейчас в теме
Спасибо! Очень хорошая обработка!
5. Uejova 17.08.15 12:29 Сейчас в теме
День добрый!
В графах по заемным средствам на начало и на конец "не хватает места". Что сделать, если надо 9 цифр?
Спасибо!
6. Tata7772 18.08.15 18:16 Сейчас в теме
день добрый! Простите, так и не нашла где можно написать "в личку"
5. Uejova
7. алена33332 08.10.15 15:02 Сейчас в теме
Спасибо за обработку! Только подскажите пожалуйста, я проценты на числила , а создание операции в учете не создается? Что делаю неправильно?
8. lvk74 27 08.10.15 15:08 Сейчас в теме
(7) алена33332,
скиньте мне на почту скрин - проблем не было с созданием операций.
9. алена33332 08.10.15 15:24 Сейчас в теме
(8) Точней операции создаются, но пустые... никаких проводок в них не отражается. Делаю начислении процентов по 67.03 счету. По 66.03.операции создались без проблем
10. iva-74 01.11.16 16:36 Сейчас в теме
ДОбрый день
а если у меня счета - валютные 67-23 и 67-24 например - я могу выбрать эти счета ? или там только те что в шапке (описании) ?
11. iva-74 01.11.16 16:49 Сейчас в теме
скачала - не получилось
у меня суммы совсем другие получились
у Вас нет такого под валютные договора?
12. klaus38 06.10.17 21:59 Сейчас в теме
С 66 04 в новых релизах БП 3 будет работать?
13. lvk74 27 09.10.17 06:41 Сейчас в теме
релиз 3.0.52.39 платформа 8.3.10.2505 - проверено. работает
Оставьте свое сообщение