Есть остаточный регистр "Остатки". Измерения: Товар. Реквизиты: ЦенаБезНДС .

Нужно получить последние цены прихода товара по заданному списку товаров.

Строю запрос:

СписокТоваровДляЗапросаЦен=СоздатьОбъект("СписокЗначений");
ВыгрузитьТабличнуюЧасть(СписокТоваровДляЗапросаЦен,"Товар");
ЗапросЦены=СоздатьОбъект("ODBCRecordSet");
ТекстЗапросаЦены="
|SELECT
|  $Рег.Товар [Товар  $Справочник.Номенклатура]
|, $Рег.ЦенаБезНДС as ЦенаЗакупкиБезНДС
|, CAST(LEFT(Жур.Date_Time_IDDoc,8) as DateTime) as День
|, Жур.IDDocDef as Док_вид
|FROM $Регистр.Остатки as Рег
|LEFT JOIN
|      _1SJourn as Жур
|ON
|      Рег.IDDoc=Жур.IDDoc
|WHERE
|      Жур.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~
|AND
|      Жур.IDDocDef=$ВидДокумента.ПриходнаяНакладная
|AND
|               $Рег.Товар IN (SELECT Val FROM #ГруппаТоваров)
|ORDER BY
|      $Рег.Товар, CAST(LEFT(Жур.Date_Time_IDDoc,8) as DateTime) DESC
|";

ЗапросЦены.УложитьСписокОбъектов(СписокТоваровДляЗапросаЦен, "#ГруппаТоваров","Номенклатура");
     
ЗапросЦены.УстановитьТекстовыйПараметр("НачДата",'01.01.1900');
кущийДокумент()));
тзЦены=ЗапросЦены.ВыполнитьИнструкцию(ТекстЗапросаЦены);

В результате выбираются все цены за всю базу, а потом я ищу в таблице последнее значение.
Все хорошо, беда в том, что база огромная и работает такой запрос очень долго. А можно как-то его оптимизировать и сразу в запросе получать последние значения цен?

alex_gol писал(а) 11. Июня 2007 :: 09:03:

Оптимизировать, конечно, можно.  И гораздо проще и эффективнее это можно будет сделать, если включить отбор движений по измерению Товар.

alex_gol писал(а) 11. Июня 2007 :: 20:01:

Например,

|SELECT
|	$РегОстатки.Товар [Товар $Справочник.Номенклатура]
|	, $РегОстатки.ЦенаБезНДС ЦенаЗакупкиБезНДС
|	, sq.День
|FROM $Регистр.Остатки AS РегОстатки
|	INNER JOIN (SELECT $Рег.Товар Товар
|				, Right(Max(Жур.DATE_TIME_IDDOC), 9) IDDOC
|				, CAST(LEFT(Max(Жур.Date_Time_IDDoc),8) as DateTime) День
|			FROM $Регистр.Остатки AS Рег
|				INNER JOIN _1SJOURN AS Жур ON Рег.IDDOC = Жур.IDDOC
|			WHERE (Жур.DATE_TIME_IDDOC > :НачДата)
|				AND (Жур.DATE_TIME_IDDOC < :КонДата ~)
|				AND (Жур.IDDOCDEF = $ВидДокумента.ПриходнаяНакладная)
|				AND ($Рег.Товар IN (SELECT Val FROM #ГруппаТоваров))
|			GROUP BY $Рег.Товар
|		) sq ON (РегОстатки.IDDOC = sq.IDDOC)
|			AND ($РегОстатки.Товар = sq.Товар)
 

А, может быть, эффективнее будет обратиться к табличной части ПН..

---

alex_gol писал(а) 11. Июня 2007 :: 20:01:

Можно будет выбросить из запроса таблицу _1sjourn и существенно ускорится отбор по товарам.

berezdetsky, имеет ли право на жизнь такое и что лучше? А то я, видимо, в свое время затупил
Это правда для ДБФ:

|SELECT $Цены.Номенклатура AS Ном
	|, $Цены.Цена AS Цена
	|FROM $Регистр.Цены AS Цены
	|WHERE ($Цены.Фирма = :ВыбФирма)
	|AND
	|Цены.IDDOC =
	|(
	|SELECT RIGHT(MAX(DTOS(Журнал.DATE) + Журнал.TIME + Журнал.IDDOC), 9)
	|FROM 1SJOURN AS Журнал
	|INNER JOIN $Регистр.Цены AS Цены1 ON Цены1.IDDOC = Журнал.IDDOC
	|WHERE ($Цены.Номенклатура = $Цены1.Номенклатура)
	|AND ($Цены1.Фирма = $Цены.Фирма)
	|)