Создается пустая операция при перегрузке!

Функция     ПерегрузитьВОперацию000(Док7,Перезаписывать)
    Док8 = БазаОле.Документы.ОперацияБух;

    Если Док7.Вид() = "ПередачаПрав" Тогда
        Номер8 =  СоздатьНомер8(Док7.НомерДок,6,"ПП-");
    Иначе
        Номер8 =  СоздатьНомер8(Док7.НомерДок,6,"ОО-");
        Сообщить("Другой вид "+ Док7.Вид());
    КонецЕсли;

    ТекДок = Док8.НайтиПоНомеру(Номер8,Док7.ДатаДок);
    Если СокрЛП(ТекДок.Номер) = "" Тогда
        Док8        =  БазаОле.Документы.ОперацияБух.СоздатьДокумент();
        Док8.Номер  =  Номер8;
        Док8.Дата        = Док7.ДатаДок;
    Иначе
        Док8 = ТекДок.ПолучитьОбъект();
    КонецЕсли;
    Движение = Док8.Движения.Хозрасчетный;
    Движение.Очистить();

    Док8.Организация = БазаОле.Справочники.Организации.ОрганизацияПоУмолчанию();
    Док8.Комментарий = ""+Док7.Комментарий+ "# Перенесено из 1С:Бухгалтерии 7.7 # Передача прав"+Док7.НомерДок+" от "+ Док7.ДатаДок +"#";
    Движение.Записывать = 1;
    //Док8.Записать();

    РегРасчеты          = СоздатьОбъект("Регистр.РасчетыСПоставщиками");
    РегРасчеты.ВыбратьДвиженияДокумента(Док7);
    //КолСтрок =    РегРасчеты.КоличествоСтрок()/2;
    //Для  ии =1  по КолСтрок Цикл
    НомСтроки = 0;
    Пока РегРасчеты.ПолучитьДвижение()=1 Цикл
        Если РегРасчеты.НомерСтроки()<> НомСтроки Тогда
            СтрБух = Движение.Добавить();
            СтрБух.Организация = БазаОле.Справочники.Организации.ОрганизацияПоУмолчанию();
            СтрБух.Период = Док7.ДатаДок;
            СтрБух.ПодразделениеДт = БазаОле.Справочники.ПодразделенияОрганизаций.НайтиПоНаименованию("Основное подразделение");
            СтрБух.ПодразделениеКт = БазаОле.Справочники.ПодразделенияОрганизаций.НайтиПоНаименованию("Основное подразделение");
            СтрБух.СчетДт =         БазаОле.ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками;
            СтрБух.СчетКт =         БазаОле.ПланыСчетов.Хозрасчетный.РасчетыСПоставщиками;
            СтрБух.СуммаНУДт =  РегРасчеты.Долг;
            СтрБух.СуммаНУКт =  РегРасчеты.Долг;
            СтрБух.Сумма =  РегРасчеты.Долг;
            Сумма = Сумма+  СтрБух.Сумма;
            НомСтроки =  РегРасчеты.НомерСтроки();
        КонецЕсли;

        //РегРасчеты.ПолучитьДвижение();
        Если РегРасчеты.Приход = 1 Тогда
            ТекСумма = РегРасчеты.Долг;

            КонтрЭлД =  БазаОле.Справочники.Контрагенты.НайтиПоКоду(РегРасчеты.Контрагент.Код);
            Если СокрЛП(КонтрЭлД.Код) = ""  Тогда
                КонтрЭлД     = СоздатьИЗаполнитьКонтрагента(РегРасчеты.Контрагент);
            КонецЕсли;
            ДоговорЭлД       = БазаОле.Справочники.ДоговорыКонтрагентов.НайтиПоКоду(РегРасчеты.Договор.Код);
            Если СокрЛП(ДоговорЭлД.Код) = ""  Тогда
                ДоговорЭлД   = СоздатьИЗаполнитьДоговор(РегРасчеты.Договор,КонтрЭлД,БазаОле.Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком);
            КонецЕсли;
            СтрБух.СубконтоДт.Контрагенты = КонтрЭлД.Ссылка;
            СтрБух.СубконтоДт.Договоры = ДоговорЭлД.Ссылка;
            Если РегРасчеты.РасчДокумент.ТекущийДокумент() = Док7.ТекущийДокумент() Тогда
                СтрБух.СубконтоДт.ДокументыРасчетовСКонтрагентами  = Док8.Ссылка;
            Иначе
                СтрБух.СубконтоДт.ДокументыРасчетовСКонтрагентами  = НайтиСоздатьДокументПоступления(РегРасчеты.РасчДокумент,КонтрЭлД,ДоговорЭлД);
            КонецЕсли;
        Иначе

            КонтрЭлК =  БазаОле.Справочники.Контрагенты.НайтиПоКоду(РегРасчеты.Контрагент.Код);
            Если СокрЛП(КонтрЭлК.Код) = ""  Тогда
                КонтрЭлК     = СоздатьИЗаполнитьКонтрагента(РегРасчеты.Контрагент);
            КонецЕсли;
            ДоговорЭлК       = БазаОле.Справочники.ДоговорыКонтрагентов.НайтиПоКоду(РегРасчеты.Договор.Код);
            Если СокрЛП(ДоговорЭлК.Код) = ""  Тогда
                ДоговорЭлК   = СоздатьИЗаполнитьДоговор(РегРасчеты.Договор,КонтрЭлК,БазаОле.Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком);
            КонецЕсли;
            СтрБух.СубконтоКт.Контрагенты = КонтрЭлК.Ссылка;
            СтрБух.СубконтоКт.Договоры = ДоговорЭлК.Ссылка;
            Если РегРасчеты.РасчДокумент.ТекущийДокумент() = Док7.ТекущийДокумент() Тогда
                СтрБух.СубконтоКт.ДокументыРасчетовСКонтрагентами  = Док8.Ссылка;
            Иначе
                СтрБух.СубконтоКт.ДокументыРасчетовСКонтрагентами  = НайтиСоздатьДокументПоступления(РегРасчеты.РасчДокумент,КонтрЭлК,ДоговорЭлК);
            КонецЕсли;
        КонецЕсли;
        //Если    ТекСумма <> РегРасчеты.Долг Тогда
        //    Сообщить("Безобразие "+РегРасчеты.Долг+" ном. "+РегРасчеты.НомерСтроки);
        //Иначе
        //КонецЕсли;

    КонецЦикла;
    Док8.СуммаОперации = Сумма;
    ЗапросОбъект = БазаОле.NewObject("Запрос");
    ТекстЗапроса = "
    |ВЫБРАТЬ
    | Истина Как Загрузка";
    ЗапросОбъект.Текст = ТекстЗапроса;
    Выборка = ЗапросОбъект.Выполнить().Выбрать();
    Выборка.Следующий();

    //Док8 = БазаОле.Документы.Док.СоздатьДокумент();
    БазаОле.ЗаполнитьЗначенияСвойств(Док8.ОбменДанными, Выборка);
    //Док8.ОбменДанными.Загрузка = 1;
    Док8.Записать();
    Возврат(Док8);
КонецФункции