Каталог решений - [ОБУЧАЛОВКА] Прямые запросы: практические примеры разработки

Осваиваю прямые запросы, многие Учителя помогают, за что им спасибо… Выкладываю примерчик запроса, возвращающего для номенклатуры цену определенного типа для определенной даты…
.

Описание задачи: в типовой конфигурации ТиС во многих местах встречается код по типу: 
.
СпрНоменклатура.ВыбратьЭлементы();
Пока СпрНоменклатура.ПолучитьЭлемент()=1
Цикл
//пропускаем группы
//пропускаем удаленные

НайденнаяЦена = «»;
ЦенаЦены = 0;

Если глВернутьЦену(СпрНоменклатура.ТекущийЭлемент(),ТипЦены, ДатаЦены,ЦенаЦены,,,,НайденнаяЦена)<>0
Тогда

.
где НайденнаяЦена — ссылка на элемент справочника «Цены»
Данный код, даже если обход справочника делается не выборкой, а по результатм чорного (штатного запроса) — достаточно тяжелый (для этого надо посмотреть в код процедуры глВернутьЦену() — плохо это или хорошо — судить не будем, это — плата за универсальность…).

Совершенно четко понятно, что эффективность достигается за счет специализации, пойдем и мы по этому непростому и опасному пути. Оформим в качестве законченного участка кода решение следующей задачи: получить список номенклатуры с ценами для указанного типа цены на указанную дату.. По-человечески это звучит так, например: список товаров с закупочной ценой на сегодняшний день. Эффективный код (по сравнению с типовым вариантом) выглядит так:
.

RS = СоздатьОбъект(«ODBCRecordSet»);
RS.Отладка(0);

ТекстЗапроса = «
|SELECT
|—TOP 100
| СпрНоменклатура.ID AS [Номенклатура $Справочник.Номенклатура]
| , ISNULL(СпрЦены.ID,$ПустойИД) AS [НайденнаяЦена $Справочник.Цены]
| , ISNULL($ПоследнееЗначение.Цены.Цена(СпрЦены.ID, :ДатаЦен),0) AS ЦенаЦены
|FROM $Справочник.Номенклатура AS СпрНоменклатура With (NOLOCK)
|—
|LEFT JOIN
| $Справочник.Цены AS СпрЦены With (NOLOCK)
| ON (СпрЦены.ParentExt = СпрНоменклатура.ID)
| AND ($СпрЦены.ТипЦен = :ТипНужнойЦены)
|—
|WHERE (СпрНоменклатура.ISMARK = 0)
| AND ($СпрНоменклатура.НеВключатьВпрайс = 0)
| AND (СпрНоменклатура.ISFOLDER = 2)
|»;

RS.УстановитьТекстовыйПараметр(«ТипНужнойЦены» ,ТипНужнойЦены);
RS.УстановитьТекстовыйПараметр(«ДатаЦен» ,ДатаЦен);

ТЗвыборка = СоздатьОбъект(«ТаблицаЗначений»);
ТЗвыборка = RS.ВыполнитьИнструкцию(ТекстЗапроса);
RS = «»;
.
В результате имеем: таблицу значений, в которой содержатся следующие колонки:
«Номенклатура» — ссылка на элемент Справочник.Номенклатура (товар);
«НайденнаяЦена» — ссылка на элемент Справочник.Цены (например, для записи потом нового значения цены) ;
«ЦенаЗначение» — цена (конкретное число, цена товара)
.
Далее вышеприведенный «штатный» код заменяем на выборку по таблице значений:
.
ТЗВыборка.ВыбратьСтроки();
Пока ТЗВыборка.ПолучитСтроку()=1
Цикл
  Номенклатура = ТЗВыборка.Номенклатура;
  НайденнаяЦена = ТЗвыборка.НайденнаяЦена;
  ЦенаЦены = ТЗвыборка.ЦенаЦены;
.

Входные параметры: в переменной ТипНужнойЦены — ссылка на элемент справочника «ТипыЦен», ДатаЦен — дата получения периодического значения цены.

Из результата исключаются: группы номенклатуры, помеченные на удаление, не включаемые в прайс. Если для номенклатуры отсутствует нужный тип цен в ТЗВыборка.НайденнаяЦена — пустая ссылка.

Для работоспособности данного кода требуется загруженная ВК 1Сpp.dll (последнюю версию можно брать здесь: http://www.1cpp.ru/index.php/File:Icpp-latest.rar) и работа базы в SQL-варианте (не DBF).

Идеал специалиста широкого профиля — знает все о ниочем…

Отдельное спасибо Учителям:  leshikkam, berezdetsky, Ёпрст — за пинание меня в правильном направлении и терпеливое отношение к моим тормозам… А также и всем остальным (в основном с mista)