Проведение группы документов

&НаСервере
Процедура ПодготовитьНаСервере()
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    |    СписокЗаказов.Заказ
    |ПОМЕСТИТЬ ЗаказыСписок
    |ИЗ
    |    &СписокЗаказов КАК СписокЗаказов
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ДополнительныеСведения.Свойство КАК Свойство,
    |    ДополнительныеСведения.Значение,
    |    ДополнительныеСведения.Объект
    |ПОМЕСТИТЬ СписокСвойств
    |ИЗ
    |    РегистрСведений.ДополнительныеСведения КАК ДополнительныеСведения
    |ГДЕ
    |    ДополнительныеСведения.Свойство = &Свойство
    |;
    |
    |////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |    ЗаказыСписок.Заказ,
    |    СписокСвойств.Значение,
    |    ЕСТЬNULL(СписокСвойств.Свойство, &Свойство) КАК Свойство
    |ИЗ
    |    ЗаказыСписок КАК ЗаказыСписок
    |        ЛЕВОЕ СОЕДИНЕНИЕ СписокСвойств КАК СписокСвойств
    |        ПО ЗаказыСписок.Заказ = СписокСвойств.Объект";
    Запрос.УстановитьПараметр("СписокЗаказов",ДанныеФормыВЗначение(ЗаказыСписок, Тип("ТаблицаЗначений")));
    Запрос.УстановитьПараметр("Свойство", ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Время отгрузки"));
    Результат = Запрос.Выполнить().Выбрать();
    Пока Результат.Следующий() Цикл
        Проводить = Ложь;
        ОбъектЗаказ = Результат.Заказ.ПолучитьОбъект();
        Если ЗаполнитьДатуОтгрузки Тогда
            Если ЗначениеЗаполнено(Результат.Значение) Тогда
                ДатаСтрокой = СокрЛП(Результат.Значение);
                Попытка
                    ДатаОтгрузки = Дата(Лев(ДатаСтрокой,4)+Сред(ДатаСтрокой,6,2)+Сред(ДатаСтрокой,9,2)+Сред(ДатаСтрокой,12,2)+Сред(ДатаСтрокой,15,2)+Сред(ДатаСтрокой,18,2));
                    ЗаполнитьДатуОтгрузки(ОбъектЗаказ, ДатаОтгрузки);
                    Проводить = Истина;
                Исключение
                    Сообщение = Новый СообщениеПользователю;
                    Сообщение.Текст = "Не верный формат даты заказа в документе "+Результат.Заказ;
                    Сообщение.Сообщить();
                КонецПопытки;
            Иначе
                СписокСПустойДатой.Добавить(Результат.Заказ);
                Продолжить;
            КонецЕсли;
        КонецЕсли;
        Если Исправить Тогда
            ПриИзмененииСкладаСервер(ОбъектЗаказ);
            Проводить = Истина;
        КонецЕсли;
        Если ЗначениеЗаполнено(УстановитьСтатус) Тогда
            ОбъектЗаказ.Статус = УстановитьСтатус;
            ПриИзмененииСтатуса(ОбъектЗаказ);
            Проводить = Истина;
        КонецЕсли;
        Если Проводить Тогда
            Попытка
                ОбъектЗаказ.Записать(РежимЗаписиДокумента.Проведение);
            Исключение
                Сообщение = Новый СообщениеПользователю;
                Сообщение.Текст = "Не удалось провести заказ "+Результат.Заказ+".";
                Сообщение.Сообщить();
            КонецПопытки;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
сама процедура. Чем больше заказов тем сильнее тормозит, причем по началу работает быстро, а чем дальше тем медленнее. Как оптимизировать.