IRubricatorDictionaryLookup.LookupFactorsC

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

Sub UserProc;
Var
    mb: IMetabase;
    RubI: IRubricatorInstance;
    pFactsLookup: IRubricatorFactsLookup;
    CompKey: Array[2];
    Key, arr: Array Of Variant;
    i, idx: Integer;
    s: String;
Begin
    mb := MetabaseClass.Active;
    RubI := mb.ItemById("RUBRICATOR_CUBE").Open(Null) As IRubricatorInstance;
    pFactsLookup := RubI.CreateFactsLookup;
    CompKey[0] := 512; CompKey[1] := 1009;
    pFactsLookup.WhereCompoundFactorKey := CompKey;
    If pFactsLookup.LookupFactorsC <> Null Then
        i := pFactsLookup.LookupFactorsC.Length;
    Debug.WriteLine("Найдено: " + i.ToString);
        Key := New Variant[i];
        Key := pFactsLookup.LookupFactorsC;
        For i := 0 To Key.Length - 1 Do
            arr := Key[i] As Array Of Variant;
            s := "";
            For idx := 0 To arr.Length - 1 Do
                s := s + (arr[idx] As string) + "; ";
            End For;
            Debug.WriteLine(s);
        End For;
    End If;
End Sub UserProc;