ObjectLinked: Boolean;
ObjectLinked: boolean;
The ObjectLinked property determines whether tale MDM dictionary is a link to repository object.
Available values:
True. The attribute is a link to repository object.
False. The attribute is not a link to repository object.
Executing the example requires a table dictionary with the DIM identifier.
Add links to the Metabase, Rds system assemblies.
Sub UserProc;
Var
MB: IMetabase;
rds: IRdsDictionary;
Attr: IRdsAttribute;
Begin
MB := MetabaseClass.Active;
rds := MB.ItemById("DIM").Edit As IRdsDictionary;
Attr := rds.Attributes.Add;
Attr.Name := "ATTR";
Attr.Id := "ATTR";
Attr.ObjectLinked := True;
(rds As IMetabaseObject).Save;
End Sub UserProc;
After executing the example the attribute with the ATTR identifier that is a link to repository object is added to the specified dictionary.
The requirements and result of the Fore.NET Example execution match with those in the Fore Example.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
rds: IRdsDictionary;
Attr: IRdsAttribute;
Begin
MB := Params.Metabase;
rds := MB.ItemById["DIM"].Edit() As IRdsDictionary;
Attr := rds.Attributes.Add();
Attr.Name := "ATTR";
Attr.Id := "ATTR";
Attr.ObjectLinked := True;
(rds As IMetabaseObject).Save();
End Sub;
See also: