Если вирутальный - смотри в PivotTable и MDX.
Если реальный - тогда надо Analysis Services ставить, писать витрину данных, писать куб, заполнять витрину, процессировать куб.
Если найду пример - выложу.

Здесь был пример использования ActiveX для просмотра данных с использованием  PivotTable, попробуй поищи.

Nikolaj писал(а) 19. Июня 2008 :: 05:18:

Сюда смотрел?

quick писал(а) 19. Июня 2008 :: 08:15:

Не сбивай народ с пути истинного.
Если выгрузка ТЗ в mdb не устраивает Nikolaj, то эта "поделка" ему точно не подойдет.

2 Nikolay:
Если база SQL, то можно сделать Indexed View для нужных таблиц и куб строить по этому View.
Если база DBF, то можно слить данные в промежуточную таблицу при помощи OLEDB

SELECT тырыпыры......skipped
INTO TABLE факты.dbf
 

ИМХО, самый бастрый вариант. Без получения результатов в ТЗ вообще.

Или попробуй воспользоваться чудной консолькой от berezdetsky

berezdetsky писал(а) 19. Июня 2008 :: 06:53:


Да. Только непонятно как создается сам файл куба. У меня его вообще нету, когда указываю Итоги: Куб. Группировки и вычисляемые поля в запросе имеются. ТЗ получаю с правильными данными, а вот самого файла .cub нету. Может нетуда смотрю, - где он вообще должен сохраниться???

Nikolaj писал(а) 19. Июня 2008 :: 09:42:

Итоги: Куб на вкладке Дополнительно - это не о том (это опция секции GROUP BY). Смотри вкладку Итоги.
Файл куба можно сделать и без конструктора - задав секцию TOTALS инструкции SELECT. Синтаксис секции TOTALS, место сохранения куба и многое другое описаны в документации:
Пуск\Все программы\1C Предприятие 7.7\Консоль запросов 1С++

berezdetsky писал(а) 19. Июня 2008 :: 10:06:


Читал несколько раз. В итоге так и непонял как создать файл куба. Вот запрос который делаю:
рс = СоздатьОбъект("ODBCRecordset");
     ТекстЗапроса = "
     |SELECT $Обороты.Фирма [Фирма $Справочник.Фирмы]
     |, $Обороты.Клиент [Клиент $Справочник.Клиенты]
     |, $Обороты.Склад [Склад $Справочник.Склады]
     |, $Обороты.ТМЦ [ТМЦ $Справочник.ТМЦ]
     |, ($НачалоПериода.День(Обороты.DATE_TIME_IDDOC)) Период
     |, $Обороты.РасходГрн ФактГрн
     |, $Обороты.РасходКво Кво
     |FROM $Регистр.Обороты AS Обороты
     |FULL OUTER JOIN _1SJOURN AS Журнал ON Обороты.IDDOC = Журнал.IDDOC
     |FULL OUTER JOIN $Справочник.Склады AS Склады ON $Обороты.Склад = Склады.ID
     |FULL OUTER JOIN $Справочник.ТМЦ AS ТМЦ ON $Обороты.ТМЦ = ТМЦ.ID
     |FULL OUTER JOIN $Справочник.Фирмы AS Фирмы ON $Обороты.Фирма = Фирмы.ID
     |FULL OUTER JOIN $Справочник.Клиенты AS Клиенты ON $Обороты.Клиент = Клиенты.ID AND Журнал.$ОбщийРеквизит.Фирма = Фирмы.ID
     |FULL OUTER JOIN $Справочник.Сотрудники AS Сотрудники ON $Клиенты.Менеджер = Сотрудники.ID
     |WHERE (Склады.ISFOLDER = 2)
     |AND (Сотрудники.ISFOLDER = 2)
     |AND (ТМЦ.ISFOLDER = 2)
     |AND (Клиенты.ISFOLDER = 2)
     |AND (Журнал.IDDOCDEF = $ВидДокумента.РасходнаяНакладная)
     |AND (Журнал.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~)
     |TOTALS Sum(ФактГрн, Кво)
     |BY ALL
     |      , [Фирма $Справочник.Фирмы]
     |      , [ТМЦ $Справочник.ТМЦ]
     |      , [Склад $Справочник.Склады]
     |      , [Клиент $Справочник.Клиенты]
     |      , Период PERIODS
     |";
     рс.УстановитьТекстовыйПараметр("НачДата", НачДата);
     рс.УстановитьТекстовыйПараметр("КонДата", КонДата);

