Заполнение ТЧ с обработкой запроса

Делаю во внешней обработке. С помощью запроса получил данные, которые нужны. Надо заполнить ТЧ документов.
Текст запроса
ВЫБРАТЬ
    питДанныеПродажФронтаОплаты.Ссылка КАК Ссылка,
    питДанныеПродажФронтаОплаты.ВидОплаты КАК ВидОплаты,
    питДанныеПродажФронтаОплаты.СуммаОплаты КАК СуммаОплаты
ПОМЕСТИТЬ ВТ_ВсеЧеки
ИЗ
    Документ.питДанныеПродажФронта.Оплаты КАК питДанныеПродажФронтаОплаты
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТ_ВсеЧеки.Ссылка КАК Ссылка,
    КОЛИЧЕСТВО(ВТ_ВсеЧеки.ВидОплаты) КАК КоличествоВидовОплат
ПОМЕСТИТЬ ВТ_ДвойныеОплаты
ИЗ
    ВТ_ВсеЧеки КАК ВТ_ВсеЧеки
ГДЕ
    ВТ_ВсеЧеки.ВидОплаты.питВидОперации = &питВидОперацииРеализацияКонтрагенту

СГРУППИРОВАТЬ ПО
    ВТ_ВсеЧеки.Ссылка

ИМЕЮЩИЕ
    КОЛИЧЕСТВО(ВТ_ВсеЧеки.ВидОплаты) > 1
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТ_ВсеЧеки.Ссылка КАК Ссылка,
    ВТ_ВсеЧеки.ВидОплаты КАК ВидОплаты,
    ВТ_ВсеЧеки.СуммаОплаты КАК СуммаОплаты
ПОМЕСТИТЬ ВТ_ОплатыПоЧекам
ИЗ
    ВТ_ВсеЧеки КАК ВТ_ВсеЧеки
ГДЕ
    НЕ ВТ_ВсеЧеки.Ссылка В
                (ВЫБРАТЬ
                    ВТ_ДвойныеОплаты.Ссылка КАК Ссылка
                ИЗ
                    ВТ_ДвойныеОплаты КАК ВТ_ДвойныеОплаты)
;

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

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
    ВТ_СоединениеСРегистром.Ссылка КАК Чеки,
    ВТ_СоединениеСРегистром.ВидОплаты КАК ВидОплаты,
    ВТ_СоединениеСРегистром.СуммаОплаты КАК СуммаОплаты,
    ЕСТЬNULL(питУчетДанныхПродаж.ДокументПриемник, 0) КАК ДокументПриемник
ИЗ
    ВТ_СоединениеСРегистром КАК ВТ_СоединениеСРегистром
        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.питУчетДанныхПродаж КАК питУчетДанныхПродаж
        ПО (питУчетДанныхПродаж.ДокументРегистратор = ВТ_СоединениеСРегистром.Ссылка)
            И (ТИПЗНАЧЕНИЯ(питУчетДанныхПродаж.ДокументПриемник) = ТИПЗНАЧЕНИЯ(ВТ_СоединениеСРегистром.ТипТиповогоДокумента))
ГДЕ
    питУчетДанныхПродаж.ДокументПриемник.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания

С помощью выборки обхожу ТЧ и добавляю новые записи

Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
        ДокСсылка = Выборка.ДокументПриемник;
        Если ДокСсылка = 0 Тогда
            Продолжить;
        Иначе
            ДокОбъект = ДокСсылка.ПолучитьОбъект();
            //ДокОбъект.СМ_ВидыОплаты.Очистить();

            стр = ДокОбъект.СМ_ВидыОплаты.Добавить();
            стр.ВидОплаты = Выборка.ВидОплаты;
            стр.Сумма = Выборка.СуммаОплаты;
            Попытка
                ДокОбъект.Записать();
            Исключение
                ЗаписьЖурналаРегистрации("Обработка ",,,," не записал " + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
            КонецПопытки
        КонецЕсли;
    КонецЦикла;
Но заполнение происходит очень медленно. Понимаю, что я записываю каждую строку каждый раз в цикле. Выношу из цикла записывает - только последний документ.
Что я делаю не так?
Тухлые яйца, пожалуйста, только учусь..