Результат запроса

&НаСервере
Функция ОбновитьДанныеНаСервере()
	
	Док = МойДокумент;
	ТабЧасть = Док.Товары;
		
	Для Каждого Строка Из ТабЧасть Цикл
	
	Номенклатура = Строка.Номенклатура;
	
	ОприходТов = ОприходТоваров;
	ТЗОприходТов = ОприходТов;
	ТабЧастьОприходТов = ТЗОприходТов.Товары;
	//ТабЧастьОприходТов.Очистить();		
	ТекущаяСтрока = ТабЧастьОприходТов.Добавить();
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Дата",МойДокумент.Дата);
	Запрос.УстановитьПараметр("Номенклатура",Номенклатура);
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ХозрасчетныйОстатки.КоличествоОстатокДт КАК Остаток,
	|	ХозрасчетныйОстатки.Субконто1 КАК Номенклатура,
	|	ХозрасчетныйОстатки.Счет КАК Счет
	|ИЗ
	|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, Счет В (&СписокСчетов), , Субконто1 = &Номенклатура) КАК ХозрасчетныйОстатки
	|
	|СГРУППИРОВАТЬ ПО
	|	ХозрасчетныйОстатки.КоличествоОстатокДт,
	|	ХозрасчетныйОстатки.Субконто1,
	|	ХозрасчетныйОстатки.Счет";
	
	
	Список = Новый Массив;
	Список.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.07"));
	Список.Добавить(ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.01"));
	
	Запрос.УстановитьПараметр("СписокСчетов",Список);
	
	РезультатЗапроса = Запрос.Выполнить().Выбрать();   
	
	Пока РезультатЗапроса.Следующий() Цикл
		
			ТекущаяСтрока.Номенклатура = Номенклатура;
			ТекущаяСтрока.Количество = РезультатЗапроса.Остаток;
			ТекущаяСтрока.СчетУчета = РезультатЗапроса.Счет; 
	
						
	КонецЦикла;
	
КонецЦикла;

	ТабЧасть .Записать(РежимЗаписиДокумента.Проведение);   
	
	
КонецФункции