IRdsLoaderBindings.Add

According to the defined type, specify appropriate dictionary attribute in the created binding. The binding can be cast to required type, and specific properties can be defined for the binding. The following types of binding are available:

Fore Example

Contains a list of countries.

Filed description (identifier/data type/purpose):

KEY. Integer. Key. Missing data is not allowed. It is included to the initial index content.
NAME. String. Country name.
ORD. Integer. Order.
PARENT. Integer. Key of the parent-owner.
FORLINK. Integer. Key of the element from linked dictionary. Determines country capital.
MULTIATTR. Integer. Key of the element from the table containing multiple values. Determines national languages.

The table contains the following data:

KEY	NAME	ORD	PARENT	FORLINK	MULTIATTR
1	Europe
2	Belgium		1	4	1
3	Ireland		1	1	2
4	Cyprus		1	2	3
5	Luxembourg		1	3	4
6	Malta		1	5	5

Contains a list of languages.

Filed description (identifier/data type/purpose):

KEY. Integer. Key
ORDER. Integer. Order
VALUE. String. One of multiple values which will be displayed as national language in created dictionary.

The table does not contain initial index.

The table contains the following data:

KEY	ORDER	VALUE
1		French
1		Dutch
2		Irish
2		English
3		Greek
3		Turkish
4		Luxembourgish
4		French
4		German
5		Maltese
5		English

Contains a list of capitals.

Filed description (identifier/data type/purpose):

KEY. Integer. Key. Missing data is not allowed, hidden.
NAME. String. Capital name.
ORD. Integer. Order.

Dictionary contains the following data:

KEY	NAME	ORD
1	Dublin	0
2	Nikosia	1
3	Luxembourg	2
4	Bruxelles	3
5	Valletta	35

Sub UserProc; Var     MB: IMetabase;     CrInfo: IMetabaseObjectCreateInfo;     LinkDictionary: IRdsDictionary;     RdsLoader: IMetaRdsLoader;     Bindings: IRdsLoaderBindings;     PredBinding: IRdsPredefinedBinding;     LinkBinding: IRdsLinkedBinding;     ImportBinding: IRdsImportedBinding;     MultiValueBinding: IRdsBaseBinding; Begin     // Get current repository     MB := MetabaseClass.Active;     // Get dictionary with which binding will be created     LinkDictionary := MB.ItemByIdNamespace("DICT_LINKED", MB.GetObjectKeyById("MDM")).Bind As IRdsDictionary;     // Create object to create table MDM dictionary and to load data to it     RdsLoader := New MetaRdsLoader.Create;     // Determine table from which data will be loaded     RdsLoader.TableSource := MB.ItemById("T_DICTIONARY").Bind As ITable;     // Get bindings of table source fields and created table MDM dictionary     Bindings := RdsLoader.Bindings;     // Determine bindings of mandatory system attributes of table MDM dictionary     Bindings.KeyBinding.Field := "KEY";     Bindings.NameBinding.Field := "NAME";     Bindings.OrderBinding.Field := "ORD";     // Determine binding for the Owner attribute in the table MDM dictionary     PredBinding := Bindings.Add(RdsLoaderBindingType.Predefined) As IRdsPredefinedBinding;     PredBinding.PredefinedType := RdsPredefinedAttribute.ParentKey;     PredBinding.Field := "PARENT";     // Determine binding for the attribute which will be used for binding with another dictionary     LinkBinding := Bindings.Add(RdsLoaderBindingType.Linked) As IRdsLinkedBinding;     // Determine attribute name and identifier     LinkBinding.Id := "FORLINK";     LinkBinding.Name := "Для связи";     // Determine that binding will be created by key     LinkBinding.Reference := LinkDictionary.Attributes.Key;     // Determine filed in the table source which contains values for the attribute     LinkBinding.Field := "FORLINK";     // Create borrowed attribute from linked dictionary     ImportBinding := Bindings.Add(RdsLoaderBindingType.Imported) As IRdsImportedBinding;     // Determine attribute name and identifier     ImportBinding.Id := "NAME_LINKEDDICT";     ImportBinding.Name := "Capital";     // Determine binding where there is a description of the attribute used for binding with other dictionary     ImportBinding.LinkBinding := LinkBinding;     // Determine that borrowed attribute will display     // names of elements from linked dictionary     ImportBinding.Lookup := LinkBinding.Dictionary.Attributes.Name;     // Determine binding for the attribute with multiple values     MultiValueBinding := Bindings.Add(RdsLoaderBindingType.UserAttribute);     // Determine attribute name and identifier     MultiValueBinding.Id := "MULTIATTR";     MultiValueBinding.Name := "National languages";     // Determine field in table source which contains values for this attribute     MultiValueBinding.Field := "MULTIATTR";     // Determine attribute data type     MultiValueBinding.DataType := DbDataType.String;     // Determine that attribute can have multiple values     MultiValueBinding.HasMultipleValues := True;     // Determine table where multiple values are stored     MultiValueBinding.DetailTableObject := MB.ItemById("T_ATTRVALUES");     // Determine used fields with data from table where multiple values are stored     MultiValueBinding.KeyField := "KEY";     MultiValueBinding.OrderField := "ORDER";     MultiValueBinding.ValueField := "VALUE";     // Determine that multiple attribute can contain empty values     MultiValueBinding.Nullable := True;     // Determine information about created dictionary     CrInfo := MB.CreateCreateInfo;     CrInfo.Parent := MB.ItemById("MDM");     CrInfo.Id := MB.GenerateId("Dict", CrInfo.Parent.Key);     // Create and save dictionary     (RdsLoader.CreateObject(CrInfo) As IMetabaseObject).Save;     // Load data     RdsLoader.Load(UpdateLoadMode.Insert); End Sub UserProc;

