Автоматическое создание документа при проведении другого документа

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)   
    // Выполняем проверку реквизита 'ТипСообщения' на наличие значения 'ПоломкаТехники' 
    ПоломкаТехники = ПредопределенноеЗначение("Справочник.ТипыСообщений.ПоломкаТехники");
    Если Объект.ТипСообщения = ПоломкаТехники Тогда        
        // Проверяем наличие/отсутствие действующей заявки на ремонт спецтехники
        Запрос = Новый Запрос;
        Запрос.Текст = 
            "ВЫБРАТЬ
            |   СтатусРемонта.Спецтехника КАК Спецтехника,
            |   СтатусРемонта.Статус КАК Статус
            |ИЗ
            |   РегистрСведений.СтатусыРемонтаСпецтехники.СрезПоследних(&ДатаСреза, ) КАК СтатусРемонта
            |ГДЕ
            |   СтатусРемонта.Спецтехника = &Спецтехника
            |   И СтатусРемонта.Статус В (&Новая, &ВРаботе)";      
        Запрос.УстановитьПараметр("ДатаСреза", ТекущаяДата());
        Запрос.УстановитьПараметр("Спецтехника", ТекущийОбъект.Спецтехника);     
        Запрос.УстановитьПараметр("Новая", Перечисления.СтатусРемонтаСпецтехники.Новая);
        Запрос.УстановитьПараметр("ВРаботе", Перечисления.СтатусРемонтаСпецтехники.ВРаботе);  
        РезультатЗапроса = Запрос.Выполнить();   
        Если РезультатЗапроса.Пустой() Тогда
            // Создаем заявку на ремонт спецтехники
            ЗаявкаНаРемонтСпецтехники = Документы.ЗаявкаНаРемонтСпецтехники.СоздатьДокумент();
            ЗаявкаНаРемонтСпецтехники.Заполнить(ТекущийОбъект.Ссылка); 
            ЗаявкаНаРемонтСпецтехники.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Оперативный);  
        Иначе
            // Сообщаем, если заявка уже есть (во избежание дублей)
            Сообщить("Заявка на ремонт для выбранной спецтехники уже создана!");
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

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