Запись проводок в регистр бухгалтерии

Проблема такая. Пишу проводки из документа, после его проведения. Перемещаю ОС с одного субсчета на другой.
Процедура ПослеЗаписи()

    // Вывести в заголовке формы вид операции и статус документа (новый, не проведен, проведен).
    РаботаСДиалогами.УстановитьЗаголовокФормыДокумента(, ЭтотОбъект, ЭтаФорма);
    МеханизмНумерацииОбъектов.ОбновитьПодсказкуКодНомерОбъекта(ЭтотОбъект.Метаданные(), ЭлементыФормы.ДействияФормы.Кнопки.Подменю, ЭлементыФормы.Номер);

    НаборДанных = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    НаборДанных.Отбор.Регистратор.Установить(Ссылка);

    НаборДанных.Прочитать();

      //НаборДанных = РегистрыБухгалтерии.Хозрасчетный;
      //НаборДанных.ВыбратьПоРегистратору(ЭтотОбъект.Ссылка);


    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    ИзменениеСостоянияОСОС.ОсновноеСредство
                   |ИЗ
                   |    Документ.ИзменениеСостоянияОС.ОС КАК ИзменениеСостоянияОСОС
                   |ГДЕ
                   |    ИзменениеСостоянияОСОС.Ссылка = &ПереданнаяСсылкаДокумента";


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

    Запрос.Текст =     "ВЫБРАТЬ
                       |    ХозрасчетныйОстатки.Счет,
                       |    ХозрасчетныйОстатки.Субконто1,
                       |    ХозрасчетныйОстатки.Субконто2,
                       |    ХозрасчетныйОстатки.Субконто3,
                       |    ХозрасчетныйОстатки.Организация,
                       |    ХозрасчетныйОстатки.Валюта,
                       |    ХозрасчетныйОстатки.СуммаОстаток,
                       |    ХозрасчетныйОстатки.СуммаОстатокДт,
                       |    ХозрасчетныйОстатки.СуммаОстатокКт,
                       |    ХозрасчетныйОстатки.СуммаРазвернутыйОстатокДт,
                       |    ХозрасчетныйОстатки.СуммаРазвернутыйОстатокКт,
                       |    ХозрасчетныйОстатки.ВалютнаяСуммаОстаток,
                       |    ХозрасчетныйОстатки.ВалютнаяСуммаОстатокДт,
                       |    ХозрасчетныйОстатки.ВалютнаяСуммаОстатокКт,
                       |    ХозрасчетныйОстатки.ВалютнаяСуммаРазвернутыйОстатокДт,
                       |    ХозрасчетныйОстатки.ВалютнаяСуммаРазвернутыйОстатокКт,
                       |    ХозрасчетныйОстатки.КоличествоОстаток,
                       |    ХозрасчетныйОстатки.КоличествоОстатокДт,
                       |    ХозрасчетныйОстатки.КоличествоОстатокКт,
                       |    ХозрасчетныйОстатки.КоличествоРазвернутыйОстатокДт,
                       |    ХозрасчетныйОстатки.КоличествоРазвернутыйОстатокКт
                       |ИЗ
                       |    РегистрБухгалтерии.Хозрасчетный.Остатки(, Счет = &Счет, , Субконто1 В (&Субконто1)) КАК ХозрасчетныйОстатки";


    Запрос.УстановитьПараметр("Субконто1", МассивОС);
    Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.ОСвОрганизации);

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

    Пока РезультатЗапроса.Следующий() Цикл
                    Проводка = НаборДанных.Добавить();
                    Проводка.Период =    ТекущаяДата();
                    Проводка.Регистратор =    ЭтотОбъект.Ссылка;
                       Проводка.Активность =    Истина;
                       Проводка.СчетДт =    РезультатЗапроса.Счет;
                       Проводка.СубконтоДт.ОсновныеСредства =    РезультатЗапроса.Субконто1;
                       Проводка.СчетКт =    ПланыСчетов.Хозрасчетный.НайтиПоКоду("0103");
                       Проводка.СубконтоКт.ОсновныеСредства =    РезультатЗапроса.Субконто1;
                    Проводка.Сумма = РезультатЗапроса.СуммаОстаток;
                    Проводка.Содержание = "Изменение ОС";
                    Проводка.Организация = РезультатЗапроса.Организация;

    КонецЦикла;
        НаборДанных.Записать(Ложь);

Ошибка -
Ошибка записи! Не установлен отбор по регистратору (Регистр бухгалтерии: Журнал проводок (бухгалтерский учет))

Если пишу
аборДанных.Отбор.Регистратор.Значение = Объект.Ссылка; - также не записывается. Неверный тип регистратора