MbElementDependentTemplateClass.CreateByDictionary

Fore Syntax

CreateByDictionary(DictionaryKey: Integer);

Fore.NET Syntax

CreateByDictionary(DictionaryKey: uinteger);

Parameters

DictionaryKey. MDM dictionary key.

Description

The CreateByDictionary constructor creates a new dependencies template in accordance with parameters of MDM dictionary.

Comments

To create a new dependencies template in accordance with the specified MDM dictionary parameters and dictionary element, use the MbElementDependentTemplateClass.CreateByElement constructor.

Fore Example

Executing the example requires MDM dictionaries with the DICT and DICT1 identifiers.

Add links to the Metabase, Rds system assemblies.

Sub UserProc;
Var
    MB: IMetabase;
    Obj, Dictionary: IMetabaseObjectDescriptor;
    RdsDictIns: IRdsDictionaryInstance;
    Elements: IRdsDictionaryElements;
    Depends: IMbElementDependents;
    Template, Value: IMbElementDependentTemplate;
    ObjKey, DictKey, ElemKey: Integer;
Begin
    MB := MetabaseClass.Active;
    Obj := MB.ItemById("DICT1");
    Dictionary := MB.ItemById("DICT");
    RdsDictIns := Dictionary.Open(Null) As IRdsDictionaryInstance;
    Elements := RdsDictIns.Elements;
    // Object settings:
    Obj := Obj.EditDescriptor;
    Obj.ElementDependenciesTrackingType := MbElementDependenciesTrackingType.Dependecies;
    Obj.ElementDependents;
    Obj.SaveDescriptor;
    /// Settings:
    DictKey := Dictionary.Key;
    ObjKey := Obj.Key;
    ElemKey := Elements.Element(1); // for the first dictionary element
    // Template:
    Template := New MbElementDependentTemplateClass.CreateByDictionary(DictKey);
    Template.ElementKey := Elements.Element(4);
    // Collection of dependencies:
    Depends := Mb.ElementDependentsDatabase.New_;
    Depends.Clear;
    Depends.Where := Template;
    Value := New MbElementDependentTemplateClass.Create(ObjKey, DictKey, ElemKey);
    Depends.Add(Value);
    Depends.Database.Update(Depends);
    Debug.WriteLine("Number of records MDM dictionary elements' dependency: " + Depends.Count.ToString);
    Debug.WriteLine("=== Object: " + Obj.Name + " ===");
    Debug.WriteLine("Track links to elements from other objects: ");
    If Obj.TrackElementDependencies = True Then
        Debug.WriteLine("    - option is enabled");
        Else
            Debug.WriteLine("    - option is disabled");
    End If;
    Debug.WriteLine("=== Dictionary: " + Dictionary.Name + " ===");
    Debug.WriteLine("Track links to elements from other objects: ");
    If Dictionary.TrackElementDependents = True Then
        Debug.WriteLine("    - option is enabled");
        Else
            Debug.WriteLine("    - option is disabled");
    End If;
End Sub UserProc;

After executing this example the console window displays information about whether the Track Links to Elements from Other Objects option is enabled for each dictionary.

Fore.NET Example

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;
    Obj, Dictionary: IMetabaseObjectDescriptor;
    RdsDictIns: IRdsDictionaryInstance;
    Elements: IRdsDictionaryElements;
    Depends: IMbElementDependents;
    DependTemplClassT, DependTemplClassV: MbElementDependentTemplateClassClass = New MbElementDependentTemplateClassClass();
    Template, Value: MbElementDependentTemplateClass;
    ObjKey, DictKey, ElemKey: uinteger;
Begin
    MB := Params.Metabase;
    Obj := MB.ItemById["DICT1"];
    Dictionary := MB.ItemById["DICT"];
    RdsDictIns := Dictionary.Open(Null) As IRdsDictionaryInstance;
    Elements := RdsDictIns.Elements;
    // Object settings:
    Obj := Obj.EditDescriptor();
    Obj.ElementDependenciesTrackingType := MbElementDependenciesTrackingType.mbeledeptratypDependecies;
    Obj.ElementDependents;
    Obj.SaveDescriptor();
    /// Settings:
    DictKey := Dictionary.Key;
    ObjKey := Obj.Key;
    ElemKey := Elements.Element[1]; // for the first dictionary element
    // Template:
    DependTemplClassT.CreateByDictionary(DictKey);
    Template := DependTemplClassT As MbElementDependentTemplateClass;
    Template.ElementKey := Elements.Element[4] As integer;
    // Collection of dependencies:
    Depends := Mb.ElementDependentsDatabase.@New();
    Depends.Clear();
    Depends.Where := Template As MbElementDependentTemplateClass;
    DependTemplClassV.Create(ObjKey, DictKey, ElemKey);
    Value := DependTemplClassV As MbElementDependentTemplateClass;
    Depends.Add(Value);
    Depends.Database.Update(Depends);
    System.Diagnostics.Debug.WriteLine("Number of records of dependency of MDM dictionary elements: " + Depends.Count.ToString());
    System.Diagnostics.Debug.WriteLine("=== Object: " + Obj.Name + " ===");
    System.Diagnostics.Debug.WriteLine("Track links to elements from other objects: ");
    If Obj.TrackElementDependencies = True Then
        System.Diagnostics.Debug.WriteLine("    - option is enabled");
        Else
            System.Diagnostics.Debug.WriteLine("    - option is disabled");
    End If;
    System.Diagnostics.Debug.WriteLine("=== Dictionary: " + Dictionary.Name + " ===");
    System.Diagnostics.Debug.WriteLine("Track links to elements from other objects: ");
    If Dictionary.TrackElementDependents = True Then
        System.Diagnostics.Debug.WriteLine("    - option is enabled");
        Else
            System.Diagnostics.Debug.WriteLine("    - option is disabled");
    End If;
End Sub;