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

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

Сочувствую...

(1) +1

ДвижениеДубль = движение;
Не ?

(3) не угадал

работает

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

только непонятно нафига это автору надо

в том то и дело, что
                   ДвижениеДубль = движение;
не работает. Субконто пустые.
А надо для отдельного баланса по куче фирм собиралось на третью фирму, выборочно в момент проведения.