ICubeAttachments.Attributes

Attributes: ICubeAttachmentAttributes;

Attributes: Prognoz.Platform.Interop.Cubes.ICubeAttachmentAttributes;

Sub UserProc;
Var
    MB: IMetabase;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Exec: ICubeInstanceDestinationExecutor;
    Mat: IMatrix;
    MatEx: IMatrixEx;
    Ite: IMatrixIterator;
    ExecResult: ICubeExecuteResult;
    Manager: ICubeAttachmentManager;
    Ats: ICubeAttachments;
    Attrs: ICubeAttachmentAttributes;
    Attr: ICubeAttachmentAttribute;
    i, c: Integer;
Begin
    MB := MetabaseClass.Active;
    CubeInst := MB.ItemById("STD_CUBE").Open(Null) As ICubeInstance;
    Dest := CubeInst.Destinations.DefaultDestination;
    //Отметка куба
    Sels := Dest.CreateDimSelectionSet;
    For Each Sel In Sels Do
        Sel.SelectAll;
    End For;
    Exec := Dest.CreateExecutor;
    Exec.IncludeAttachments := True;
    Exec.PrepareExecute(Sels);
    Exec.PerformExecute;
    Mat := Exec.Matrix;
    //Результирующая матрица куба   
    MatEx := Mat As IMatrixEx;
    If MatEx.AttachmentValueIndex < 0 Then
        Debug.WriteLine("AttachmentValueIndex <0. Aborted ");
        Return;
    End If;
    ExecResult := CubeClass.ExecuteResult(Mat);
    //Менеджер для работы с вложениями куба
    Manager := ExecResult.CreateAttachmentManager;
    //Итератор матрицы
    Ite := Mat.CreateIterator;
    Ite.Move(IteratorDirection.First);
    While Ite.Valid Do
        //Вложения по текущей координате
        Ats := Manager.ReadAttachments(Ite);
        If Ats <> Null Then
            Attrs := Ats.Attributes;
            c := Attrs.Count;
            For i := 0 To c - 1 Do
                Attr := Attrs.Item(i);
                Debug.WriteLine(Attr.Name +
                    ".Тип данных: " + Attr.DataType.ToString +
                    ".Пустые значения: " + Attr.Nullable.ToString +
                    ".Ссылка на объект репозитория: " + Attr.ObjectLinked.ToString);
            End For;
            Break;
        End If;
        Ite.Move(IteratorDirection.Next);
    End While;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Matrix;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    Sel: IDimSelection;
    Exec: ICubeInstanceDestinationExecutor;
    Mat: IMatrix;
    MatEx: IMatrixEx;
    CubeCls: CubeClassClass = New CubeClassClass();
    Ite: IMatrixIterator;
    ExecResult: ICubeExecuteResult;
    Manager: ICubeAttachmentManager;
    Ats: ICubeAttachments;
    Attrs: ICubeAttachmentAttributes;
    Attr: ICubeAttachmentAttribute;
    i, c: Integer;
Begin
    MB := Params.Metabase;
    CubeInst := MB.ItemById["STD_CUBE"].Open(Null) As ICubeInstance;
    Dest := CubeInst.Destinations.DefaultDestination;
    //Отметка куба
    Sels := Dest.CreateDimSelectionSet();
    For Each Sel In Sels Do
        Sel.SelectAll();
    End For;
    Exec := Dest.CreateExecutor();
    Exec.IncludeAttachments := True;
    Exec.PrepareExecute(Sels);
    Exec.PerformExecute(False);
    Mat := Exec.Matrix;
    //Результирующая матрица куба   
    MatEx := Mat As IMatrixEx;
    If MatEx.AttachmentValueIndex < 0 Then
        System.Diagnostics.Debug.WriteLine("AttachmentValueIndex <0. Aborted ");
        Return;
    End If;
    ExecResult := CubeCls.ExecuteResult[Mat];
    //Менеджер для работы с вложениями куба
    Manager := ExecResult.CreateAttachmentManager();
    //Итератор матрицы
    Ite := Mat.CreateIterator();
    Ite.Move(IteratorDirection.itdFirst);
    While Ite.Valid Do
        //Вложения по текущей координате
        Ats := Manager.ReadAttachments(Ite);
        If Ats <> Null Then
            Attrs := Ats.Attributes;
            c := Attrs.Count;
            For i := 0 To c - 1 Do
                Attr := Attrs.Item[i];
                System.Diagnostics.Debug.WriteLine(Attr.Name +
                    ".Тип данных: " + Attr.DataType.ToString() +
                    ".Пустые значения: " + Attr.Nullable.ToString() +
                    ".Ссылка на объект репозитория: " + Attr.ObjectLinked.ToString());
            End For;
            Break;
        End If;
        Ite.Move(IteratorDirection.itdFirst);
    End While;
End Sub;