Заменить реквизиты документа с помощью запроса

Всем привет.

Подскажите как правильно написать обработку, найти документ и в нём заменить реквизиты.

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

        Док = Документы.ДокументРасчетовСКонтрагентом.ПолучитьОбъект();

        Запрос.УстановитьПараметр("Покупатель", Док.Контрагент);
        Запрос.УстановитьПараметр("Документ", Док.Номер);
        Запрос.УстановитьПараметр("Организация", Организация);

        Результат = Запрос.Выполнить();

        Выборка = Результат.Выбрать();

        Пока Выборка.Следующий() Цикл

            Док.ДатаВходящегоДокумента = Выборка.ДатаДокументаОплаты;
            Док.НомерВходящегоДокумента = Выборка.НомерДокументаОплаты;


            Сообщение = Новый СообщениеПользователю();
            Сообщение.Текст = "Сейчас будет скопированы данные из " + Выборка.Регистратор + " по контрагенту: " + Выборка.Покупатель + " по договору: " + Выборка.ДоговорКонтрагента;
            Сообщение.УстановитьДанные(ЭтотОбъект);
            Сообщение.Сообщить();
            Док.Записать();
        КонецЦикла;