срочно нужна помощь. простой расчет себестоимости по средней.

[Tanya Vasyanovich]

Здравствуйте!Срочно нужна помощь в решении задачи.
При проведении документа «Реализация», делать движения минусом с регистров «Товары на складах» и «Себестоимость товара».
С регистра «Себестоимость» при списании рассчитать сумму списания следюующим образом:
- Взять остатки из регистра по товару на момент времени документа. Стоимость единицы товара = Сумма остатка / Количество остатка.
- Сумма списания с регистра «Себестоимость товара» = Количество реализации * Стоимость единицы товара (расчет называется «Списание по среднему»).

Вот начало кода... не знаю как обработать запрос дальше

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