Код

select TOP 10
CPCONVERT(1251,866,desrc)

from Trade...bik
 

Код

SELECT
	ОстаткиТМЦ.SP408	AS НоменклатураID,
	ОстаткиТМЦ.SP418	AS СкладID,
	ОстаткиТМЦ.SP411	AS Количество

FROM Base...RG405 AS ОстаткиТМЦ

WHERE	(ОстаткиТМЦ.PERIOD={D '2006-10-01'})
	AND (ОстаткиТМЦ.SP411 <> 0) //--- ресурс Количество
	AND (ОстаткиТМЦ.SP4062 = '     1   ') //--- измерение Фирма
	AND (ОстаткиТМЦ.SP3117 = 0) //--- измерение ЦенаПрод
 

Код

#----Indexes------
# Name     |Descr	   |Unique|Indexed fields							    |DBName    
I=PROP     |PERIOD+PROP   |0     |PERIOD,SP4062,SP408,SP418,SP3117				    |PROP
I=VIA408   |VIA408	  |0     |PERIOD,SP408								|VIA408    
 

Код

	ТекстЗапроса = "
		|SELECT
		|	СпрНоменклатура.Code	AS NomenCode,
		|	СпрСклады.Code			AS SkladCode,
		|	$ОстаткиТМЦ.Количество	AS Qty
		|
		|FROM $Торговля.РегистрИтоги.ОстаткиТМЦ AS ОстаткиТМЦ
		|	LEFT JOIN $Торговля.Справочник.Номенклатура AS СпрНоменклатура ON ($ОстаткиТМЦ.Номенклатура = СпрНоменклатура.ID)
		|	LEFT JOIN $Торговля.Справочник.Склады AS СпрСклады ON ($ОстаткиТМЦ.Склад = СпрСклады.ID)
		|
		|WHERE	(ОстаткиТМЦ.PERIOD= :ВыбПериод~~)
		|	AND ($ОстаткиТМЦ.Количество <> 0)
		|	AND ($ОстаткиТМЦ.Фирма = '     1   ')
		|";

		База = СоздатьОбъект("OLEDBData");
		Соединение = "
			|Provider=VFPOLEDB.1;
			|Deleted=Yes;
			|Data Source=\\Server3\Data\;
			|Mode=ReadWrite;
			|Extended Properties="";
			|User ID="";
			|Password="";
			|Mask Password=False;
			|Collating Sequence=RUSSIAN;
			|DSN=""
			|";
		Рез = База.Соединение(Соединение);
		Запрос = База.СоздатьКоманду();
		Запрос.УстановитьТекстовыйПараметр("ВыбПериод",'01.10.2006');
		Запрос.Отладка(1);
		ТЗ = Запрос.ВыполнитьИнструкцию(ТекстЗапроса);