внешняя обработка

&НаКлиенте
Процедура Заполнить(Команда)
	Если  ЗначениеЗаполнено(Дата) тогда
		Договоры.Очистить();
		ЗаполнитьНаСервере();
	иначе
		Сообщить("Не выбрана дата!");
	КонецЕсли; 
	ЗаполнитьНаСервере();
КонецПроцедуры




&НаСервере
Процедура ЗаполнитьНаСервере()
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	МАКСИМУМ(ЛТ_ГрафикиПлатежейОбороты.ДатаНачисления) КАК ДатаПлатежа,
	|	ЛТ_ГрафикиПлатежейОбороты.ДоговорЛизинга КАК ДоговорЛизинга
	|ПОМЕСТИТЬ ДЛ
	|ИЗ
	|	РегистрНакопления.ЛТ_ГрафикиПлатежей.Обороты(, , , ) КАК ЛТ_ГрафикиПлатежейОбороты
	|
	|СГРУППИРОВАТЬ ПО
	|	ЛТ_ГрафикиПлатежейОбороты.ДоговорЛизинга
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	ИБР_СтатусыДоговоровСрезПоследних.Договоры КАК Договоры,
	|	ИБР_СтатусыДоговоровСрезПоследних.Статусы КАК Статусы
	|ПОМЕСТИТЬ ДЛ_Действуют
	|ИЗ
	|	РегистрСведений.ИБР_СтатусыДоговоров.СрезПоследних КАК ИБР_СтатусыДоговоровСрезПоследних
	|ГДЕ
	|	ИБР_СтатусыДоговоровСрезПоследних.Статусы = ЗНАЧЕНИЕ(Справочник.ИБР_СтатусыДоговоров.Действует)
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	ДЛ.ДатаПлатежа КАК ДатаПлатежа,
	|	ДЛ.ДоговорЛизинга КАК ДоговорЛизинга,
	|	ДЛ_Действуют.Статусы КАК Статусы
	|ПОМЕСТИТЬ ДЛ_Статус
	|ИЗ
	|	ДЛ_Действуют КАК ДЛ_Действуют
	|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ ДЛ КАК ДЛ
	|		ПО (ДЛ.ДоговорЛизинга = ДЛ_Действуют.Договоры)
	|ГДЕ
	|	ДЛ.ДатаПлатежа = НАЧАЛОПЕРИОДА(КОНЕЦПЕРИОДА(&Период, МЕСЯЦ), ДЕНЬ)
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ ПЕРВЫЕ 3
	|	ДЛ_Статус.ДоговорЛизинга КАК ДоговорЛизинга,
	|	ДЛ_Статус.ДатаПлатежа КАК ДатаОкончания
	|ИЗ
	|	ДЛ_Статус КАК ДЛ_Статус
	|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ЛТ_ЗакрытиеДоговоров КАК ЛТ_ЗакрытиеДоговоров
	|		ПО ДЛ_Статус.ДоговорЛизинга = ЛТ_ЗакрытиеДоговоров.Основание
	|ГДЕ
	|	ЕСТЬNULL(ЛТ_ЗакрытиеДоговоров.Ссылка, 0) = 0";
	
	Запрос.УстановитьПараметр("Период",Дата);
	ТЗ = Запрос.Выполнить().Выгрузить();
	ЭтаФорма.Договоры.Загрузить(ТЗ);
	
КонецПроцедуры

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

&НаСервере
Процедура СоздатьНаСервере()
	
	Для каждого Стр из Договоры Цикл
		НовыйДокумент = Документы.ЛТ_ЗакрытиеДоговоров.СоздатьДокумент();
		НовыйДокумент.Дата=КонецМесяца(Дата);
		НовыйДокумент.Основание= Стр.ДоговорЛизинга;
		НовыйДокумент.Записать();
		СсылкаНаНовыйДокумент = Документы.ЛТ_ЗакрытиеДоговоров.ПолучитьСсылку(УникальныйИдентификатор);
		
	КонецЦикла;
	Сообщить("Документы созданы");	 
	
КонецПроцедуры