Tag: Variant;
Свойство Tag не учитывается компилятором, поэтому может быть использовано пользователем по его усмотрению.
Значение Tag сохраняется вместе со справочником.
Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «RDS_REPO», содержащего справочник с идентификатором «OBJ_DICT». Также необходимо добавить ссылки на системные сборки «Metabase», «Rds».
Sub UserProc;
Var
MB: IMetabase;
RdsDescr: IMetabaseObjectDescriptor;
Dict: IRdsDictionary;
Atts: IRdsAttributes;
Attr: IRdsAttribute;
Begin
MB := MetabaseClass.Active;
RdsDescr := MB.ItemById("RDS_REPO");
Dict := MB.ItemByIdNamespace("OBJ_DICT", RdsDescr.Key).Bind As IRdsDictionary;
Atts := Dict.Attributes;
Attr := Atts.FindById("KEY");
Attr.Tag := "Ключ элементов
справочника";
End Sub UserProc;
После выполнения примера для атрибута «KEY» справочника будет создан комментарий, содержащийся в свойстве Tag.
См. также: