"&Проблема при записи ручной операции...."

"&Проблема при записи ручной операции,операции создал программно,все внеслось и все так как надо,но не записывается,я разобрался и вышла другая ошибка,дело в том что,СчетДт нужно выбрать заново(перед записью нужно в поле СчетДт выбрать заново этот же счет тока в ручную),уже в записи тогда ошибок нет,но количество строк большое,как решить проблемму не перебираю все в ручную?"

Видимо, программно Вы все же неверно определяете вид субконто. Без кода не понятно, как  Вы создаете операции.

Это при добавлении второго СубконтоДт,первое СубконтоДт записано нормально,а вот со вторым проблема,
НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства]=Справочники.ОсновныеСредства.НайтиПоНаименованию(СокрЛП(ОснСр)).Ссылка
Если ее нет то записывает,а если есть то выдает ошибку =(

"Док = Документы.ОперацияБух.СоздатьДокумент();
Док.Дата = ДатаВвода;
Док.Организация = Организация;
Док.СпособЗаполнения = "Вручную";
Док.Комментарий = "Перенос остатков с 1С 7.7";

Счетчик = 0;
//РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
//РегХозрасчетный.Отбор.Регистратор.Значение = Док.Ссылка;
Пока БД.Следующая() Цикл

Счетчик = Счетчик + 1;
//НоваяСтрока = РегХозрасчетный.Добавить();
НоваяСтрока = Док.Движения.Хозрасчетный.Добавить();
НоваяСтрока.Период = ДатаВвода;
НоваяСтрока.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыПоВыделенномуИмуществу.Ссылка;
НоваяСтрока.СчетКт = ПланыСчетов.Хозрасчетный.Вспомогательный.Ссылка;

НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОбособленныеПодразделения] = Справочники.Организации.НайтиПоНаименованию(Организация).Ссылка;
ПровСуб = ПроверкаСубконто(СокрЛП(БД.SUB2));
Если СокрЛП(ПровСуб) = "О" Тогда
НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ОсновныеСредства] = Справочники.ОсновныеСредства.НайтиПоНаименованию(СокрЛП(БД.SUB2)).Ссылка;
Иначе
НоваяСтрока.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(БД.SUB2)).Ссылка;
КонецЕсли;

Если Число(БД.SND) = 0 И Число(БД.SKD) = 0 Тогда
НоваяСтрока.Сумма = БД.SNK;
ИначеЕсли Число(БД.SKK) = 0 И Число(БД.SNK) = 0 Тогда
НоваяСтрока.Сумма = БД.SND;
КонецЕсли;
КонецЦикла;
Док.ПолучитьФорму("ФормаДокумента").ОткрытьМодально();
Док.Записать();
Предупреждение("Данные Загруженны!",10);"

Честно говоря, нет под рукою "Бухгалтерии", а Вы уверены, что для 79 счета определен учет по виду субконто "Номенклатура"?

Да там неколько субконто,основные средства или номенклатура....

Все решил,спасибо!