Перебор записей,

Люди подскажите. Обработка создает документ корректировки записей регистров. На данный момент если документ такой уже существует, то обработка сама его перезаписывает. Как можно описать перебор записей и в случае если такая запись присутствует в РежимДиалогВопрос.ДаНет предлагал его перезаписать.
Сам код обработки:

Процедура КнопкаВыполнитьНажатие(Кнопка)
    //Проверка на незаполнение полей формы
    Если Не ЗначениеЗаполнено(ОкончаниеПериода) Тогда
         Сообщить("Поле Окончание Периода не заполнено!");
         Возврат;
    Конецесли;

    Если Не ЗначениеЗаполнено(Организация) Тогда
         Сообщить("Поле Организация не заполнено!");
         Возврат;
    Конецесли;

    Если Не ЗначениеЗаполнено(Контрагент) Тогда
         Сообщить("Поле Контрагент не заполнено!");
         Возврат;
    Конецесли;

    Если Не ЗначениеЗаполнено(Договор) Тогда
         Сообщить("Поле Договор Контрагента не заполнено!");
         Возврат;
    Конецесли;

    //Смотрим выбран ли Документ корректировки

    Если Не ЗначениеЗаполнено(ДокументКорректировки) Тогда

            НовДокКоррЗап = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
            НовДокКоррЗап.Дата = ТекущаяДата();
            НовДокКоррЗап.Комментарий = "Корректировка начислений ГПХ";
            НовДокКоррЗап.Ответственный = Пользователи.ТекущийПользователь();

        Иначе
            НовДокКоррЗап = ДокументКорректировки.ПолучитьОбъект();
    Конецесли;

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

    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("Контрагент", Контрагент);
    Запрос.УстановитьПараметр("НачалоПериода", НачалоДня(НачалоПериода));
    Запрос.УстановитьПараметр("ОкончаниеПериода", Новый Граница(КонецДня(ОкончаниеПериода), ВидГраницы.Включая));
    Запрос.УстановитьПараметр("ДоговорКонтрагента", Договор);

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

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


        Строка = ВзаиморасчетыСКонтрагентами.Добавить();
        Строка.Период                 = КонецДня(Выборка.Период);
        Строка.Регистратор             = НовДокКоррЗап.Ссылка;
        Строка.ВидДвижения             = ВидДвиженияНакопления.Расход;
        Строка.Активность             = Истина;
        Строка.Сделка                 = Выборка.Сделка;
        Строка.Организация             = Выборка.Организация;
        Строка.Контрагент             = Выборка.Контрагент;
        Строка.ДоговорКонтрагента     = Выборка.ДоговорКонтрагента;
        Строка.СуммаВзаиморасчетов    = Выборка.СуммаВзаиморасчетовПриход;
        Строка.СуммаУпр             = Выборка.СуммаУпрПриход;

    КонецЦикла;

    //Движение по РегистрНакопления.ВзаиморасчетыСКонтрагентамиПоДокументамРасчета
    НовСтрРег = НовДокКоррЗап.ТаблицаРегистровНакопления.Добавить();
    НовСтрРег.Имя = "ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов";
    НовСтрРег.Представление = "Взаиморасчеты с контрагентами по документам расчетов";
    ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов = ДвиженияКорр.ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов;

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

    Запрос.УстановитьПараметр("Организация", Организация);
    Запрос.УстановитьПараметр("Контрагент", Контрагент);
    Запрос.УстановитьПараметр("НачалоПериода", НачалоДня(НачалоПериода));
    Запрос.УстановитьПараметр("ОкончаниеПериода", Новый Граница(КонецДня(ОкончаниеПериода), ВидГраницы.Включая));
    Запрос.УстановитьПараметр("ДоговорКонтрагента", Договор);

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

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


        Строка = ВзаиморасчетыСКонтрагентамиПоДокументамРасчетов.Добавить();
        Строка.Период                             = КонецДня(Выборка.Период);
        Строка.Регистратор                         = НовДокКоррЗап.Ссылка;
        Строка.ВидДвижения                         = ВидДвиженияНакопления.Расход;
        Строка.Активность                         = Истина;
        Строка.Сделка                             = Выборка.Сделка;
        Строка.ДокументРасчетовСКонтрагентом     = Выборка.ДокументРасчетовСКонтрагентом;
        Строка.ВидРасчетовСКонтрагентом         = Выборка.ВидРасчетовСКонтрагентом;
        Строка.Организация                         = Выборка.Организация;
        Строка.Контрагент                         = Выборка.Контрагент;
        Строка.УпрУчет                             = Выборка.УпрУчет;
        Строка.ДоговорКонтрагента                 = Выборка.ДоговорКонтрагента;
        Строка.СуммаВзаиморасчетов                 = Выборка.СуммаВзаиморасчетовПриход;
        Строка.СуммаРегл                         = Выборка.СуммаРеглПриход;

    КонецЦикла;


    НовДокКоррЗап.Записать();
    Сообщить ("Создан"+ " " + НовДокКоррЗап);


КонецПроцедуры

Процедура ВыбПериодНажатие(Элемент)
    НастройкаПериода = Новый НастройкаПериода;
    НастройкаПериода.РедактироватьКакИнтервал = Истина;
    НастройкаПериода.РедактироватьКакПериод = Истина;
    НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
    НастройкаПериода.УстановитьПериод(НачалоПериода, ?(ОкончаниеПериода='0001-01-01', ОкончаниеПериода, КонецДня(ОкончаниеПериода)));
    Если НастройкаПериода.Редактировать() Тогда
        НачалоПериода = НастройкаПериода.ПолучитьДатуНачала();
        ОкончаниеПериода = НастройкаПериода.ПолучитьДатуОкончания();
    КонецЕсли;
КонецПроцедуры