ApplySelectionSchemaOnRebuild: Boolean;
ApplySelectionSchemaOnRebuild: boolean;
Свойство ApplySelectionSchemaOnRebuild определяет, применять ли схему отметки только при перестроении измерения.
Если заданы оба свойства ApplySelectionSchemaOnRebuild и IDimSelection.ApplySelectionSchemaOnlyOnce, то при первом построении измерения обрабатывается только IDimSelection.ApplySelectionSchemaOnlyOnce, при последующих - ApplySelectionSchemaOnRebuild.
Возможные значения:
True. Выбранная схема отметки будет применяться при каждом перестроении измерения;
False. Значение по умолчанию. Схема отметки элементов будет применяться всегда.
Для выполнения примера в репозитории предполагается наличие экспресс-отчета c идентификатором «EXP_REP_ASSOR», источником данных для которого является стандартный куб, включающий табличный справочник НСИ «DIC_RF», находящийся в репозитории НСИ, со схемой отметки «SCHEMA_OTM».
Добавьте ссылки на системные сборки: Dimensions, Express, Metabase, Pivot.
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Eax: IEaxAnalyzer;
DimSelection: IDimSelection;
Dict: IMetabaseObjectDescriptor;
schema: IDimSelectionSchema;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим экспресс-отчет
MObj := MB.ItemById("EXP_REP_ASSOR").Edit;
// Получим табличный справочник
НСИ
Dict := MB.ItemByIdNamespace("DIC_RF", MB.ItemById("RDS").Key) As IMetabaseObjectDescriptor;
// Получим схему отметки
schema := MB.ItemByIdNamespace("SCHEMA_OTM", Dict.Key).Edit As IDimSelectionSchema;
Eax := MObj As IEaxAnalyzer;
DimSelection := Eax.Pivot.Selection.FindById("DIC_RF");
// Зададим применение схемы отметки при перестроении измерения
DimSelection.ApplySelectionSchemaOnRebuild := True;
DimSelection.SelectionSchema := schema;
// Сохраним экспресс-отчет
Mobj.Save;
End Sub UserProc;
В результате выполнения примера схема отметки будет применяться при каждом перестроении измерения.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Pivot;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
MObj: IMetabaseObject;
Eax: IEaxAnalyzer;
DimSelection: IDimSelection;
Dict: IMetabaseObjectDescriptor;
schema: IDimSelectionSchema;
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
MObj := MB.ItemById["EXP_REP_ASSOR"].Edit();
// Получим табличный справочник
НСИ
Dict := MB.ItemByIdNamespace["DIC_RF", MB.ItemById["RDS"].Key] As IMetabaseObjectDescriptor;
// Получим схему отметки
schema := MB.ItemByIdNamespace["SCHEMA_OTM", Dict.Key].Edit() As IDimSelectionSchema;
Eax := MObj As IEaxAnalyzer;
DimSelection := Eax.Pivot.Selection.FindById("DIC_RF");
// Зададим применение схемы отметки при перестроении измерения
DimSelection.ApplySelectionSchemaOnRebuild := True;
DimSelection.SelectionSchema := schema;
// Сохраним экспресс-отчет
Mobj.Save();
End Sub;
См. также:
Связанные записи
Требование 1447440