Код

Функция глВернутьЦенуSQL(Номенклатура,ТипЦен)
	ТекстЗапросаЦеныЦены ="select top 1  value as [Цена] from _1sconst where id=324 and objid=:Цена
	| and  date <= :Дата
	|order by date desc";
	ТекстЗапросаЕдиницыЦены ="select top 1  value as [Единица]  from _1sconst where id=321 and objid= :Цена
	| and  date <= :Дата
	|order by date desc";
	ТекстЗапросаЦены ="select id [id], id [Цена $Справочник.Цены], sp6681 [Валюта $Справочник.Валюты], sp6682 [Наценка]  from sc319 where parentext=:Номенклатура and sp327=:ТипЦены";
	ЗапросЦены=СоздатьОбъект("ODBCRecordSet");
	ТЗЦены=СоздатьОбъект("ТаблицаЗначений");
	ЗапросЦены.УстановитьТекстовыйПараметр("Номенклатура",Номенклатура);
	ЗапросЦены.УстановитьТекстовыйПараметр("ТипЦены",ТипЦен);
	ТЗЦены=ЗапросЦены.ВыполнитьИнструкцию(ТекстЗапросаЦены);

	ТЗЦены.ВыбратьСтроки();
	ТЗЦены.ПолучитьСтроку();

	ЗапросЦеныЦены=СоздатьОбъект("ODBCRecordSet");
	ЗапросЦеныЦены.УстановитьТекстовыйПараметр("Дата",ДатаЦены);
	ЗапросЦеныЦены.УстановитьТекстовыйПараметр("Цена",ТЗЦены.id);
	ЦенаЦены=ЗапросЦеныЦены.ВыполнитьСкалярный(ТекстЗапросаЦеныЦены);
	ЗапросЕдиницыЦены=СоздатьОбъект("ODBCRecordSet");
	ЗапросЕдиницыЦены.УстановитьТекстовыйПараметр("Дата",ДатаЦены);
	ЗапросЕдиницыЦены.УстановитьТекстовыйПараметр("Цена",ТЗЦены.id);
	ЕдиницаЦены=ЗапросЕдиницыЦены.ВыполнитьСкалярный(ТекстЗапросаЕдиницыЦены);
	Возврат ЦенаЦены;
КонецФункции