Using Non-default Search Result List

Since Version 5.0 Pivotal allows us to use non default search result list to display results from an active search.

Although it is very straight forward deal, we still need to pay a little bit attention to the SearchSource parameter that is expected by UseSearchResultsList function. It expects Business Object Internal Name instead of table name and Business Object has to be made visible.

Sub ShowNonDefaultSearchResult(strBusinessObject, _
                                strSearchName, _ 
                                strSearchResultName)
 
    Const strSEARCH_TYPE = "search"
 
    Dim objSearchFactory 
    Set objSearchFactory = _ 
        UIMaster.CreateCenterReference(strSEARCH_TYPE)
 
    objSearchFactory.SearchType = searchTypeRegular   
 
    objSearchFactory.Options.UseSearchResultsList _ 
        strBusinessObject, strSearchResultName
 
    Set objSearchFactory.Search = _ 
        UIMaster.RSysClient.GetSearch(strSearchName)
 
    objSearchFactory.Options.AutoRun = True
    objSearchFactory.UsePlatformButtons = True  
    objSearchFactory.Parameters(0) = _ 
        UIMaster.RUICenter.RecordId
    UIMaster.ShowMultiSelectModal objSearchFactory, Null
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s


%d bloggers like this: