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