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

13.07.16

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

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

Файлы

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

Наименование Скачано Купить файл
расчет процентов по полученным займам и кредитам (счета 66 и 67)
.epf 15,50Kb ver:3.0.1
18 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

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

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

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

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

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

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

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

Вступайте в нашу телеграмм-группу Инфостарт

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

См. также

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

Внешняя обработка для 1С:Бухгалтерии 3.0/КОРП: расчет процентов по кредиту/договору займа на дату и формирование ручной операции (проводок) в бухгалтерском и налоговом учете. Использует итоги по счетам 66, 67, 58.03

4270 руб.

13.01.2014    85955    530    93    

167

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

Расширение для 1С:БП 3.0 по расчету процентов по статье 395 ГК РФ. Возможности расчета: 1. Расчет процентов без учета и с учетом отсрочек. 2. Расчет процентов с учетом отсрочек платежей. 3. Расчет процентов по контрагенту в целом. 4. Расчет процентов по одному, либо нескольким договорам (в 1С должна быть включена опция "Учет по договорам"

5084 руб.

04.08.2025    1655    1    0    

2

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

Обработка предназначена для автоматизации расчёта материальной выгоды и НДФЛ при предоставлении сотрудникам или контрагентам беспроцентных либо низкопроцентных займов. Решение работает в 1С: Бухгалтерии предприятия 3.0 (ред. 3.0) и позволяет быстро определить сумму матвыгоды за выбранный период, учесть полное и частичное погашение займа, а также сформировать бухгалтерскую справку-расчёт. Обработка не создаёт документы и не выполняет проводок — её задача именно расчёт и печатная форма.

1 стартмани

10.12.2025    442    2    Natali_Black    0    

0

Займы, кредит, лизинг Бухгалтер Пользователь 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Комплексная автоматизация 2.х Бухгалтерский учет Налоговый учет Управленческий учет Бесплатно (free)

Как провести операцию досрочного выкупа Объекта лизинга, если изначально в документе Договор лизинга выкуп не был предусмотрен?

05.12.2025    740    It-digit    1    

3

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

Понадобилось на проекте реализовать функцию, аналогичную формуле СТАВКА в MS Excel. Перерыл все, но не нашел. Пришлось написать самому. Делюсь разработкой.

1 стартмани

06.10.2025    1031    WellMaster    0    

2

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

Отражение в бухгалтерском и налоговом учётах выдачи, получения и обслуживания заёмных средств для заёмщиков и займодавцев.

2 стартмани

21.11.2024    2626    20    Asyst-pro    10    

6

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

Отчет, реализующий логику управления питанием работников в кредит с компенсацией им определенной суммы по итогам месяца и обрабатывающий записи из дополнительного регистра сведений.

2 стартмани

11.10.2024    1518    0    user1546270    0    

1

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

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

3 стартмани

30.08.2024    1847    7    9093042    0    

0
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. progvicof 33 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 240 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 - проверено. работает
Для отправки сообщения требуется регистрация/авторизация