Перезапись движений документа другим документом

[vitasw]

вполне возможно что его нельзя менять,

Нельзя.

[jonik_joker]

Да. Уже сам проверил - регистратор изменить нельзя.

[LexaK]

э-э-э, народ может я чего не понял, что вы подразумеваете под понятием

Регистратор изменить нельзя!

по любому, работа с регистрами производится через набор записей, и при записи набора они могут либо перетираться либо добавляться с другими ключами(отбором)

вот такой код, по смене регистратора у меня отлично отрабатывает!
получается универсальный код для любого регистра движения.

Код Выделить Развернуть


    //Изменение регистратора

    //получаем ссылку нового регистратора
    лкОперация = Документы.ОперацияБух.НайтиПоНомеру("ЦТ00-000052",ТекущаяДата());
    //сообщить(лкОперация);

    //получаем ссылку старого регистратора
    лкПоступление = Документы.ПоступлениеТоваровУслуг.НайтиПоНомеру("ЦТ00-00000000500",ТекущаяДата());
    //сообщить(лкПоступление);

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

    //чистим проводки у старого регистратора
    лкРег.Очистить();
    лкРег.Записать();

    //записываем проводки с новым регистратором
    лкРег.Загрузить(лкТЗ);
    лкРег.Отбор.Регистратор.Значение = лкОперация;
    лкРег.Записать();



отрываю документ операция и вижу там проводки

[vitasw]

э-э-э, народ может я чего не понял, что вы подразумеваете под понятием
Цитировать

    Регистратор изменить нельзя!

То что вы привели в коде называется копирование движений.
jonik_joker, же предложил тупо заменить регистратор в том смысле, что:

Код Выделить Развернуть

лкРег = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    лкРег.Отбор.Регистратор.Значение = лкПоступление;
    лкРег.Прочитать();
Для Каждого ТекДвижение Из лкРег Цикл
    ТекДвижение.Регистратор=НоваыйРегистратор;!!!
КонецЦикла

Естественно платформа не потерпит такого издевательства.

[jonik_joker]

э-э-э, народ может я чего не понял, что вы подразумеваете под понятием

Регистратор изменить нельзя!

по любому, работа с регистрами производится через набор записей, и при записи набора они могут либо перетираться либо добавляться с другими ключами(отбором)

вот такой код, по смене регистратора у меня отлично отрабатывает!
получается универсальный код для любого регистра движения.

Код Выделить Развернуть


    //Изменение регистратора

    //получаем ссылку нового регистратора
    лкОперация = Документы.ОперацияБух.НайтиПоНомеру("ЦТ00-000052",ТекущаяДата());
    //сообщить(лкОперация);

    //получаем ссылку старого регистратора
    лкПоступление = Документы.ПоступлениеТоваровУслуг.НайтиПоНомеру("ЦТ00-00000000500",ТекущаяДата());
    //сообщить(лкПоступление);

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

    //чистим проводки у старого регистратора
    лкРег.Очистить();
    лкРег.Записать();

    //записываем проводки с новым регистратором
    лкРег.Загрузить(лкТЗ);
    лкРег.Отбор.Регистратор.Значение = лкОперация;
    лкРег.Записать();



отрываю документ операция и вижу там проводки

Огромное Спасибо! LexaK, красавчик, все работает)