ICustomDimAttribute.DisplayValueDataType

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    cube: IStandardCube;
    customdim: ICustomDimension;
    attrs: ICustomDimAttributes;
    attr: ICustomDimAttribute;
Begin
    // Получим репозиторий
    mb := MetabaseClass.Active;
    // Получим куб
    cube := mb.ItemById("CUBE").Edit As IStandardCube;
    // Получим измерение фактов
    customdim := cube.FactDimension.Dimension As ICustomDimension;
    // Получим коллекцию атрибутов измерения
    attrs := customdim.Attributes;
    // Получим атрибут измерения фактов
    attr := attrs.Order;
    // Зададим, что значения атрибута измерения фактов отображаемые
    attr.HasDisplayValues:=True;
    // Определим тип отображаемого значения атрибута
    Select Case attr.DisplayValueDataType
        Case DbDataType.NoData: Debug.WriteLine("Нет данных");
        Case DbDataType.String: Debug.WriteLine("Тип данных: строковый");
        Case DbDataType.Integer: Debug.WriteLine("Тип данных: целочисленный");
        Case DbDataType.Float: Debug.WriteLine("Тип данных: вещественный");
        Case DbDataType.DateTime: Debug.WriteLine("Тип данных: дата и время");
        Case DbDataType.Blob: Debug.WriteLine("Тип данных: массив двоичных, либо символьных данных");
        Case DbDataType.Boolean: Debug.WriteLine("Тип данных: логический");
        Case DbDataType.Date: Debug.WriteLine("Тип данных: дата без времени");
        Case DbDataType.Decimal: Debug.WriteLine("Тип данных: десятичные значения высокой точности");
    End Select;
    // Сохраним изменения
    (customDim As IMetabaseObject).Save;
End Sub UserProc;