IRdsAttribute.PredefinedType

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

Sub UserProc;
Var
    MB : IMetabase;
    MbObj : IMetabaseObject;
    Dic : IRdsDictionary;
    Att : IRdsAttribute;
    PType : Integer;
Begin
    MB := MetabaseClass.Active;
    MbObj := MB.ItemByIdNamespace("CREATEATTR", Mb.ItemById("RDSBASE").Key).Bind;
    Dic := MbObj As IRdsDictionary;
    Att := Dic.Attributes.FindById("KEY");
    PType := Att.PredefinedType;
End Sub UserProc;