Clipper/FiveWin - Campos Memo

Alguien sabe como trabajar con campos memo en fw o trabajar de alguna forma descripciones largas.

Los campos memo se tratan como una variable mas en FW
Ejm

cVar := Field->Observ // OBSERV CAMPO MEMO

@ x,y GET oVar VAR cVar MEMO ... ETC
.
.
.
Field->Observ := cVar // Grabacion normal

el campo memo esta vacío por ende la variable a la que lo asigne también está vacía, como logro de todas formas agregar datos en esta variable.

Que MariaFe, bueno + o - sospecho el problema que debes tener, yo tuve un problema cunado trabajaba con Fw y Ws 4.5 para estos casos define tu get con puro codigo defiene no utlices redefine ( recursos Dll )

Hey MariaFe aqui el codigo , el truco es que debe estar una funcion en el init del Dlg y con define get

SketchC->(Dbseek( cSketch ))
cObs:=SketchC->GsdgObserv
DEFINE DIALOG oDlgObs RESOURCE "DLGOBS"
REDEFINE BUTTON ID 400 OF oDlgObs Action lOk:=MsgYesNo
REDEFINE BUTTON ID 401 OF oDlgObs Action oDlgObs:End()
ACTIVATE DIALOG oDlgObs CENTER ON INIT GETMEMO(oDlgObs)
Retur Nil
*-*-*
STATIC FUNCTION GETMEMO(oDlgMemo)
*-*-*
@ 2, 3 Get oGet VAR cObs MEMO SIZE 470,210 Of oDlgMemo
Retur Nil

Maria
No te cierres a reglas de programacion, siempre prueba nuevas formas. Aqui algio de lo que te digo

Un ejemplo de campos memo en Fw con puro codigo

#include "fivewin.ch"

Procedure Main()
aBase :={}
AAdd(aBase,{"Nombre","C",20,0} )
AAdd(aBase,{"Obsrv" ,"M",10,0} )
dbCreate("Prueba",aBase)
Use Prueba Exclu New
Append Blank
cMemo1 := "" // Variable vacia para tratarlo como memo
cMemo2 := Field->Obsrv // Toma de la base Prueba
Define font oFnt01 Name "Arial" Size 5,14
Define dialog oDlg From 0,0 to 15,60 Title "Prueba Campo Memo"
@05,05 Get cMemo1 MEMO SIZE 200,40 PIXEL FONT ofnt01 Of oDlg

@60,05 Get cMemo2 MEMO SIZE 200,40 PIXEL FONT ofnt01 Of oDlg
Activate Dialog oDlg CENTER