IDimAttributesInstance.EnsureValuesLoaded

EnsureValuesLoaded(AttributeKeys: Array; Option: Integer; Filter: IDimSelection);

EnsureValuesLoaded(AttributeKeys: System.Array; Option: integer; Filter: Prognoz.Platform.Interop.Dimensions.IDimSelection);

Sub Main;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Attrs: IDimAttributesInstance;
    Ar: Array Of integer;
    Selection: IDimSelection;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Dimen := MB.ItemById("DIC").Open(Null) As IDimInstance;
    Attrs := Dimen.Attributes;
    Ar := New integer[Attrs.Count];
    For i := 0 To Attrs.Count - 1 Do
        Ar[i] := Attrs.Item(i).Attribute.Key;
    End For;
    // Set up selection by which attributes must be additionally loaded
    Selection := Dimen.CreateSelection;
    Selection.SelectAll;
    // Additionally load attributes
    Attrs.EnsureValuesLoaded(Ar, DimAttributeInstanceValuesLoadOptions.DisplayValue, Selection);
End Sub Main;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Attrs: IDimAttributesInstance;
    Ar: Array Of uinteger;
    Selection: IDimSelection;
    i, DimAtr: Integer;
Begin
    MB := Params.Metabase;
    Dimen := MB.ItemById["DIC_ME"].Open(Null) As IDimInstance;
    Attrs := Dimen.Attributes;
    Ar := New uinteger[Attrs.Count];
    For i := 0 To Attrs.Count - 1 Do
        Ar[i] := Attrs.Item[i].Attribute.Key;
    End For;
    // Set up selection by which attributes must be additionally loaded
    Selection := Dimen.CreateSelection();
    Selection.SelectAll();
    //Set option of attributes values loading
    DimAtr:= DimAttributeInstanceValuesLoadOptions.daivloDisplayValue.value__;
    // Additionally load attributes
    Attrs.EnsureValuesLoaded(Ar,DimAtr,Selection);
End Sub;