IDimElementGroupPrimitive.Type

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

Sub UserProc;
Var
    MB: IMetabase;
    ElemGroup: IDimElementGroup;
    ElemGroupPrim: IDimElementGroupPrimitive;
    i: Integer;
Begin
    MB:=MetabaseClass.Active;
    If MB.ItemById("D_TO").Children.Count<>0 Then
        ElemGroup:=MB.ItemById("D_TO").Children.Item(0).Bind As IDimElementGroup;
        ElemGroupPrim:=ElemGroup.Item(0);
        i:=ElemGroupPrim.Type As Integer;
    End If;
End Sub UserProc;