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

И?

вобщем есть такая муть. вполне понятно что она не работает.
Вопрос не в том почему она не работает, а в том как написать похожую муть , чтобы она заработала?

если короче то надо сделать

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

или как то так

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

но так чтоб без отбора по конкретному регистратору

да, нельзя.