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