SELECT TYPE, calldate AS act_time, lcPrblem AS problem_id, ; "OLDFLTDB" AS user_id, lcclient AS client_id, ; ALLTRIM(contacttype) + " - " + ; TEXT AS act_notes, ; && <------- this is a memo field ForceMemo("Number: " + ALLTRIM(STR(NUMBER)) ; + " ID: " + ALLTRIM(STR(ID))) AS nxtact_not, ; && <-- this is a memo field TTOD(calldate) AS act_date ; FROM ctempaction LEFT JOIN cactiontype ; ON ctempaction.TYPE = cactiontype.contacttypeid ; WHERE NUMBER = lnnumber ; AND !EMPTY(TEXT) ; INTO CURSOR csupaction READWRITE nofilter ForceMemo("",-1) && Close temporary memo cursor *************************************** FUNCTION ForceMemo(tcExpr, teKill) LOCAL lnSelect IF PCOUNT() > 1 ** close the memo cursor USE IN SELECT("__forcememo") RETURN ENDIF IF NOT USED("__forcememo") ** memo cursor is not created, create it now lnSelect = SELECT() SELECT 0 CREATE CURSOR __forcememo (foo m) APPEND BLANK SELECT (lnSelect) ENDIF ** Stuff value into memo field REPLACE __forcememo.foo WITH tcExpr ** Return memo field RETURN __forcememo.foo ENDFUNC