ILanerSerie.Kind

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Workbook: IEaxAnalyzer;
    Laner: ILaner;
    Serie: ILanerSerie;
    SourceSerie: ILanerCalculateSerie;
Begin
    // Получим текущий репозиторий
    MB := MetabaseClass.Active;
    // Получим рабочую книгу
    Workbook := MB.ItemById("WORKBOOK").Bind As IEaxAnalyzer;
    // Получим рабочую область каталога показателей
    Laner := Workbook.Laner;
    // Получим первый ряд рабочей области
    Serie := Laner.Series.Item(0);
    // Выведем в консоль ключ ревизии, если ряд основан на показателе
    If Serie.Kind = LnSerieKind.Source Then
        SourceSerie := Serie As ILanerCalculateSerie;
        If SourceSerie.RevisionKey <> 0 Then
            Debug.WriteLine("Ключ ревизии: " + SourceSerie.RevisionKey.ToString);
        End If;
    End If;
End Sub UserProc;