Код

Функция ЦеныSQL()

			ОЛЕ_DSN="NAME_BASE";
			ОЛЕ_UID="sa";
			ОЛЕ_PWD="_password_";
			Попытка
				БазаОле.CreateObject("ODBCRecordSet");
			Исключение
				regPath = "";

				Попытка
					WshShell 	= CreateObject("Wscript.Shell");
					regPath 	= 7}\\InprocServer32\\");
				Исключение
					Попытка
						WshShell 	= CreateObject("Wscript.Shell");
						regPath 	= \InprocServer32\");
					Исключение
						regPath = "";
					КонецПопытки;
				КонецПопытки;

				Если regPath = "" Тогда
					regPath = "1CPP.dll";
				КонецЕсли;

				Если Не(БазаОле.ЗагрузитьВнешнююКомпоненту(regPath)=1) Тогда
					ЗаписьВПротокол1СРР("Ошибка загрузки 1CPP.dll в рознице!");
					Сообщ("Ошибка загрузки 1CPP.dll в рознице!");
					Возврат 0;
				КонецЕсли;
			КонецПопытки;
	ТЗ = СоздатьОбъект("ТаблицаЗначений");

	//db = БазаОле.CreateObject("ODBCDatabase");
	////
	//db_local = СоздатьОбъект("ODBCDatabase");
	//
	//Если db.DriverConnect("DSN="+ОЛЕ_DSN+"; DRIVER=SQL Server; UID="+ОЛЕ_UID+"; PWD="+ОЛЕ_PWD+";")=0 Тогда
	//	Сообщ("Ошибка подключения к ODBC через ОЛЕ!");
	//	ЗаписьВПротокол1СРР("Ошибка подключения к ODBC через ОЛЕ!");
	//	Возврат 0;
	//КонецЕсли;
	//db.ПолучитьОписаниеОшибки();
	////
	//Если db_local.DriverConnect("DSN="+ОЛЕ_DSN+"; DRIVER=SQL Server; UID="+ОЛЕ_UID+"; PWD="+ОЛЕ_PWD+";")=0 Тогда
	//	Сообщ("Ошибка подключения к ODBC из локала!");
	//	ЗаписьВПротокол1СРР("Ошибка подключения к ODBC из локала!");
	//	Возврат 0;
	//КонецЕсли;
	//

	SS		= БазаОле.CreateObject("ODBCRecordSet");
	SS_local = CreateObject("ODBCRecordSet");
	//SS.SetDatabase(db);
	//SS_local.SetDatabase(db_local);

	//выбираем базовые цены
	SS.УстановитьТекстовыйПараметр("НаДату", ТекущаяДата());
	SS.УстановитьТекстовыйПараметр("КредКод", КредКод);
	SS.УстановитьТекстовыйПараметр("РозКод", РозКод);
	SS.УстановитьТекстовыйПараметр("ДатаПоследнейЗагрузки", ДатаПоследнейЗагрузки);
	SS.УстановитьТекстовыйПараметр("Нобн",Нобн);

		Запрос="
		|select
		|Номенклатура.code as Номен_Код,
		|ТипыЦен.id as ТипЦены_id,
		|ТипыЦен.code as ТипЦены_Код,
		|Курсы.kurs as Валюта_Курс,
		|$ПоследнееЗначение.Цены.Цена(Цены.id, :НаДату) as Цена
		|into #t1
		|from $Справочник.Номенклатура as Номенклатура
		|inner join $Справочник.Цены Цены on Номенклатура.id=Цены.parentext
		|inner join $Справочник.ТипыЦен ТипыЦен on ТипыЦен.id=Цены.$Справочник.Цены.ТипЦен
		|inner join #kurs Курсы on Курсы.id=Цены.$Справочник.Цены.Валюта
		|where
		ки) or (:Нобн=1))
		|and ((ТипыЦен.$Справочник.ТипыЦен.ВыгружатьВСубРозницу=1) or (ТипыЦен.code=:КредКод) or (ТипыЦен.code=:РозКод)))
		|";

		Если ПустоеЗначение(ТекстУсловия_SQL)=0 Тогда
			Запрос = Запрос + "
			|or ("+ТекстУсловия_SQL+")";
		КонецЕсли;
	КонецЕсли;
	Если SS.Execute(Запрос)=0 Тогда
		 Сообщ("Ошибка второго запроса "+SS.ПолучитьОписаниеОшибки());
		 Возврат 0;
	КонецЕсли;


	ИмяРозы = "fom_"+База.Код;

	Запрос="
	|select Т.* into ##t3"+ИмяРозы+"
	|from (select * from #t1
	|union
	|select * from #t2) as Т
	|";

	SS.Execute(Запрос);

	Запрос="
	|select * from ##t3"+ИмяРозы+"
	|order by Номен_Код
	|";

	if SS_local.ExecuteStatement(Запрос,ТЗ,1) = 0 then
		Сообщ("Запрос не выполнен!");
		Возврат 0;
	EndIf;

	Возврат 1;
КонецФункции	// ЦеныSQL