DataSourceKey: Integer;
DataSourceKey: Integer;
Свойство DataSourceKey определяет значение параметра «DS_KEY» в строке связи.
Параметр «DS_KEY» определяет ключ источника данных регламентного отчета, для которого созданы вычисляемые точки.
Свойство DataSourceKey задается в комбинации со свойствами DimensionKey и PointKey.
Свойство DataSourceKey доступно для использования, если свойству DataSourceKeyDefined установлено значение True. При изменении свойства DataSourceKey свойству DataSourceKeyDefined автоматически устанавливается значение True.
Function CreateDimComboBidningForDataSource(DataSource: IPrxDataSource; DimensionId: String): String;
Var
BM: IBindingManager;
Point: IPrxCalculatedPoint;
DimComboBinding: IBindingDimCombo;
Begin
BM := New BindingManager.Create;
If DataSource.Points.Count <> 0 Then
Point := DataSource.Points.Item(0);
//Настройка параметров
DimComboBinding := BM.CreateByUi("DimCombo") As IBindingDimCombo;
DimComboBinding.DataSourceKey := DataSource.Key;
DimComboBinding.PointKey := Point.Key;
DimComboBinding.DimensionKey := Point.SelectionSet.FindById(DimensionId).Dimension.Key;
DimComboBinding.SelectionMode := SelectionModeEnum.SingleSelect;
Return DimComboBinding.AsString;
Else
Return "";
End If;
End Function CreateDimComboBidningForDataSource;
Данная функция генерирует строку связи для использования редактора значения в виде раскрывающегося списка справочника. Редактор настраивается на указанное измерение первый вычисляемой точки источника данных. Источник данных и идентификатор измерения передаются в качестве входных параметров.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.ForeSystem;
Function CreateDimComboBidningForDataSource(DataSource: IPrxDataSource; DimensionId: String): String;
Var
BM: BindingManager = New BindingManagerClass();
Point: IPrxCalculatedPoint;
DimComboBinding: IBindingDimCombo;
Begin
If DataSource.Points.Count <> 0 Then
Point := DataSource.Points.Item[0];
//Настройка параметров
DimComboBinding := BM.CreateByUi("DimCombo") As IBindingDimCombo;
DimComboBinding.DataSourceKey := DataSource.Key;
DimComboBinding.PointKey := Point.Key;
DimComboBinding.DimensionKey := Point.SelectionSet.FindById(DimensionId).Dimension.Key;
DimComboBinding.SelectionMode := SelectionModeEnum.semodSingleSelect;
Return DimComboBinding.AsString;
Else
Return "";
End If;
End Function;
См. также: