Имя: Пароль:
1C
1С v8
Запись в РегистрБухгалтерии
0 CTmuB
 
01.06.12
16:03
ВыборкаПроводок = РегистрыБухгалтерии.Хозрасчетный.Выбрать();
Пока ВыборкаПроводок.Следующий() Цикл
Для Каждого Субконто Из ВыборкаПроводок.СубконтоДт Цикл
 Если (Субконто.Ключ.ТипЗначения.Типы().Количество()=1) И (Субконто.Значение = Неопределено) Тогда    
                   ВыборкаПроводок.СубконтоДт.Вставить(Субконто.Ключ,   ОбщегоНазначения.ПустоеЗначениеТипа(Субконто.Ключ.ТипЗначения.Типы()[0]));
КонецЕсли;
КонецЦикла;
1 salvator
 
01.06.12
16:04
И?
2 CTmuB
 
01.06.12
16:04
вобщем есть такая муть. вполне понятно что она не работает.
Вопрос не в том почему она не работает, а в том как написать похожую муть , чтобы она заработала?
3 CTmuB
 
01.06.12
16:08
если короче то надо сделать

ВыборкаПроводок.СубконтоДт.Вставить(Субконто.Ключ, Неопределено)
4 CTmuB
 
01.06.12
17:48
или как то так

Движения = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Движения.Прочитать();
Для каждого Движение Из Движения Цикл
Движение.СубконтоДт.Вставить(Субконто.Ключ, Неопределено);    
КонецЦикла;
5 CTmuB
 
01.06.12
17:48
но так чтоб без отбора по конкретному регистратору
6 Живой Ископаемый
 
01.06.12
18:46
да, нельзя.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший