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

13.07.16

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

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

Скачать файлы

Наименование Файл Версия Размер
расчет процентов по полученным займам и кредитам (счета 66 и 67)
.epf 15,50Kb
18
.epf 3.0.1 15,50Kb 18 Скачать

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

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

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

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

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

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

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

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

См. также

Начисление процентов по кредитам и займам для БП 3.0, БП КОРП 3.0 и конфигураций на их основе

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

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

2400 руб.

13.01.2014    80439    416    89    

134

Акт сверки взаимных расчетов для документов "Сверка взаиморасчетов" с договорами контрагентов, кредитов, депозитов и займов + ручные операции (1C: ERP2, 1С: УСО2, 1С: УТ 11)

Банковские операции Взаиморасчеты Займы, кредит, лизинг Акт сверки Платформа 1С v8.3 Управляемые формы 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Бухгалтерский учет Платные (руб)

Печатная форма учитывает и обычные договоры с контрагентами, и договоры по кредитам, депозитам и займам. Берутся все документы Операция (Бухгалтерская справка) по всем Счетам БУ и по Дебету и по Кредиту (для УТ 11 - документы Операция-Бухгалтерская справка - не учитывается).

1800 руб.

31.01.2018    35461    58    0    

24

Отчетность по договорам лизинга в программе 1С:Бухгалтерия лизинговой компании

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

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

25.03.2024    192    Koder_Line    0    

1

Контроль схемы кредитования для Ломбард 4 от Рарус

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

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

1 стартмани

08.02.2024    271    0    DENSKR    0    

2

Какой взять кредит, чтобы не платить проценты?

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

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

19.01.2024    1074    kalyaka    16    

9

Учет операций по арендным договорам на примере конфигурации УПП 1.3

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

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

1 стартмани

04.12.2023    871    shmuylovich    0    

2

Учет процентов по полученным/выданным займам

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

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

1 стартмани

24.11.2023    701    20    Cab-dv    7    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
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 236 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 - проверено. работает
Оставьте свое сообщение