ВыборкаПроводок = РегистрыБухгалтерии.Хозрасчетный.Выбрать();
Пока ВыборкаПроводок.Следующий() Цикл
Для Каждого Субконто Из ВыборкаПроводок.СубконтоДт Цикл
Если (Субконто.Ключ.ТипЗначения.Типы().Количество()=1) И (Субконто.Значение = Неопределено) Тогда
ВыборкаПроводок.СубконтоДт.Вставить(Субконто.Ключ, ОбщегоНазначения.ПустоеЗначениеТипа(Субконто.Ключ.ТипЗначения.Типы()[0]));
КонецЕсли;
КонецЦикла;
вобщем есть такая муть. вполне понятно что она не работает.
Вопрос не в том почему она не работает, а в том как написать похожую муть , чтобы она заработала?
Движения = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Движения.Прочитать();
Для каждого Движение Из Движения Цикл
Движение.СубконтоДт.Вставить(Субконто.Ключ, Неопределено);
КонецЦикла;
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший