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

13.07.16

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

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

Скачать файл

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

Наименование По подписке [?] Купить один файл
расчет процентов по полученным займам и кредитам (счета 66 и 67)
.epf 15,50Kb ver:3.0.1
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    83040    1397    91    

153

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

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

2 стартмани

21.11.2024    466    7    user1616002    0    

4

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

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

2 стартмани

11.10.2024    330    0    user1546270    0    

1

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

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

3 стартмани

30.08.2024    519    6    9093042    0    

0

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

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

10 стартмани

20.05.2024    951    5    itserve    0    

1

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

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

25.03.2024    1083    Koder_Line    0    

1

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

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

1 стартмани

08.02.2024    740    0    DENSKR    0    

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