Код

	ОлеДБ = СоздатьОбъект("OLEDBData");
	Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
	Рез = ОлеДБ.Соединение(Соединение);
	Запрос = ОлеДБ.СоздатьКоманду();
	Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");
	Запрос.Выполнить("EXECSCRIPT('SET REPROCESS TO 60 SECONDS')");
	Запрос.Выполнить("EXECSCRIPT('SET REFRESH TO 0,-1')");
	Запрос.Выполнить("Exec('SET TABLEVALIDATE TO 0')");
	Запрос = ОлеДБ.СоздатьКоманду();

	ТекстЗапроса = "
		|   SELECT
		|		 $ИтогиПартии.Товар as [Номенклатура $Справочник.Номенклатура],
	  |		   SUM($ИтогиПартии.ОстатокТовара) AS ОстатокТовара,
	    |	     SUM($ИтогиПартии.Стоимость) AS Стоимость,
	    |				SUM($ИтогиПартии.НДС) AS НДС
		|	FROM
		|		$РегистрИтоги.ПартииТоваров ИтогиПартии
		|	WHERE
		|		DTOS(ИтогиПартии.period)+$ИтогиПартии.Товар --надеюсь, на товар есть галка отбор итогов
		|		LIKE  (DTOS(:НачПериод~~)+'_________')
		|	and $ИтогиПартии.Товар in
		|    (select СпрНоменклатура.id from  $Справочник.Номенклатура AS СпрНоменклатура
		|     where
     	|		   СпрНоменклатура.IsFolder = 2 AND СпрНоменклатура.IsMark = ''
	  |	    and $СпрНоменклатура.КодАналогов in ( SELECT $СпрАналоги.КодАналогов FROM $Справочник.Аналоги AS СпрАналоги
		|	     where СпрАналоги.IsMark = '' AND LOWER($СпрАналоги.Артикул) = :Артикул))
		|";
    Запрос.УстановитьТекстовыйПараметр("Артикул", СтрокаПоиска);
	мд = СоздатьОбъект("MetaDataWork");
	уТА()));
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса); 