Executing the example sets up the object used to create table MDM dictionaries and to load data to it. Data source is specified in the object settings, and bindings for various attribute types are created. After it the dictionary of countries is created and data about capitals and national languages are loaded to it.

Fore.NET Example

The requirements and result of the Fore.NET Example execution match with those in the Fore Example.

Imports Prognoz.Platform.Interop.Dal; Imports Prognoz.Platform.Interop.Db; Imports Prognoz.Platform.Interop.Rds; … Public Shared Sub Main(Params: StartParams); Var     MB: IMetabase;     CrInfo: IMetabaseObjectCreateInfo;     LinkDictionary: IRdsDictionary;     RdsLoader: IMetaRdsLoader;     Bindings: IRdsLoaderBindings;     PredBinding: IRdsPredefinedBinding;     LinkBinding: IRdsLinkedBinding;     ImportBinding: IRdsImportedBinding;     MultiValueBinding: IRdsBaseBinding; Begin     // Get current repository     MB := Params.Metabase;     // Get dictionary with which binding will be created     LinkDictionary := MB.ItemByIdNamespace["DICT_LINKED", MB.GetObjectKeyById("MDM")].Bind() As IRdsDictionary;     // Create object to create table MDM dictionary and to load data to it     RdsLoader := New MetaRdsLoader.Create();     // Determine table from which data is loaded     RdsLoader.TableSource := MB.ItemById["T_DICTIONARY"].Bind() As ITable;     // Get bindings of table source fields and created table MDM dictionary     Bindings := RdsLoader.Bindings;     // Determine bindings of mandatory sestem attributes of table MDM dictionary     Bindings.KeyBinding.Field := "KEY";     Bindings.NameBinding.Field := "NAME";     Bindings.OrderBinding.Field := "ORD";     // Determine binding for the Owner attribute in table MDM dictionary     PredBinding := Bindings.Add(RdsLoaderBindingType.rlbtPredefined) As IRdsPredefinedBinding;     PredBinding.PredefinedType := RdsPredefinedAttribute.rpaParentKey;     PredBinding.Field := "PARENT";     // Determine binding for the attribute which will be used to link with another dictionary     LinkBinding := Bindings.Add(RdsLoaderBindingType.rlbtLinked) As IRdsLinkedBinding;     // Determine attribute name and identifier     LinkBinding.Id := "FORLINK";     LinkBinding.Name := "Для связи";     // Determine that link is created by key     LinkBinding.Reference := LinkDictionary.Attributes.Key;     // Determine filed in the source table which contain values for this attribute     LinkBinding.Field := "FORLINK";     // Create borrowed attribute from linked dictionary     ImportBinding := Bindings.Add(RdsLoaderBindingType.rlbtImported) As IRdsImportedBinding;     // Determine attribute name and identifier     ImportBinding.Id := "NAME_LINKEDDICT";     ImportBinding.Name := "Capital";     // Determine binding where there is a description of the attributeused for link with another dictionary     ImportBinding.LinkBinding := LinkBinding;     // Determine that borrowed attribute will display     // name of elements from linked dictionary     ImportBinding.Lookup := LinkBinding.Dictionary.Attributes.Name;     // Determine binding for the attribute with multiple values     MultiValueBinding := Bindings.Add(RdsLoaderBindingType.rlbtUserAttribute);     // Determine name and identifier of the attribute     MultiValueBinding.Id := "MULTIATTR";     MultiValueBinding.Name := "National languages;     // Determine field in the source table whcih contains values of this attribute     MultiValueBinding.Field := "MULTIATTR";     // Determine attribute data type     MultiValueBinding.DataType := DbDataType.ddtString;     // Determine that attribute can have multiple values     MultiValueBinding.HasMultipleValues := True;     // Determine table where multiple values are stored     MultiValueBinding.DetailTableObject := MB.ItemById["T_ATTRVALUES"];     // Determine used fields with data from table where multiple values are stored     MultiValueBinding.KeyField := "KEY";     MultiValueBinding.OrderField := "ORDER";     MultiValueBinding.ValueField := "VALUE";     // Determine that multiple attribute can contain empty values     MultiValueBinding.Nullable := True;     // Determine information about created dictionary     CrInfo := MB.CreateCreateInfo();     CrInfo.Parent := MB.ItemById["MDM"];     CrInfo.Id := MB.GenerateId("Dict", CrInfo.Parent.Key);     // Creare and save dictionary     (RdsLoader.CreateObject(CrInfo) As IMetabaseObject).Save();     // Load data     RdsLoader.Load(UpdateLoadMode.ulmInsert); End Sub;

IRdsLoaderBindings.Add

Fore Syntax

Fore.NET Syntax

Parameters

Description

Comments

Fore Example

Fore.NET Example