>*---------------------- Location Section ------------------------ >* Library: Asearchcontrols.vcx >* Class: Cntphonesearch >* Method: Getwhereexpression() >*----------------------- Usage Section -------------------------- >*) Description: >*) > >* Scope: Public >* Parameters: >*$ Usage: >*$ >* Returns: >*--------------------- Maintenance Section ---------------------- >* Change Log: >* CREATED 08/12/2005 - NN >* MODIFIED >*---------------------------------------------------------------- >LOCAL lcRetVal >lcRetVal = "" >DO case > case NOT EMPTY(this.txtAreaCode.Value) AND NOT EMPTY(this.txtExchange.Value) AND NOT EMPTY(this.txtLastFour.Value) > lcRetVal = SUBSTR(STRTRAN(this.cSeparator + this.cFldname, this.cSeparator, "+##ALIAS##."),2) ; > + " LIKE '" + this.txtAreaCode.Value + this.txtExchange.Value + ; > this.txtLastFour.Value + "%'" > case EMPTY(this.txtAreaCode.Value) AND NOT EMPTY(this.txtExchange.Value) AND NOT EMPTY(this.txtLastFour.Value) > lcRetVal = SUBSTR(STRTRAN(this.cSeparator + this.cFldname, this.cSeparator, "+##ALIAS##."),2) ; > + " LIKE '???" + this.txtExchange.Value + ; > this.txtLastFour.Value + "%'" >ENDCASE > >this.cWhereExp = STRTRAN(m.lcRetVal, "##ALIAS##", this.cAliasname) > >RETURN m.lcRetVal>