В БГУ надо переместить ОС со счета на счет.

Например с 101.24 на 101.34.

Соотвественно переместить амортизацию с 104.24 на 104.34.

Соответсвенно в регистрах поменять счета учета и счета начисления амортизации.

Каким документом это лучше сделать.

Или хотя бы, чтобы документ сделал основные движения, а потом поправить немного регистры?

ап

апап

ручной операцией:
по переносу балансовой стоимости:
Д-т 0.101.34.310, К-т 0.101.24.310,
по переносу амортизации:
Д-т 0.104.24.410, К-т 0.104.34.410

(3) Это понятно, мне бы что-нибудь такое автоматическое.

Можно еще документом "перенос остатков по счетам ОС"

после заполнения документа. меняешь в строках "Вид имущества"
с  "Особо ценное движимое имущество" на "Иное движимое имущество"

(4) Обработку напиши :)

(6) Уже пишу.

(5) Ага хорошая штука, спасибо.

Может кому понадобится перемещение ОС через счет 304.06


Процедура КнопкаВыполнитьНажатие(Кнопка)
    // Вставить содержимое обработчика.
    
    //Перемещение ОС через 304.06
    
    // РегистраторДок    ДокументСсылка.ИзменениеКФО_ОС
    
    // ЖурналКт30406    СправочникСсылка.Журналы
    // КОСГУДт30406     СправочникСсылка.КОСГУ
    // КОСГУКт30406     СправочникСсылка.КОСГУ
    
    НаборЗап=РегистрыБухгалтерии.ЕПСБУ.СоздатьНаборЗаписей();
    
    НаборЗап.Отбор.Регистратор.Значение=РегистраторДок.Ссылка;
    НаборЗап.Отбор.Регистратор.Использование=Истина;
    
    НаборЗап.Прочитать();
    МассивСтрок=Новый Массив();
    
    
    Для Каждого СтрЗап Из НаборЗап Цикл
        МассивСтрок.Добавить(СтрЗап);
    КонецЦикла;
    
    Для Каждого СтрМасс Из МассивСтрок Цикл
        Если ((Найти(СтрМасс.Содержание,"балан")<>0) или (Найти(СтрМасс.Содержание,"аморт")<>0)) Тогда
            НовСтрЗап=НаборЗап.Вставить(СтрМасс.НомерСтроки*2-1);
            ЗаполнитьЗначенияСвойств(НовСтрЗап, СтрМасс);
                                              
            Для каждого ТекСубконто Из СтрМасс.СубконтоДт Цикл
                НовСтрЗап.СубконтоДт[ТекСубконто.Ключ] = ТекСубконто.Значение;
            КонецЦикла;

            Для каждого ТекСубконто Из СтрМасс.СубконтоКт Цикл
                НовСтрЗап.СубконтоКт[ТекСубконто.Ключ] = ТекСубконто.Значение;
            КонецЦикла;

               Если Найти(СтрМасс.Содержание,"балан")<>0 ТОгда
                    СтрМасс.СчетДт=ПланыСчетов.ЕПСБУ.РасчетыСПрочимиКредиторами;
                    СтрМасс.СубконтоДт.Очистить();
                    СтрМасс.СубконтоДт.КОСГУ=КОСГУДт30406.Ссылка;
                    СтрМасс.КоличествоДт=0;

                    НовСтрЗап.СчетКт=ПланыСчетов.ЕПСБУ.РасчетыСПрочимиКредиторами;
                    НовСтрЗап.СубконтоКт.Очистить();
                    НовСтрЗап.СубконтоКт.КОСГУ=КОСГУКт30406.Ссылка;
                    НовСтрЗап.КоличествоКт=0;
                    
                    //НовСтрЗап.СчетДт=СчетПриемник.Ссылка;
                    НовСтрЗап.Содержание="!!!Перенос 101";
                    НовСтрЗап.НомерЖурнала=ЖурналКт30406.Ссылка;
                КонецЕсли;
                
                Если Найти(СтрМасс.Содержание,"аморт")<>0 ТОгда
                    СтрМасс.СчетКт=ПланыСчетов.ЕПСБУ.РасчетыСПрочимиКредиторами;
                    СтрМасс.СубконтоКт.Очистить();
                    СтрМасс.СубконтоКт.КОСГУ=КОСГУКт30406.Ссылка;
                    
                    НовСтрЗап.СчетДт=ПланыСчетов.ЕПСБУ.РасчетыСПрочимиКредиторами;
                    НовСтрЗап.СубконтоДт.Очистить();
                    НовСтрЗап.СубконтоДт.КОСГУ=КОСГУДт30406.Ссылка;
                    
                //    НовСтрЗап.СчетКт=СчетПриемникАмортизации.Ссылка;
                    НовСтрЗап.Содержание="!!!Перенос 104";
                    СтрМасс.НомерЖурнала=ЖурналКт30406.Ссылка;
                КонецЕсли;
         КонецЕсли;
    КонецЦикла;

    
    НаборЗап.Записать();
    
    
    
КонецПроцедуры

я через 401 переношу. а что, 101.24 - 101.34 - корректная проводка?

(10) Да. Обратная точно корректна. на ИТС именно так рекомендуют ОС в особоценное переводить.