Код

	|LEFT JOIN $Справочник.Номенклатура AS СпрН
	|		ON (UPPER(СпрН.sp3163)+UPPER(СпрН.descr)
	|			LIKE _________________________________________'))
	|		   AND (СпрН.IsFolder = 2)
	|		   AND (СпрН.IsMark = '')
 

Код

	|LEFT JOIN $Справочник.Номенклатура AS СпрН
	|		ON (STR(СпрН.sp3163,15)+STR(СпрН.descr,100)
	|			LIKE __________________________________________'))

 

Код

	|LEFT JOIN $Справочник.Номенклатура AS СпрН
	|		ON (UPPER(СпрН.sp3163)+UPPER(СпрН.descr)
	|			LIKE _________________________________________'))

 

Код

	ТекстЗапроса = "
	|SELECT
	|	DISTINCT $СпрАналоги.КодАналогов                      AS КодАналогов,
	|	СпрН.ID                                               AS [Ссылка $Справочник.Номенклатура],
	|	СпрН.descr                                            AS Наименование,
	|	ИтогиПартииТоваров.ИтОстаток                          AS Остаток,
	|	CAST(ИтогиПартииТоваров.ИтСтоимость AS NUMERIC(15,2)) AS Стоимость,
	|	CAST(ИтогиПартииТоваров.ИтНДС AS NUMERIC(15,2))       AS НДС
	|FROM
	|	$Справочник.Аналоги AS СпрАналоги
	|LEFT JOIN 	$Справочник.Номенклатура AS СпрН
	|		ON СпрН.parentid+STR(СпрН.IsFolder,1)+UPPER(СпрН.sp3163)+UPPER(СпрН.descr)
	|			LIKE _______________________________________________________________')
	|		   AND (СпрН.IsMark = '')
	//|		ON (UPPER(СпрН.sp3163)+UPPER(СпрН.descr))
	//|			LIKE _______________________________________________')
	//|		   AND (СпрН.IsFolder = 2)
	//|		   AND (СпрН.IsMark = '')
	|LEFT JOIN (
	|           SELECT
	|				ИтогиПартии.SP279 AS ТоварID,
	|				SUM(ИтогиПартии.SP285) AS ИтОстаток,
	|				SUM(ИтогиПартии.SP286) AS ИтСтоимость,
	|				SUM(ИтогиПартии.SP288) AS ИтНДС
	|			FROM
	|				$РегистрИтоги.ПартииТоваров AS ИтогиПартии
	|			WHERE
	|				DTOS(ИтогиПартии.period)+$ИтогиПартии.Товар
	|				LIKE  (DTOS(:НачПериод~~)+'_________')
	|           GROUP BY
	|				ИтогиПартии.SP279
	|			) AS ИтогиПартииТоваров
	|			ON ИтогиПартииТоваров.ТоварID = СпрН.ID
	|WHERE
	|	UPPER(СпрАналоги.sp3058)+UPPER(СпрАналоги.code)
	|	LIKE (:Артикул+'__________')
	|	AND СпрАналоги.IsMark = ''
	|";                                                              

	вр1 = _GetPerformanceCounter();
	База = СоздатьОбъект("OLEDBData");
	Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
	Рез = База.Соединение(Соединение);
    Если Рез=0 Тогда
        Сообщить("Подключение к БД не выполнено!", "!");
    КонецЕсли;
    

	Запрос = База.СоздатьКоманду();
    Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");

    Запрос = База.СоздатьКоманду();
	Запрос.Отладка(1);
	Запрос.УстановитьТекстовыйПараметр("Артикул", ВРЕГ(СтрокаПоиска));
	мд = СоздатьОбъект("MetaDataWork");
	уТА()));
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
	Запрос.Закрыть();
    Запрос = 0;
    База.Закрыть();
    База = 0;
    вр2 = _GetPerformanceCounter();
    Сообщить("Время " + Строка(вр2 - вр1) + "мск.");
 

Код

	ТекстЗапроса = "
	|SELECT
	|	DISTINCT $СпрАналоги.КодАналогов                      AS КодАналогов,
	|	СпрН.ID                                               AS [Ссылка $Справочник.Номенклатура],
	|	СпрН.descr                                            AS Наименование,
	|	ИтогиПартииТоваров.ИтОстаток                          AS Остаток,
	|	CAST(ИтогиПартииТоваров.ИтСтоимость AS NUMERIC(15,2)) AS Стоимость,
	|	CAST(ИтогиПартииТоваров.ИтНДС AS NUMERIC(15,2))       AS НДС
	|FROM
	|	$Справочник.Аналоги AS СпрАналоги
	|LEFT JOIN 	$Справочник.Номенклатура AS СпрН
	|		ON СпрН.parentid+STR(СпрН.IsFolder,1)+UPPER($СпрН.КодАналогов)+UPPER(СпрН.descr)
	|			LIKE _____________________________________________________________________')
	|		   AND (СпрН.IsMark = '')
	//|		ON (UPPER($СпрН.КодАналогов)+UPPER(СпрН.descr))
	//|			LIKE _____________________________________________________')
	//|		   AND (СпрН.IsFolder = 2)
	//|		   AND (СпрН.IsMark = '')
	|LEFT JOIN (
	|           SELECT
	|				$ИтогиПартии.Товар AS ТоварID,
	|				SUM($ИтогиПартии.ОстатокТовара) AS ИтОстаток,
	|				SUM($ИтогиПартии.Стоимость) AS ИтСтоимость,
	|				SUM($ИтогиПартии.НДС) AS ИтНДС
	|			FROM
	|				$РегистрИтоги.ПартииТоваров AS ИтогиПартии
	|			WHERE
	|				DTOS(ИтогиПартии.period)+$ИтогиПартии.Товар
	|				LIKE  (DTOS(:НачПериод~~)+'_________')
	|           GROUP BY
	|				$ИтогиПартии.Товар
	|			) AS ИтогиПартииТоваров
	|			ON ИтогиПартииТоваров.ТоварID = СпрН.ID
	|WHERE
	|	UPPER($СпрАналоги.Артикул)+UPPER(СпрАналоги.code)
	|	LIKE (:Артикул+'__________')
	|	AND СпрАналоги.IsMark = ''
	|";                                                              

	вр1 = _GetPerformanceCounter();
	База = СоздатьОбъект("OLEDBData");
	Соединение = "Provider=VFPOLEDB.1;Data Source=" + КаталогИБ() + ";Mode=ReadWrite;Collating Sequence=MACHINE";
	Рез = База.Соединение(Соединение);
    Если Рез=0 Тогда
        Сообщить("Подключение к БД не выполнено!", "!");
    КонецЕсли;
    

	Запрос = База.СоздатьКоманду();
    Запрос.Выполнить("EXECSCRIPT('SET ANSI OFF')");

    Запрос = База.СоздатьКоманду();
	Запрос.Отладка(1);
	Запрос.УстановитьТекстовыйПараметр("Артикул", ВРЕГ(СтрокаПоиска));
	мд = СоздатьОбъект("MetaDataWork");
	уТА()));
	ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);
    
	Запрос.Закрыть();
    Запрос = 0;
    База.Закрыть();
    База = 0;
    вр2 = _GetPerformanceCounter();
    Сообщить("Время " + Строка(вр2 - вр1) + "мск.");