FiveTech Support Forums

// Cargo en la variable el dato del campo que antes lo guarde en la query
mObsTRE   :=oQry:obs_TRE

oRTF := TRichEdit():Redefine( 100, { || "" }, oFolCli:aDialogs[7] )
oRTF:lHighLight = .F.

// Cargo los datos de la variable al objeto oRTF
oRTF:LoadAsRTF(mObsTRE)
oRTF:SetText(mObsTRE)

// Aca preparo la variable a guardar en la tabla
mObsTREmod := oRTF:SaveAsRTF()
...
cQuery += " obs_TRE=" + ClipValue2SQL(mObsTREmod)

// Esto escribi en el memo y lo guarde
PROBANDO LA RICHEDIT
// Al leerlo me muestra esto:
{
tf1ansiansicpg1252deff0deflang11274{fonttbl{f0fnilfcharset0 Arial;}}
viewkind4uc1pardfs20 PROBANDO LA RICHEDITpar
}

Static Function SaveToMemo()

 local cTest:=cGetNewAlias('test'), cRTFaMEMO, oDbf, cTexto

 use "TestRTF" shared new alias (cTest)
             DATABASE oDbf

  cTexto:=oRTF:SaveAsRTF(oRTF:cText)
  oDbf:gotop()

  oDbf:DATOS:=cTexto
  oDbf:save()
  oRTF:refresh()
  oDbf:close()

Return nil

Static Function RecuperoDelMemo()
local cTest:=cGetNewAlias('test'), cRTFaMEMO, oDbf, cTexto

 use "TestRTF" shared new alias (cTest)
             DATABASE oDbf

 oDbf:gotop()
  cTexto:=oRTF:LoadAsRTF(oDbf:DATOS)
  oRTF:refresh()
  oDbf:close()


Return nil