LPARAMETERS luseCursorSchema, lNoData, nOptions, Source LOCAL ; lc_where as String, ; lv_result as Variant IF (( NOT EMPTY(THIS.c_where_clause) )) lc_where = " WHERE " + THIS.c_where_clause ELSE lc_where = SPACE(0) ENDIF THIS.c_select_cmd = THIS.SelectCmd && Save our default Select Command TEXT TO THIS.SelectCmd TEXTMERGE NOSHOW FLAGS 0 PRETEXT 1+2+4+8 <<THIS.SelectCmd>> <<lc_where>> ENDTEXT lv_result = DODEFAULT(luseCursorSchema, lNoData, nOptions, Source) THIS.SelectCmd = THIS.c_select_cmd && Return to our default Select Command RETURN lv_result