Код

ПодключитьВнешнююКомпоненту("GameWithFire.ADOUtils");
ADOUtils 	= Новый("AddIn.ADOUtils");
Connection 	= Новый COMОбъект("ADODB.Connection");
Стр		= "DRIVER=SQL Server;UID=sa;DATABASE=Opt;SERVER=192.168.100.10;";
Connection.Open(Стр);
ТекстЗапроса="
|SELECT
|((
|cast(left(Журнал.DATE_TIME_IDDOC, 8) as datetime))) Дата
|, Этаж1.DESCR Этаж1
|, Этаж2.DESCR Этаж2
|, Этаж3.DESCR Этаж3
|, Sum(Обороты.sp7818) Продаж
|FROM ra7815 AS Обороты  (nolock)
|LEFT OUTER JOIN     sc92 AS ТМЦ       With (NOLOCK) ON Обороты.sp7823 = ТМЦ.ID
|LEFT OUTER JOIN     sc92 AS Этаж1     With (NOLOCK) ON ТМЦ.PARENTID   = Этаж1.ID
|LEFT OUTER JOIN     sc92 AS Этаж2     With (NOLOCK) ON Этаж1.PARENTID = Этаж2.ID
|LEFT OUTER JOIN     sc92 AS Этаж3     With (NOLOCK) ON Этаж2.PARENTID = Этаж3.ID
|LEFT OUTER JOIN _1SJOURN AS Журнал    With (NOLOCK) ON Обороты.IDDOC  = Журнал.IDDOC
|WHERE ((cast(left(Журнал.DATE_TIME_IDDOC, 6) + '01' as datetime)) IN ("+СписокПериодов+"))
	|GROUP BY (
	|  cast(left(Журнал.DATE_TIME_IDDOC, 8) as datetime))
	|, Этаж3.DESCR
	|, Этаж2.DESCR
	|, Этаж1.DESCR
	|ORDER BY (cast(left(Журнал.DATE_TIME_IDDOC, 8) as datetime))";
	Recordset = Connection.Execute(ТекстЗапроса);