berezdetsky писал(а) 11. Сентября 2009 :: 09:21:


В примере у меня сработало, когда я сохранил найстройку и потом закрыл открыл Пример. После выполнения запроса настройкии восстановились.
В моем отчете так не сработало. Я нажал сохранить настройку. Закрыл-открыл отчет. Загрузил настройку, запустил запрос - все как и раньше. Кажется я понял - у меня в модуле принудительно устанавливаются измерения в OWC. Тут нужно тогда подумать как сделать так, что первый раз она заполняется программно, а потом при выходе сохранять найстройку.

pavlo писал(а) 18. Сентября 2009 :: 06:42:

Фигня вопрос!  Напиши OLE DB провайдер для прямого доступа к таблице значений, и будет тебе счастье. 

а печать сломанная на последних версиях консоли только у меня или у всех так:

Error # 339 : Component 'OWC11.DLL' or one of its dependencies not correctly registered: a file is missing or invalid
Консоль.ВывестиСводнуюТаблицу(Сводная.Объект, тбл);
{D:\DATABASE\ТИС\EXTFORMS\ПРИМЕРТИС.ERT(112)}:

ЗЫ проверил версию dll : 12.0.6211.1000
уже качаю новую

berezdetsky писал(а) 18. Сентября 2009 :: 09:21:


Самое интересное то, что я последнюю вроде устанавливал, а потом при обновлении консоли он заодно и OWC обновил, поставил похоже отсюда:
http://www.microsoft.com/downloads/details.aspx?FamilyID=7287252c-402e-4f72-97a5...
а скачал http://www.microsoft.com/downloads/details.aspx?displaylang=en&FamilyID=644008e0...,
пишет:
В системе не найдена ожидаемая версия продукта.

Что за фигня?

Да, все получилось ... Очередное спасибо 

Mikeware писал(а) 09. Октября 2009 :: 04:10:


Через свойство объекта XMLData.

Вот пример реализации.
Первое, что нужно - это размещение реквизита строки неогр. длины  у меня оно XMLТаблицыПоРаботе.

Далее после создания куба идет такой код

     Позиция = Найти(XMLТаблицыПоРаботе, ";Location=");
     Если Позиция = 0 Тогда
           Сводная2.Объект.ConnectionString = "Provider=MSOLAP;Location=" + ФайлКуба;
           Сводная2.Объект.DataMember = "qryConsole";    
     Иначе
           Сводная2.Объект.XMLData = Лев(XMLТаблицыПоРаботе, Позиция + 9) + ФайлКуба + Сред(XMLТаблицыПоРаботе, Позиция + 10);
     КонецЕсли;

В случае, если найстройки были сохранены, то не нужно выводить поля по умолчанию.

И дополнительно, чтобы при любом изменении в таблице они сохранялись добавь

//*******************************************
Процедура СводнаяТаблица_DataChange(Reason)
     Если СтрДлина(ФайлКуба) > 0 Тогда
     XMLТаблицыПоРаботе = СтрЗаменить(Сводная2.Объект.XMLData, ФайлКуба, "");
     КонецЕсли;
КонецПроцедуры

Перечитал тему, нашел упоминание, что "это организовано" автором в штатном функционале. Пример.ert нашел - там нет. Обновил консоль - в документации тоже нет....
Ничего не понимаю...