Она работает, но заполняет ток по одной строке не проходит цикл с перебором всех строк таблицыТабРезультат
Помогите исправить ошибку.. За ранее благодарен Вам..

Процедура КнопкаВыполнитьНажатиеУст ановитьЦеныПоСебестоимост иПартияСписания(Элемент)
Перем цена , количество;
Если Товары.Количество() = 0 Тогда
Возврат;
КонецЕсли;

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ХозрасчетныйДвиженияССубк онто.Регистратор,
| ХозрасчетныйДвиженияССубк онто.СчетДт,
| ХозрасчетныйДвиженияССубк онто.СчетКт,
| ХозрасчетныйДвиженияССубк онто.Сумма,
| ХозрасчетныйДвиженияССубк онто.КоличествоКт
|ИЗ
| РегистрБухгалтерии.Хозрас� �етный.ДвиженияССубконто(, , Регистратор = &Ссылка, , ) КАК ХозрасчетныйДвиженияССубк онто
|ГДЕ
| ХозрасчетныйДвиженияССубк онто.СчетДт = &Счет90021
| И ХозрасчетныйДвиженияССубк онто.СчетКт = &Счет4101
|
|СГРУППИРОВАТЬ ПО
| ХозрасчетныйДвиженияССубк онто.Регистратор,
| ХозрасчетныйДвиженияССубк онто.СчетДт,
| ХозрасчетныйДвиженияССубк онто.СчетКт,
| ХозрасчетныйДвиженияССубк онто.Сумма,
| ХозрасчетныйДвиженияССубк онто.КоличествоКт";

Запрос.УстановитьПараметр( "Ссылка",ДокументОбъект.Ссы лка);
Запрос.УстановитьПараметр( "Счет90021",ПланыСчетов.Хозра� �четный.СебестоимостьПрода жНеЕНВД);
Запрос.УстановитьПараметр( "Счет4101",ПланыСчетов.Хозрас четный.ТоварыНаСкладах.Ссы лка);
ТабРезультат = Запрос.Выполнить().Выгрузит ь();

Количество =0 ;
Цена = 0;
Для Каждого СтрокаТаб Из Товары Цикл



Количество =ТабРезультат.Получить(0).Ко личествоКт;
Цена = ТабРезультат.Получить(0).Су� �ма;
СтрокаТаб.Цена = (Цена/Количество)*1.18;
СтрокаТаб.Сумма = СтрокаТаб.Цена * СтрокаТаб.Количество;
РассчитатьСуммуНДСТабЧаст и(СтрокаТаб, ДокументОбъект);

КонецЦикла;


КонецПроцедуры // КнопкаВыполнитьНажатиеУст ановитьЦеныПоСебестоимост иПартияСписания()