IBindingDimCombo.DataSourceKeyDefined

Синтаксис Fore

DataSourceKeyDefined: Boolean;

Синтаксис Fore.NET

DataSourceKeyDefined: Boolean;

Описание

Свойство DataSourceKeyDefined определяет признак наличия параметра «DS_KEY» в строке связи.

Комментарии

Если свойству DataSourceKeyDefined установлено значение True, то в строке связи, описывающей редактор значения, будет присутствовать параметр «DS_KEY». Значение данного параметра определяет свойство DataSourceKey.

Пример Fore

Sub DimComboBindingInfo(SourceBinding: String);
Var
    BM: IBindingManager;
    Binding: IBindingValue;
    DimComboBinding: IBindingDimCombo;
Begin
    BM := New BindingManager.Create;
    Binding := BM.CreateByValue(SourceBinding);
    If Binding.UI = "DimCombo" Then
        DimComboBinding := Binding As IBindingDimCombo;
        //Проверка наличия параметра GROUP
        If DimComboBinding.GroupDefined Then
            Debug.WriteLine("GROUP: " + DimComboBinding.Group);
        End If;
        //Проверка наличия параметра SCHEMA
        If DimComboBinding.SchemaDefined Then
            Debug.WriteLine("SCHEMA: " + DimComboBinding.Schema);
        End If;
        //Проверка наличия параметра CUSTOMMULTISELECTTEXT
        If DimComboBinding.CustomMultiselectTextDefined Then
            Debug.WriteLine("CUSTOMMULTISELECTTEXT: " + DimComboBinding.CustomMultiselectText);
        End If;
        //Проверка наличия параметра LEVELATTR
        If DimComboBinding.LevelAttributeDefined Then
            Debug.WriteLine("LEVELATTR: " + DimComboBinding.LevelAttribute);
        End If;
        //Проверка наличия параметра ID
        If DimComboBinding.ObjectDefined Then
            Debug.WriteLine("ID: " + DimComboBinding.Object);
        End If;
        //Проверка наличия параметра RDS
        If DimComboBinding.RdsDefined Then
            Debug.WriteLine("RDS: " + DimComboBinding.Rds);
        End If;
        //Проверка наличия параметра SELECTIONMODE
        If DimComboBinding.SelectionModeDefined Then
            Debug.WriteLine("SELECTIONMODE: " + DimComboBinding.SelectionMode.ToString);
        End If;
        //Проверка наличия параметра VALUE
        If DimComboBinding.ValueDefined Then
            Debug.WriteLine("VALUE: " + DimComboBinding.Value);
        End If;
        //Проверка наличия параметра ATTRIBUTEVALUE
        If DimComboBinding.ValueAttributeDefined Then
            Debug.WriteLine("ATTRIBUTEVALUE: " + DimComboBinding.ValueAttribute);
        End If;
        //Проверка наличия параметра DS_KEY
        If DimComboBinding.DataSourceKeyDefined Then
            Debug.WriteLine("DS_KEY: " + DimComboBinding.DataSourceKey.ToString);
        End If;
        //Проверка наличия параметра PT_KEY
        If DimComboBinding.PointKeyDefined Then
            Debug.WriteLine("PT_KEY: " + DimComboBinding.PointKey.ToString);
        End If;
        //Проверка наличия параметра DIM_KEY
        If DimComboBinding.DimensionKeyDefined Then
            Debug.WriteLine("DIM_KEY: " + DimComboBinding.DimensionKey.ToString);
        End If;
    End If;
End Sub DimComboBindingInfo;

Данная функция осуществляет проверку строки связи, передаваемой в качестве входного параметра SourceBinding. Если строка связи соответствует редактору в виде раскрывающегося списка справочника, то значения параметров, которые для него определены, будут выведены в консоль среды разработки.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.ForeSystem;

Sub DimComboBindingInfo(SourceBinding: String);
Var
    BM: BindingManager = New BindingManagerClass();
    Binding: IBindingValue;
    DimComboBinding: IBindingDimCombo;
Begin
    Binding := BM.CreateByValue(SourceBinding);
    If Binding.UI = "DimCombo" Then
        DimComboBinding := Binding As IBindingDimCombo;
        //Проверка наличия параметра GROUP
        If DimComboBinding.GroupDefined Then
            System.Diagnostics.Debug.WriteLine("GROUP: " + DimComboBinding.Group);
        End If;
        //Проверка наличия параметра SCHEMA
        If DimComboBinding.SchemaDefined Then
            System.Diagnostics.Debug.WriteLine("SCHEMA: " + DimComboBinding.Schema);
        End If;
        //Проверка наличия параметра CUSTOMMULTISELECTTEXT
        If DimComboBinding.CustomMultiselectTextDefined Then
            System.Diagnostics.Debug.WriteLine("CUSTOMMULTISELECTTEXT: " + DimComboBinding.CustomMultiselectText);
        End If;
        //Проверка наличия параметра LEVELATTR
        If DimComboBinding.LevelAttributeDefined Then
            System.Diagnostics.Debug.WriteLine("LEVELATTR: " + DimComboBinding.LevelAttribute);
        End If;
        //Проверка наличия параметра ID
        If DimComboBinding.ObjectDefined Then
            System.Diagnostics.Debug.WriteLine("ID: " + DimComboBinding.Object);
        End If;
        //Проверка наличия параметра RDS
        If DimComboBinding.RdsDefined Then
            System.Diagnostics.Debug.WriteLine("RDS: " + DimComboBinding.Rds);
        End If;
        //Проверка наличия параметра SELECTIONMODE
        If DimComboBinding.SelectionModeDefined Then
            System.Diagnostics.Debug.WriteLine("SELECTIONMODE: " + DimComboBinding.SelectionMode.ToString());
        End If;
        //Проверка наличия параметра VALUE
        If DimComboBinding.ValueDefined Then
            System.Diagnostics.Debug.WriteLine("VALUE: " + DimComboBinding.Value);
        End If;
        //Проверка наличия параметра ATTRIBUTEVALUE
        If DimComboBinding.ValueAttributeDefined Then
            System.Diagnostics.Debug.WriteLine("ATTRIBUTEVALUE: " + DimComboBinding.ValueAttribute);
        End If;
        //Проверка наличия параметра DS_KEY
        If DimComboBinding.DataSourceKeyDefined Then
            System.Diagnostics.Debug.WriteLine("DS_KEY: " + DimComboBinding.DataSourceKey.ToString());
        End If;
        //Проверка наличия параметра PT_KEY
        If DimComboBinding.PointKeyDefined Then
            System.Diagnostics.Debug.WriteLine("PT_KEY: " + DimComboBinding.PointKey.ToString());
        End If;
        //Проверка наличия параметра DIM_KEY
        If DimComboBinding.DimensionKeyDefined Then
            System.Diagnostics.Debug.WriteLine("DIM_KEY: " + DimComboBinding.DimensionKey.ToString());
        End If;
    End If;
End Sub DimComboBindingInfo;

См. также:

IBindingDimCombo