Как дальше создать куб??? Подскажите, если незатруднит.

В глобальнике:
...
Перем Консоль Экспорт;
...
Процедура ПриНачалеРаботыСистемы()      
...
Если ЗагрузитьВнешнююКомпоненту("qryConsole.dll") = 1 Тогда
     Консоль = СоздатьОбъект("AddIn.qryConsole");
Иначе
     Сообщить("qryConsole.dll незагружена.",);
КонецЕсли;




Консоль = СоздатьОбъект("AddIn.qryConsole");
     ТекстЗапроса = "
     |SELECT $Обороты.Фирма [Фирма $Справочник.Фирмы]
     |, $Обороты.Клиент [Клиент $Справочник.Клиенты]
     |, $Обороты.Склад [Склад $Справочник.Склады]
     |, $Обороты.ТМЦ [ТМЦ $Справочник.ТМЦ]
     |, ($НачалоПериода.День(Обороты.DATE_TIME_IDDOC)) Период
     |, $Обороты.РасходГрн ФактГрн
     |, $Обороты.РасходКво Кво
     |FROM $Регистр.Обороты AS Обороты
     |FULL OUTER JOIN _1SJOURN AS Журнал ON Обороты.IDDOC = Журнал.IDDOC
     |FULL OUTER JOIN $Справочник.Склады AS Склады ON $Обороты.Склад = Склады.ID
     |FULL OUTER JOIN $Справочник.ТМЦ AS ТМЦ ON $Обороты.ТМЦ = ТМЦ.ID
     |FULL OUTER JOIN $Справочник.Фирмы AS Фирмы ON $Обороты.Фирма = Фирмы.ID
     |FULL OUTER JOIN $Справочник.Клиенты AS Клиенты ON $Обороты.Клиент = Клиенты.ID AND Журнал.$ОбщийРеквизит.Фирма = Фирмы.ID
     |FULL OUTER JOIN $Справочник.Сотрудники AS Сотрудники ON $Клиенты.Менеджер = Сотрудники.ID
     |WHERE (Склады.ISFOLDER = 2)
     |AND (Сотрудники.ISFOLDER = 2)
     |AND (ТМЦ.ISFOLDER = 2)
     |AND (Клиенты.ISFOLDER = 2)
     |AND (Журнал.IDDOCDEF = $ВидДокумента.РасходнаяНакладная)
     |AND (Журнал.Date_Time_IDDoc BETWEEN :НачДата AND :КонДата~)
     |TOTALS Sum(ФактГрн),  Sum(Кво)
     |BY ALL
     |      , [Фирма $Справочник.Фирмы]
     |      , [ТМЦ $Справочник.ТМЦ]
     |      , [Склад $Справочник.Склады]
     |      , [Клиент $Справочник.Клиенты]
     |      , Период PERIODS
     |";
     Консоль.УстановитьТекстовыйПараметр("НачДата", НачДата);
     Консоль.УстановитьТекстовыйПараметр("КонДата", КонДата);
     Консоль.СоздатьКуб(ТекстЗапроса, "D:\test.cub");

На форме задаю НачДата=01.01.2008  КонДата=10.01.2008 , к примеру. Тип реквизита соответственно - дата.
При попытке выполнить вываливает ошибку:
qryConsole : State 42S22, native 207, message [Microsoft][ODBC SQL Server Driver][SQL Server]Invalid column name 'DATE_TIME_IDDOC'.

Где ошибка???