не копирует субконто по проводкам в ЗаполнитьЗначенияСвойств

1С v8

09.06.12

✎

07:14

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

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

1 vicof

09.06.12

✎

07:50

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

2 DrShad

09.06.12

✎

07:55

(1) +1

3 SanGvin

09.06.12

✎

08:05

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

4 DrShad

09.06.12

✎

08:08

(3) не угадал

5 SanGvin

09.06.12

✎

08:09

работает

6 SanGvin

09.06.12

✎

08:09

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

7 SanGvin

09.06.12

✎

08:09

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

8 maxamaxa

09.06.12

✎

08:33

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