|
не копирует субконто по проводкам в ЗаполнитьЗначенияСвойств
| ☑ |
0
maxamaxa
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
|
в том то и дело, что
ДвижениеДубль = движение;
не работает. Субконто пустые.
А надо для отдельного баланса по куче фирм собиралось на третью фирму, выборочно в момент проведения.
|
|