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.ItemById("DIC_RF");
// Получим схему отметки
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;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
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.ItemById["DIC_RF"];
// Получим схему отметки
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