>>*---------------------- 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>>