ISolrFilterCondition.Nested

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    SharedParams: ISharedParams;
    SearchEngine: ISolrSearchEngineService;
    Schema: ISolrSearchEngineSchema;
    SearchExecutor: ISearchExecutor;
    SolrContext: ISolrSearchContext;
    Condition1, Condition2: ISolrFilterCondition;
    ConditionValues1, ConditionValues2: ISolrFilterFieldValues;
    Values1, Values2: Array Of Variant;
    SearchContext: ISolrSourceDataSearchContext;
    Results: ISolrSearchResults;
    Result: ISearchResult;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    //Search and indexing parameters specified for repository
    SharedParams := MB.SpecialObject(MetabaseSpecialObject.SharedParams).Bind As ISharedParams;
    SearchEngine := SharedParams.SearchEngine As ISolrSearchEngineService;
    Schema := SearchEngine.SearchEngineSchema As ISolrSearchEngineSchema;
    SearchExecutor := Schema.SearchExecutor(SearchEngineTargetType.SourceData);
    SolrContext := SearchExecutor.CreateContext As ISolrSearchContext;
    //Filtering parameters
    Condition1 := SolrContext.FilterContext.FilterCondition.Nested.Add;
    Condition1.SolrField := Schema.Fields(SearchEngineTargetType.SourceData).FindById("name");
    Condition1.Operator_ := LogicalOperator.And_;
    ConditionValues1 := Condition1.Values;
    ConditionValues1.Operator_ := LogicalOperator.Or_;
    Values1 := New Variant[2];
    Values1[0] := "Income";
    Values1[1] := "Expense";
    ConditionValues1.Values := Values1;
    //Linked condition
    Condition2 := SolrContext.FilterContext.FilterCondition.Nested.Add;
    Condition2.Operator_ := LogicalOperator.And_;
    Condition2.SolrField := Schema.Fields(SearchEngineTargetType.SourceData).FindById("time");
    ConditionValues2 := Condition2.Values;
    ConditionValues2.Operator_ := LogicalOperator.Or_;
    Values2 := New Variant[2];
    Values2[0] := "2000";
    Values2[1] := "2001";
    ConditionValues2.Values := Values2;
    //Search parameters
    SearchContext := SolrContext As ISolrSourceDataSearchContext;
    SearchContext.Locale := LocaleCodeID.Russian;
    SearchContext.Text := "Russia";
    //Search
    Results := SearchExecutor.Search(SearchContext) As ISolrSearchResults;
    //View search results
    For i := 0 To Results.Count - 1 Do
        Result := Results.Item(i);
        Debug.WriteLine("Name: """ + Result.Name + """. Description: """ + Result.Description + '"');
        If Result.HighlightedName <> "" Then
            Debug.Indent;
            Debug.WriteLine("values with highlighting of searched value:");
            Debug.WriteLine("Name: """ + Result.HighlightedName + """. Description: """ + Result.HighlightedDescription + '"');
            Debug.Unindent;
        End If;
    End For;
End Sub UserProc;