IRdsDictionary.IsBigDictionary

Fore Syntax

IsBigDictionary: Boolean;

Fore.NET Syntax

IsBigDictionary: boolean;

Description

The IsBigDictionary property determines whether the dictionary supports a large number of elements.

Comments

This property is supported only for table MDM dictionaries.

Available values:

True. The dictionary supports a large number of elements and does not support hierarchies. Such dictionaries open without elements list in the interface.
False. The dictionary does not support a large number of elements.

Fore Example

Executing the example requires that the repository contains an MDM repository with the RDS identifier. This repository must contain a table MDM dictionary with the DIC identifier.

Add links to the Metabase, Rds system assemblies.

Sub UserProc;
Var
    mb: IMetabase;
    rdsKey: Integer;
    Dict: IRdsDictionary;
Begin
    mb := MetabaseClass.Active;
    rdsKey := mb.GetObjectKeyById("RDS");
    // Get dictionary
    Dict := mb.ItemByIdNamespace("DIC", rdsKey).Edit As IRdsDictionary;
    // Specify, that the dictionary supports working with a large number of elements
    If Not Dict.IsBigDictionary Then
        Dict.IsBigDictionary := True;
    End If;
    (Dict As IMetabaseObject).Save;
End Sub UserProc;

After executing the example the DIC dictionary supports work with a large number of elements.

Fore.NET Example

Executing the example requires that the repository contains an MDM repository with the RDS identifier. This repository must contain a table MDM dictionary with the DIC identifier.

Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    rdsKey: uinteger;
    Dict: IRdsDictionary;
Begin
    mb := Params.Metabase;
    rdsKey := mb.GetObjectKeyById("RDS");
    // Get dictionary
    Dict := mb.ItemByIdNamespace["TABLE_DIC", rdsKey].Edit() As IRdsDictionary;
    // Specify, that the dictionary supports working with a large number of elements
    If Not Dict.IsBigDictionary Then
        Dict.IsBigDictionary := True;
    End If;
    (Dict As IMetabaseObject).Save();
End Sub;

After executing the example the DIC dictionary supports work with a large number of elements.