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

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




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

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

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