остатки по субконто Контргенты, по каждому контрагенту

   Сч10 = СчетПоКоду("10");

  БухИт.ИспользоватьСубконто("Материалы", СписокТМЦ);

  БухИт.ВключатьСубсчета(-1);

  

  БухИт.ВыполнитьЗапрос(ДатаДок,ДатаДок,Сч10);

  БухИт.ВыбратьСубконто(1);

  Пока БухИт.ПолучитьСубконто(1)=1 Цикл	

    ЦенаТМЦ = БухИт.Субконто(1).Цена;

    Если (ЦенаТМЦ = 0) и (БухИт.СКД("К")  <> 0) Тогда				

      ЦенаТМЦ = БухИт.СКД("С") / БухИт.СКД("К");	

    КонецЕсли;

      ТЗ.НоваяСтрока();

      ТЗ.Код = БухИт.Субконто(1).Код;

      ТЗ.Материал = БухИт.Субконто(1);

      ТЗ.ЕдИзм = БухИт.Субконто(1).ЕдиницаИзмерения;

      ТЗ.Цена = ЦенаТМЦ;

      ТЗ.КолЕсть = БухИт.СКД("К");				

      ТЗ.СуммаЕсть = БухИт.СКД("С");

  КонецЦикла;