Result: IMsFormulaTerm;
Result: Prognoz.Platform.Interop.Ms.IMsFormulaTerm;
Свойство Result возвращает терм, соответствующий моделируемой переменной.
Для получения термов, используемых для составления выражения агрегации, используйте свойство IMsCrossDimensionAggregationTransform.Options.
Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором «MS», содержащего модель расширенной агрегации с идентификатором «MODEL_AGGREGATION».
Добавьте ссылки на системные сборки: Metabase, Ms.
Sub UserProc;
Var
mb: IMetabase;
msDescr: IMetabaseObjectDescriptor;
Model: IMsModel;
Transform: IMsFormulaTransform;
Formula: IMsFormula;
Aggr: IMsCrossDimensionAggregationTransform;
i: Integer;
strsGen: IMsFormulaStringGenerator;
Begin
// Получаем текущий репозиторий
mb := MetabaseClass.Active;
// Получаем модель
msDescr := mb.ItemById("MS");
Model := mb.ItemByIdNamespace("MODEL_AGGREGATION", msDescr.Key).Bind As IMsModel;
// Получаем параметры модели
Transform := Model.Transform;
Formula := Transform.FormulaItem(0);
Aggr := Formula.Method As IMsCrossDimensionAggregationTransform;
strsGen := Formula.CreateStringGenerator;
strsGen.ShowFullVariableNames := True;
// Выводим информацию о модели в окно консоли
Debug.WriteLine("Выражение агрегации: " + strsGen.Execute);
Debug.WriteLine("Термы, использованные в выражении агрегации:");
Debug.Indent;
For i := 0 To Aggr.Operands.Count - 1 Do
Debug.WriteLine(Aggr.Operands.Item(0).TermToText);
End For;
Debug.Unindent;
Debug.WriteLine("Терм, соответствующий моделируемой переменной: " + Aggr.Result.TermToText);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведена информация о выражении агрегации, о термах, использованных в выражении и терме, соответствующем моделируемой переменной.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Ms;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
msDescr: IMetabaseObjectDescriptor;
Model: IMsModel;
Transform: IMsFormulaTransform;
Formula: IMsFormula;
Aggr: IMsCrossDimensionAggregationTransform;
i: Integer;
strsGen: IMsFormulaStringGenerator;
Begin
// Получаем текущий репозиторий
mb := Params.Metabase;
// Получаем модель
msDescr := mb.ItemById["MS"];
Model := mb.ItemByIdNamespace["MODEL_AGGREGATION", msDescr.Key].Bind() As IMsModel;
// Получаем параметры модели
Transform := Model.Transform;
Formula := Transform.FormulaItem[0];
Aggr := Formula.Method As IMsCrossDimensionAggregationTransform;
strsGen := Formula.CreateStringGenerator();
strsGen.ShowFullVariableNames := True;
// Выводим информацию о модели в окно консоли
System.Diagnostics.Debug.WriteLine("Выражение агрегации: " + strsGen.Execute());
System.Diagnostics.Debug.WriteLine("Термы, использованные в выражении агрегации:");
System.Diagnostics.Debug.Indent();
For i := 0 To Aggr.Operands.Count - 1 Do
System.Diagnostics.Debug.WriteLine(Aggr.Operands.Item[0].TermToText());
End For;
System.Diagnostics.Debug.Unindent();
System.Diagnostics.Debug.WriteLine("Терм, соответствующий моделируемой переменной: " + Aggr.Result.TermToText());
End Sub;
См. также: