IMDCalculationInstance.AllFormulas

Синтаксис Fore

AllFormulas: IMDCalculationFormulasIterator;

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

AllFormulas: Prognoz.Platform.Interop.Cubes.IMDCalculationFormulasIterator;

Описание

Метод AllFormulas возвращает итератор по формулам многомерного расчета.

Пример Fore

Для выполнения примера предполагается наличие в репозитории многомерного расчета с идентификатором «OBJMD».

Sub UserProc;
Var
    Mb: IMetabase;
    MDInst: IMDCalculationInstance;
    Iterator: IMDCalculationFormulasIterator;
    i: integer;
Begin
    Mb := MetabaseClass.Active;
    MDInst := Mb.ItemById("OBJMD").Open(Null) As IMDCalculationInstance;
    Iterator := MDInst.AllFormulas;
    i := 0;
    While Not Iterator.Eof Do
        i := i + 1;
        Iterator.Next;
    End While;
    Debug.WriteLine("Количество формул: " + i.ToString);
End Sub UserProc;

После выполнения примера в окно консоли будет выведено количество имеющихся формул в многомерном расчете.

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории многомерного расчета с идентификатором «OBJMD». Указанная процедура является точкой входа для .NET-сборки.

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    MDCalc: IMDCalculationInstance;
    Iterator: IMDCalculationFormulasIterator;
    i: integer;
Begin
    Mb := Params.Metabase;
    MDCalc := Mb.ItemById["OBJMD"].Open(Null) As IMDCalculationInstance;
    Iterator := MDCalc.AllFormulas();
    i := 0;
    While Not Iterator.Eof() Do
        i := i + 1;
        Iterator.Next();
    End While;
    System.Diagnostics.Debug.WriteLine("Количество формул: " + i.ToString());
End Sub;

После выполнения примера в окно консоли будет выведено количество имеющихся формул в многомерном расчете.

См. также:

IMDCalculationInstance