Автоматизация процесса формирования документов реализации в лизинговой компании

20.11.19

Учетные задачи - Оптовая торговля

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

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

Наименование Файл Версия Размер
Формирование РТиУ
.epf 7,74Kb
1
.epf 7,74Kb 1 Скачать
Сравнение фактически поступивших платежей с графиком платежей
.erf 8,25Kb
0
.erf 8,25Kb Скачать

Постановка задачи:

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

Решение:

Необходимо где-то хранить информацию о графике платежа (дата платежа и сумма платежа). В конфигурацию "Бухгалтерия предприятия, редакция 3.0" был добавлен новый справочник "ГрафикПлатежей" (можно добавить в расширение). 

Реквизиты: Контрагент, Договор, ВидДоговора

Табличная часть: Платежи (ДатаПлатежа, СуммаПлатежа)

 

В форму элемента справочника выведены реквизиты: Наименование, Контрагент, Договор, Вид договора и Табличная часть "Оплата" с реквизитами ДатаПлатежа и СуммаПлатежа.

 

В модуле формы прописываем код для формирования документов

&НаСервере
Функция СформироватьРТиУНаСервере()
	РТУ = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
	Сегодня = ТекущаяДата();
	РТУ.Дата = КонецМесяца(Сегодня);
	РТУ.Организация = Справочники.Организации.НайтиПоНаименованию("ООО ""Наша фирма""");
	РТУ.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Услуги;
	РТУ.ДоговорКонтрагента = Объект.Договор;
	РТУ.ВалютаДокумента = Объект.Договор.ВалютаВзаиморасчетов;
	РТУ.Контрагент = Объект.Договор.Владелец;
	РТУ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
	РТУ.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");
	РТУ.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
	РТУ.СуммаВключаетНДС = Истина;
	РТУ.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основная цена продажи");
	ТекущийМесяц = Месяц(ТекущаяДата());
	ТекущийГод = Год(ТекущаяДата());
	НоваяСтрока = РТУ.Услуги.Добавить();
	Если Объект.ВидДоговора.Наименование = "Аренда" Тогда
		НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00000000333");
		НоваяСтрока.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Аренда");
	ИначеЕсли
		Объект.ВидДоговора.Наименование = "Лизинговый платеж"
		Тогда
		НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00000000025");
		НоваяСтрока.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Лизинговый платеж");
	КонецЕсли;
	НоваяСтрока.Содержание = Строка(НоваяСтрока.Номенклатура)+" по договору "+Строка(Объект.Договор);
	НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;
	НоваяСтрока.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
	НоваяСтрока.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
	НоваяСтрока.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
	
	Для Каждого Элемент из Объект.Платежи Цикл
		Если ТекущийМесяц = Месяц(Элемент.ДатаПлатежа) И ТекущийГод = Год(Элемент.ДатаПлатежа) Тогда
			НоваяСтрока.Цена = Элемент.СуммаПлатежа;
			НоваяСтрока.Сумма = Элемент.СуммаПлатежа;
			НоваяСтрока.СуммаНДС = Элемент.СуммаПлатежа*(1-1/1.2);
		КонецЕсли;
	КонецЦикла;
	
	РТУ.Записать(РежимЗаписиДокумента.Запись);
	Возврат РТУ.Ссылка;
КонецФункции

&НаКлиенте
Процедура СформироватьРТиУ(Команда)
	ОткрытьЗначение(СформироватьРТиУНаСервере());
КонецПроцедуры

Таким образом, при нажатии на кнопку "Сформировать РТиУ" формируется документ реализации, заполняется шапка документа, табличная часть "Услуги" и документ записывается с датой последнего дня текущего месяца. 

Табличная часть заполняется в соответствии со значениями справочника "График платежей"

Так можно сформировать документ для каждого конкретного договора.

 

Для того, чтобы сформировать документы по нескольким договорам была написана внешняя обработка "Формирование РТиУ"

 

В модуле формы обработки при нажатии на кнопку "Заполнить" сначала заполняем таблицу из справочника "График платежей"

&НаСервере
Процедура ЗаполнитьНаСервере()
	Запрос = Новый Запрос;	
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ГрафикПлатежей.Ссылка КАК График,
	|	ГрафикПлатежей.Контрагент КАК Контрагент
	|ИЗ
	|	Справочник.ГрафикПлатежей КАК ГрафикПлатежей";
	
	Таблица.Загрузить(Запрос.Выполнить().Выгрузить());
	
	Для Каждого Строка Из Таблица Цикл
		Строка.Выбор = Истина;
	КонецЦикла;		
	
КонецПроцедуры

&НаКлиенте
Процедура Заполнить(Команда)
	ЗаполнитьНаСервере();
КонецПроцедуры

 

Затем, при нажатии на кнопку "Сформировать РТиУ" формируем документы, которые отмечены крыжиком

&НаСервере
Процедура СформироватьРТУНаСервере()
	
	Для каждого Строка Из Таблица Цикл
		Если Строка.Выбор Тогда
			Выборка = Строка.График;		
			РТУ = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
			Сегодня = ТекущаяДата();
			//РТУ.Дата = Дата(Год(Сегодня),Месяц(Сегодня),20);
			РТУ.Дата = КонецМесяца(Сегодня);
			РТУ.Организация = Справочники.Организации.НайтиПоНаименованию("ООО ""Наша фирма""");
			РТУ.ВидОперации = Перечисления.ВидыОперацийРеализацияТоваров.Услуги;
			РТУ.ДоговорКонтрагента = Выборка.Договор;
			РТУ.ВалютаДокумента = Выборка.Договор.ВалютаВзаиморасчетов;
			РТУ.Контрагент = Выборка.Договор.Владелец;
			РТУ.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
			РТУ.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.02");
			РТУ.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически;
			РТУ.СуммаВключаетНДС = Истина;
			РТУ.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Основная цена продажи");
			ТекущийМесяц = Месяц(ТекущаяДата());
			ТекущийГод = Год(ТекущаяДата());
			НоваяСтрока = РТУ.Услуги.Добавить();
			Если Выборка.ВидДоговора.Наименование = "Аренда" Тогда
				НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00000000333");
				НоваяСтрока.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Аренда");
			ИначеЕсли
				Выборка.ВидДоговора.Наименование = "Лизинговый платеж"
				Тогда
				НоваяСтрока.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00000000025");
				НоваяСтрока.Субконто = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Лизинговый платеж");
			КонецЕсли;
			НоваяСтрока.Содержание = Строка(НоваяСтрока.Номенклатура)+" по договору "+Строка(Выборка.Договор);
			НоваяСтрока.СтавкаНДС = Перечисления.СтавкиНДС.НДС20;
			НоваяСтрока.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
			НоваяСтрока.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
			НоваяСтрока.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
			
			Для Каждого Элемент из Выборка.Платежи Цикл
				Если ТекущийМесяц = Месяц(Элемент.ДатаПлатежа) И ТекущийГод = Год(Элемент.ДатаПлатежа) Тогда
					НоваяСтрока.Цена = Элемент.СуммаПлатежа;
					НоваяСтрока.Сумма = Элемент.СуммаПлатежа;
					НоваяСтрока.СуммаНДС = Элемент.СуммаПлатежа*(1-1/1.2);
				КонецЕсли;
				
				
			КонецЦикла;
		
		РТУ.Записать(РежимЗаписиДокумента.Запись);	
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура СформироватьРТУ(Команда)
	СформироватьРТУНаСервере();
КонецПроцедуры

Код формирования документов, фактически, повторяет код в справочнике, только добавлен цикл по строкам таблицы

 

Обработка в режиме предприятия

 

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

Запрос

ВЫБРАТЬ
	ГрафикПлатежейПлатежи.Ссылка.Наименование КАК Наименование,
	ГрафикПлатежейПлатежи.Ссылка.Контрагент КАК Контрагент,
	ГрафикПлатежейПлатежи.Ссылка.Договор КАК Договор,
	ГрафикПлатежейПлатежи.НомерСтроки КАК НомерСтроки,
	ГрафикПлатежейПлатежи.ДатаПлатежа КАК ДатаПлатежа,
	ГрафикПлатежейПлатежи.СуммаПлатежа КАК СуммаПлатежа,
	ПоступлениеНаРасчетныйСчет.Контрагент КАК Контрагент1,
	ПоступлениеНаРасчетныйСчет.Дата КАК Дата,
	ПоступлениеНаРасчетныйСчет.ДоговорКонтрагента КАК ДоговорКонтрагента,
	ПоступлениеНаРасчетныйСчет.СуммаДокумента КАК СуммаДокумента,
	ПоступлениеНаРасчетныйСчет.Ссылка КАК Ссылка
ИЗ
	Справочник.ГрафикПлатежей.Платежи КАК ГрафикПлатежейПлатежи
		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ПоступлениеНаРасчетныйСчет КАК ПоступлениеНаРасчетныйСчет
		ПО ГрафикПлатежейПлатежи.Ссылка.Договор = ПоступлениеНаРасчетныйСчет.ДоговорКонтрагента
			И (НАЧАЛОПЕРИОДА(ГрафикПлатежейПлатежи.ДатаПлатежа, МЕСЯЦ) = НАЧАЛОПЕРИОДА(ПоступлениеНаРасчетныйСчет.Дата, МЕСЯЦ))

 

Сам отчет

 

В табличную часть справочника "График платежей" информация загружалась с использованием стандартной обработки "ЗагрузкаДанныхИзТабличногоДокумента.epf"

См. также

SALE! 20%

Автоматический заказ поставщику в 1С: загрузка прайсов и анализ цен поставщиков для УТ 10.3, УТ 11, КА2, УНФ, УПП, ERP, Розница 2

Бюджетирование и планирование Оптовая торговля Розничная торговля Логистика, склад и ТМЦ Анализ продаж Платформа 1С v7.7 Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Беларусь Украина Россия Казахстан Управленческий учет Платные (руб)

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

28500 22800 руб.

21.04.2017    90212    105    39    

191

ЕГАИС++. Опт, производство, импорт

Оптовая торговля Розничная торговля Обмен с ГосИС Платформа 1С v8.3 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Россия Бухгалтерский учет Управленческий учет Акцизы Платные (руб)

Полнофункциональное расширение (ранее известное как Модуль 1С-ЕГАИС) для взаимодействия типовых конфигураций 1С и ЕГАИС, предоставляющее максимум возможностей по работе с УТМ. Получение и отправка ТТН, отправка акта о постановке на баланс и акта о списании. Получение остатков. Загрузка и сопоставление номенклатуры и контрагентов. Оправка в ЕГАИС отчетов о производстве и импорте.

8970 руб.

15.12.2015    165996    677    362    

386

Обмен с системой ЦРПТ (Универсальная конфигурация ХамелеонЦРПТ + маркировка табака, обуви, одежды, лекарств, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин)

Оптовая торговля Розничная торговля Обмен с ГосИС Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Россия Бухгалтерский учет Управленческий учет Платные (руб)

Данная публикация создана для помощи разработчикам, интеграторам и другим заинтересованным лицам по настройке системы маркировки обуви, одежды, лекарств, табака, фото, молока, духов(парфюма), питьевой воды, велосипедов и шин. Смело задавайте нам вопросы по работе с ЦРПТ, GS1, ЭДО, Национальным каталогом, мы накопили достаточно большую базу знаний по данным темам и готовы ответить на все Ваши вопросы.

104000 руб.

18.03.2019    110347    34    114    

178

Обмен с системой Меркурий через Web + Ветис.API для любых конфигураций (универсальная конфигурация Хамелеон Меркурий)

Оптовая торговля Производство готовой продукции (работ, услуг) Розничная торговля Обмен с ГосИС Платформа 1С v8.3 Конфигурации 1cv8 Сельское хозяйство и рыболовство Розничная и сетевая торговля (FMCG) Оптовая торговля, дистрибуция, логистика Рестораны, кафе и фаст-фуд Пищевая промышленность Россия Бухгалтерский учет Управленческий учет Платные (руб)

Универсальная конфигурация Хамелеон Меркурий для взаимодействия с системой Меркурий(тестовый+рабочий+демо контур) может использоваться для интеграции в любую конфигурацию на базе 1С, версии ПРОФ и выше. Основное отличие от других решений - работа через веб-интерфейс и API 2.0(API 2.1). Для удобства реализован общий интерфейс в виде обработки, схожей с интерфейсом Меркурий, но возможностей гораздо больше, т.к. при интеграции в Вашу учетную систему, можно на основании Ваших справочников и документов, создавать соответствующие документы и справочники в системе Меркурий и наоборот.

104000 руб.

08.11.2017    120867    296    138    

392

Простое ценообразование (установка цен номенклатуры) для 1С 8.3 (УТ 11 / ERP 2 / КА 2 / Розница 2) + (УТ 10.3 / УПП / КА 1 / Розница 1)

Оптовая торговля Розничная торговля Ценообразование, анализ цен Платформа 1С v8.3 Управляемые формы 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление производственным предприятием 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:CRM ПРОФ, КОРП Управленческий учет Платные (руб)

Есть проблемы с расчетом и установкой цен на товары? Универсальная подсистема для ценообразования в 1С поможет навести порядок с ценами! Механизм позволяет задавать произвольные правила расчета колонок цен для разных групп товаров и легко их изменять. Может автоматически (по расписанию) обновлять цены в 1С и выполнять проверку наличия и корректности цен на все товары.

30000 руб.

13.11.2017    77909    40    11    

46
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. roman3333 14.01.20 13:44 Сейчас в теме
добрый день! есть опыт автоматизации платежей..Т.е. клиент имеем неск-ко догворов. Оплачивает он общей суммой
Возможно ли как-то распределить автоматом общую сумму на все договры (от первого догвора до последнего)?
2. yurikmellon 6 14.01.20 14:35 Сейчас в теме
(1) добрый. А как Вы это себе представляете? Приходит выписка из банка по контрагенту (документ "Поступление на расчетный счет") на конкретную сумму и конкретный договор.
Потом что должно происходить? Эта сумма должна пропорционально распределиться на все договора данного контрагента?
3. roman3333 14.01.20 18:02 Сейчас в теме
допустим у клиента есть 7 договоров. К каждому договру привязан график ежемесячных платежей (дата/сумма). Соотв-но общая сумма распредел-ся согласно каждого договора и суммы из графика по порядку возрастания номеров договоров. Если общей суммы на все договоры не хватит,то на те договоры что не хватило суммы должны зафиксироваться как долг клиента по конкретному договору.
При следующем поступлении средств от клиента (выписка) вначале погашается долги по этим договорам,а затем плановые суммы из гарфика вновь распределяются.
4. yurikmellon 6 15.01.20 08:31 Сейчас в теме
(3) я бы в этом случае написал обработку, которая из одного документа "Поступление на расчетный счет" делает семь и сумму в этом документе распределяет по этим семи договорам в соответствии с графиком платежей начиная с первого по номеру. Нужно где то хранить информацию по долгам (регистр какой нибудь сделать), чтобы следующее поступление сначала закрывало эти долги. Как то так.
Оставьте свое сообщение