Код

ARS = СоздатьОбъект("AccountsRecordset");
ARS.УстановитьТекстовыйПараметр("НачПериода"  ,ВыбНачПериода);
ARS.УстановитьТекстовыйПараметр("ГруппаСчетов",ВыбГруппаСчетов);

Текст = "
	|SELECT
	| BasicAP.Счет [Счет $Счет.Основной]
	| BasicAP.Валюта [Валюта $Справочник.Валюты]
	| BasicAP.Субконто1 [Субконто1 $Субконто]
	| BasicAP.Субконто1_вид
	| BasicAP.Субконто2 [Субконто2 $Субконто]
	| BasicAP.Субконто2_вид
	| BasicAP.СуммаОстатокДт
	| BasicAP.СуммаОстатокКт
	| BasicAP.ВалютнаяСуммаОстатокДт
	| BasicAP.ВалютнаяСуммаОстатокКт
	| BasicAP.КоличествоОстатокДт
	| BasicAP.КоличествоОстатокКт
	|FROM $БИОстатки.Основной(:НачПериода,,(Счет = :ГруппаСчетов)) AS BasicAP";  

Код

ТЗ = ARS.ВыполнитьИнструкцию(Текст);
{K:\ZZZ\EXTFORMS\ОДР_КОНС_SQL.ERT(60)}: AccountsRecordset::СформироватьОшибку(Строка Ошибка=State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 4: Incorrect syntax near 'BasicAP'.) : State 42000, native 170, message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 4: Incorrect syntax near 'BasicAP'.
вм.СформироватьОшибку(Ошибка);
{K:\zzz\AccountsRecordsetV3.ert(57) }
 

Код

//*******************************************
Перем ТекБ;

Функция ОборотыБИ()

	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ.Очистить();

	ARS = СоздатьОбъект("AccountsRecordset");

	ARS.УстановитьТекстовыйПараметр("НачПериода"  ,Дата1);
	ARS.УстановитьТекстовыйПараметр("КонПериода"  ,Дата2);
	ARS.УстановитьТекстовыйПараметр("запрВыбСч1",Сч);
	ARS.УстановитьТекстовыйПараметр("запрВыбСч2",КорСч);
	ARS.УстановитьТекстовыйПараметр("ОЛЕ",?(ТекБ=0,"",ТекБ));


	// обороты
	Текст = "
	|SELECT
	|  Счет	[запрВыбСч1 $Счет.Основной]
	|, КорСчет   [запрВыбСч2 $Счет.Основной]
	|, СуммаОборотДт
	|, СуммаОборотКт
	|, Субконто1 [Субконто1 $Субконто]
	|, Субконто1_вид
	|, КорСубконто1 [КорСубконто1 $Субконто]
	|, КорСубконто1_вид
	|FROM
	|$БИОбороты.Основной(:НачПериода,:КонПериода ~,
	|,:ОЛЕ
	|,(Счет	 = :запрВыбСч1)
	|,
	|,(КорСчет    = :запрВыбСч2))
	|AS BasicAP"
	;


		ТЗ = ARS.ВыполнитьИнструкцию(Текст);
		ИтОб = ТЗ.Итог(3) - ТЗ.Итог(4);
		Возврат ИтОб;


КонецФункции	// ОборотыБИ

Процедура Сформировать()


	ТекБ = СоздатьОбъект("V77.Application");
			Открыта = ТекБ.Initialize(ТекБ.RMTrade, "/d L:\TEST_DB /N юзер /P 111", "NO_SPLASH_SHOW");
			Если Открыта = 0 Тогда
				Сообщить("База не была открыта...");
				Возврат;
			КонецЕсли;

			Сообщить(Строка(ОборотыБИ()));
			ТекБ = 0;

КонецПроцедуры 

Код

ТЗ = ARS.ВыполнитьИнструкцию(Текст);
{K:\ZZZ\EXTFORMS\ОЛЕ.ERT(39)}:
AccountsRecordset::СформироватьОшибку
(Строка Ошибка=
State 42000, native 170,
message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 70: Incorrect syntax near ''.)
: State 42000, native 170,
message [Microsoft][ODBC SQL Server Driver][SQL Server]Line 70: Incorrect syntax near ''.
вм.СформироватьОшибку(Ошибка);
{K:\zzz\AccountsRecordsetV3.ert(57) } 

Код

ОБ281361 = БИ.ОБ(Сч281,Сч361);
ОБ301302 = БИ.ОБ(Сч301,Сч302); 

Код

ОБ281361 = ПрямойЗапросБИ(Сч281,Сч361);
ОБ301302 = ПрямойЗапросБИ(Сч301,Сч302);