Код

Для инд=0 по ДатаЧисло(КонМесяца(ДатаДок)-1) Цикл
  ТДата = НачМесяца(ДатаДок)+инд;
  RS.УдалитьПараметры();
  RS.УстановитьТекстовыйПараметр("ТекДата",ТДата);
  RS.УложитьСписокОбъектов(СписокТТ, "#ГруппаТТ", "МестаХранения");
  ТекФильтр="Склад IN (SELECT Val FROM #ГруппаТТ)";
  // получение остатков и цен
  ТекстЗапроса = "
  |SELECT
  | Ост.Товар as Товар,
  | Ост.ТТ as ТТ,
  | Ост.Количество as Количество,
  | ТоргТ.descr as ИмяТТ,
  | $ТоргТ.Фирма as [ТК $Справочник.Фирмы],
  | $ПоследнееЗначение.Цены.Цена(Цена.ID, :ТекДата~) as РознЦена
  |FROM
  | (SELECT
  | РегОст.Товар as Товар,
  | РегОст.Склад as ТТ,
  | РегОст.КоличествоОстаток as Количество
  |FROM
  |	$РегистрОстатки.Товар(:ТекДата~,, "+ТекФильтр+", (Товар, Склад), Количество) as РегОст
  | ) as Оcт
  |INNER JOIN
  |	$Справочник.МестаХранения (nolock) AS ТоргТ
  |		ON ТоргТ.ID = Ост.ТТ
  |INNER JOIN
  |	$Справочник.Фирмы (nolock) AS tk
  |		ON $ТоргТ.Фирма = tk.ID
  |INNER JOIN
  |	$Справочник.Цены AS Цена (NOLOCK)
  |	   On Цена.PARENTEXT = Ост.Товар AND
  |			$Цена.ТипЦен = $tk.КатегорииЦен
  |order by ТоргТ.descr
  |";