[libRETS-users] Search Function Snippet

[Vincent Blain]

Private Function Search(ByVal SearchType As String, ByVal SearchClass As
String, ByVal Filter As String, ByVal Import As Boolean) As
librets.SearchResultSet

 

        If Login = True Then

 

            Dim RetsSearch As librets.SearchRequest

            Dim szSelect As System.Text.StringBuilder = New
System.Text.StringBuilder(0)

 

            RetsSearch = New SearchRequest(SearchType, SearchClass,
Filter & " AND (LISTSTATUS=ACT*,ACONT*,PEND*)")

            RetsSearch.SetStandardNames(True)

 

            If Import = False Then

 

 
szSelect.Append("UID,MLSNUM,ListStatus,ListPrice,ListDate,PhotoCount,Pro
pType,City,State,ZipCode,AGENTLIST_FULLNAME,BEDMASTERDIM")

 

                'HACK: Seems like YearBuilt is not part of the RNT Class

                If SearchClass <> "RNT" Then

                    szSelect.Append(",YearBuilt")

                End If

 

            Else

                szSelect.Append("AGENTCOLIST")

                szSelect.Append(",AGENTCOSELL")

                szSelect.Append(",AGENTLIST")

                szSelect.Append(",AGENTSELL")

                szSelect.Append(",APPLIANCES")

                szSelect.Append(",AREA")

                szSelect.Append(",AREARANGE")

                szSelect.Append(",ASSOCFEE")

                szSelect.Append(",ASSOCFEEYN")

                szSelect.Append(",AUCTION")

                szSelect.Append(",BLOCK")

                szSelect.Append(",CITY")

                szSelect.Append(",CLOSEDDATE")

                szSelect.Append(",CLOSINGDATEEXPECTED")

                szSelect.Append(",COMMUNITYFEATURES")

                szSelect.Append(",COMPLEXNAME")

                szSelect.Append(",CONTRACTDATE")

                szSelect.Append(",CONTRACTSTATUS")

                szSelect.Append(",COOLSYSTEM")

                szSelect.Append(",COUNTY")

                szSelect.Append(",CURRENTLISTPRICEDATE")

                szSelect.Append(",DAYSONMARKET")

                szSelect.Append(",DAYSTOCLOSING")

                szSelect.Append(",DAYSTOSALE")

                szSelect.Append(",DIRECTIONS")

                szSelect.Append(",ENTEREDWHERE")

                szSelect.Append(",ENTRYDATE")

                szSelect.Append(",EXPIREDATE")

                szSelect.Append(",FINANCEPERMITTED")

                szSelect.Append(",FOLIO")

                szSelect.Append(",GARAGEDESC")

                szSelect.Append(",GARAGEFEAT")

                szSelect.Append(",GRID")

                szSelect.Append(",HEATSYSTEM")

                szSelect.Append(",HOASCHEDULE")

                szSelect.Append(",IDX")

                szSelect.Append(",INTERIORLAYOUT")

                szSelect.Append(",LEASEDATE")

                szSelect.Append(",LEASEPURCHASEDATE")

                szSelect.Append(",LEGAL")

                szSelect.Append(",LIMITEDSERVICE")

                szSelect.Append(",LISTDATE")

                szSelect.Append(",LISTDATERECEIVED")

                szSelect.Append(",LISTPRICE")

                szSelect.Append(",LISTPRICELOW")

                szSelect.Append(",LISTPRICEORIG")

                szSelect.Append(",LISTSTATUS")

                szSelect.Append(",LISTTYPE")

                szSelect.Append(",LISTTYPE2")

                szSelect.Append(",LISTTYPESPECIAL")

                szSelect.Append(",LOCATION")

                szSelect.Append(",LOTNUM")

                szSelect.Append(",MLSNUM")

                szSelect.Append(",MODIFIED")

                szSelect.Append(",MUNICIPALCODE")

                szSelect.Append(",NONREPFEE")

                szSelect.Append(",NUMUNITS")

                szSelect.Append(",OFFICELIST")

                szSelect.Append(",OFFICESELL")

                szSelect.Append(",OFFMARKETDATE")

                szSelect.Append(",ORIGINATINGBOARD")

                szSelect.Append(",OWNERNAME")

                szSelect.Append(",OWNERPHONE")

                szSelect.Append(",PHOTOCOUNT")

                szSelect.Append(",PHOTODATE")

                szSelect.Append(",PHOTOINSTR")

                szSelect.Append(",PREVIOUSPRICE")

                szSelect.Append(",PROPTYPE")

                szSelect.Append(",REALREMARKS")

                szSelect.Append(",REALTORAIDS")

                szSelect.Append(",REMARKS")

                szSelect.Append(",SALESPRICE")

                szSelect.Append(",SALESTEAMNAME")

                szSelect.Append(",SECTIONTOWNRANGE")

                szSelect.Append(",SHOWINSTR")

                szSelect.Append(",SIGNINSTR")

                szSelect.Append(",SOLDTERM")

                szSelect.Append(",SQFTHEATED")

                szSelect.Append(",STATE")

                szSelect.Append(",STREETDIR")

                szSelect.Append(",STREETNAME")

                szSelect.Append(",STREETNUM")

                szSelect.Append(",STREETNUMDISPLAY")

                szSelect.Append(",STREETTYPE")

                szSelect.Append(",STYLE")

                szSelect.Append(",SUBDIVISION")

                szSelect.Append(",SUBDIVISIONNUMBER")

                szSelect.Append(",TAXAMOUNT")

                szSelect.Append(",TAXYEAR")

                szSelect.Append(",TRANSACTIONFEE")

                szSelect.Append(",UID")

                szSelect.Append(",UTILITIES")

                szSelect.Append(",WATERFRONT")

                szSelect.Append(",WATERFRONTEXTRAS")

                szSelect.Append(",WATERFRONTTYPE")

                szSelect.Append(",WATERYN")

                szSelect.Append(",WITHDRAWALSTATUS")

                szSelect.Append(",WITHDRAWNDATE")

 

                'HACK: Seems like YearBuilt is not part of the RNT Class

                If SearchClass <> "RNT" Then

                    szSelect.Append(",YearBuilt")

                End If

 

                szSelect.Append(",ZIP4")

                szSelect.Append(",ZIPCODE")

                szSelect.Append(",ZONING")

                szSelect.Append(",UIDPRP")

                szSelect.Append(",ACRES")

                szSelect.Append(",CDDFEE")

                szSelect.Append(",COMMUNITYDISTRICT")

                szSelect.Append(",HOMESTEAD")

                szSelect.Append(",LOTSIZE")

                szSelect.Append(",MILLAGEAMT")

                szSelect.Append(",TAXDISTRICT")

                szSelect.Append(",CONSTRUCTION")

                szSelect.Append(",EXTERIOR")

                szSelect.Append(",FLOORS")

                szSelect.Append(",FRONTEXPOSURE")

                szSelect.Append(",INTERIOR")

                szSelect.Append(",KITCHENDESC")

                szSelect.Append(",MASTERBATHDESC")

                szSelect.Append(",MODELNAME")

                szSelect.Append(",POOL")

                szSelect.Append(",POOLOWNED")

                szSelect.Append(",ROOF")

                szSelect.Append(",SECURITYSYSTEM")

                szSelect.Append(",SQFTSOURCE")

                szSelect.Append(",TENANTNAME")

                szSelect.Append(",TENANTPHONE")

                szSelect.Append(",BALCONYSIZE")

                szSelect.Append(",BATHSFULL")

                szSelect.Append(",BATHSHALF")

                szSelect.Append(",BED2DIM")

                szSelect.Append(",BED3DIM")

                szSelect.Append(",BED4DIM")

                szSelect.Append(",BED5DIM")

                szSelect.Append(",BEDMASTERDIM")

                szSelect.Append(",BEDS")

                szSelect.Append(",BUILDINGIDENTIFIER")

                szSelect.Append(",CONDOBUILDING")

                szSelect.Append(",DAYSLEASE")

                szSelect.Append(",FLOORNUMUNITS")

                szSelect.Append(",LANDLEASEFEE")

                szSelect.Append(",MAINTINCLUDES")

                szSelect.Append(",MAINTMONTH")

                szSelect.Append(",NUMFLOORS")

                szSelect.Append(",OWNERSHIP")

                szSelect.Append(",PETWEIGHTMAX")

                szSelect.Append(",PROPERTYCODES")

                szSelect.Append(",PUDYN")

                szSelect.Append(",ROOMBONUSDIM")

                szSelect.Append(",ROOMDINETTEDIM")

                szSelect.Append(",ROOMDININGDIM")

                szSelect.Append(",ROOMFAMILYDIM")

                szSelect.Append(",ROOMGREATDIM")

                szSelect.Append(",ROOMKITCHENDIM")

                szSelect.Append(",ROOMLIVINGDIM")

                szSelect.Append(",RULES")

                szSelect.Append(",SQFTPRICE")

                szSelect.Append(",SQFTSALE")

                szSelect.Append(",UNITFLOORS")

                szSelect.Append(",UNITNUM")

                szSelect.Append(",AGENTLIST_FULLNAME")

                szSelect.Append(",AGENTLIST_PHONE")

                szSelect.Append(",AGENTCOLIST_FULLNAME")

                szSelect.Append(",AGENTCOLIST_PHONE")

                szSelect.Append(",AGENTSELL_FULLNAME")

                szSelect.Append(",AGENTSELL_PHONE")

                szSelect.Append(",AGENTCOSELL_FULLNAME")

                szSelect.Append(",AGENTCOSELL_PHONE")

                szSelect.Append(",OFFICELIST_OFFICENAME")

                szSelect.Append(",OFFICELIST_PHONE")

                szSelect.Append(",OFFICESELL_OFFICENAME")

                szSelect.Append(",OFFICESELL_PHONE")

 

            End If

 

            RetsSearch.SetSelect(szSelect.ToString)

            RetsSearch.SetLimit(SearchRequest.LIMIT_DEFAULT)

            RetsSearch.SetOffset(SearchRequest.OFFSET_NONE)

 
RetsSearch.SetCountType(SearchRequest.CountType.NO_RECORD_COUNT)

 

            Dim RetsResult As New librets.SearchResultSet

 

            Try

                RetsResult = RS.Search(RetsSearch)

            Catch ex As Exception

                Dim szer As String = ex.Message

                Throw ex

            End Try

 

            Return RetsResult

        Else

 

        End If

 

    End Function

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mail.crt.realtors.org/pipermail/librets-users/attachments/20070110/8962190c/attachment.html