IRubricatorFactorDependencyData.CalendarPoint

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

Sub UserProc;
Var
    Mb: IMetabase;
    RubInst: IRubricatorInstance;
    DepLoo: IRubricatorFactorDependenciesLookup;
    DepData: IRubricatorFactorDependencyData;
Begin
    Mb := MetabaseClass.Active;
    RubInst := Mb.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
    DepLoo := RubInst.CreateDependenciesLookup;
    DepLoo.WhereDependentFactorKey := 98544;
    DepLoo.Open;
    While (Not DepLoo.Eof) Do
        DepData := DepLoo.Current;
        Debug.WriteLine("Ключ записи показателя: " + DepData.FactorIdentity.ToString);
        Debug.WriteLine("Ключ показателя: " + DepData.FactorKey.ToString);
        Debug.WriteLine("Ключ ревизии: " + DepData.RevisionKey.ToString);
        Debug.WriteLine("Ключ формулы: " + DepData.FormulaKey.ToString);
        Debug.WriteLine("Позиция в формуле: " + DepData.Position.ToString);
        Debug.WriteLine("Ключ записи зависимого показателя: " + DepData.DependentFactorIdentity.ToString);
        Debug.WriteLine("Ключ зависимого показателя: " + DepData.DependentFactorKey.ToString);
        Debug.WriteLine("Ключ ревизии зависимого показателя: " + DepData.DependentRevisionKey.ToString);
        Debug.WriteLine("-----");
        DepLoo.Next;
    End While;
    DepLoo.Close;
End Sub UserProc;