IABACAttributeInstance.Attribute

Copy example

Sub UserProc;
Var
    Insts: IABACAttributeInstances;
    Attr: IABACAttribute;
    MB: IMetabase;
    MS: IMetabaseSecurity;
    Lic: Object;
    i, Count: Integer;
Begin
    MB := MetabaseClass.Active;
    // Get license to be able to work with the security manager
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Change identifier of the last user attribute
    Insts := MS.Users.Item(0).Attributes;
    Count := Insts.Count;
    Attr := Insts.Item(Count-1).Attribute;
    Attr.Id := "WORKDAYS";
    // Display properties of custom  user attributes in the console
    For i := 0 To Count-1 Do
        If Insts.Item(i).Attribute.Predefined = False Then
            Debug.WriteLine("Name: " + Insts.Item(i).Name(MB.CurrentLocale)); // name
            Debug.WriteLine("Identifier: " + Insts.Item(i).Id); // identifier
            Debug.WriteLine("Key: " + Insts.Item(i).Key.ToString); // key
            Debug.WriteLine("Data type: " + Insts.Item(i).DataType.ToString); // data type
            Debug.WriteLine("============================");
        End If;
    End For;
    // Save changes in security manager
    MB.Security.Apply;
    // Check in license
    Lic := Null;
End Sub UserProc;