ICompoundDimensionSource.ForcedHideSourceName

ForcedHideSourceName: Boolean;

ForcedHideSourceName: boolean;

Sub UserProc;
Var
    MB: IMetabase;
    Obj: IMetabaseObject;
    Discr: IMetabaseObjectDescriptor;
    CompoundDim: ICompoundDimension;
    Source: ICompoundDimensionSource;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчёт и частные измерения
    obj := MB.ItemById("EXPRESS").Edit;
    Discr := obj.Children.Item(0);
    CompoundDim := Discr.Children.Item(0).Edit As ICompoundDimension;
    Source := CompoundDim.Sources.Item(0);
    // Выведем, отображается ли название у первого источника
    Debug.WriteLine("Отображение названия источника " + Source.Name + " скрыто:");
    Debug.Indent;
    Debug.WriteLine(Source.ForcedHideSourceName);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Obj: IMetabaseObject;
    Discr: IMetabaseObjectDescriptor;
    CompoundDim: ICompoundDimension;
    Source: ICompoundDimensionSource;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим экспресс-отчёт и частные измерения
    obj := MB.ItemById["EXPRESS"].Edit();
    Discr := obj.Children.Item[0];
    CompoundDim := Discr.Children.Item[0].Edit() As ICompoundDimension;
    Source := CompoundDim.Sources.Item[0];
    // Выведем, отображается ли название у первого источника
    System.Diagnostics.Debug.WriteLine("Отображение названия источника " + Source.Name + " скрыто:");
    System.Diagnostics.Debug.Indent();
    System.Diagnostics.Debug.WriteLine(Source.ForcedHideSourceName);
End Sub;