Estoy pasando un pequeño programa de altas,bajas y modificaciones de dbf a mysql, y no tuve mayores problemas salvo al querer grabar los memo en el campo text de mysql. No me los graba. Ingresando con un utilitario para usar las bases de mysql, ingresé en el campo text unas cadenas de caracteres, y me las trae al diálogo pero no me toma las modificaciones que hago en la misma.
He aquí el código
Realmente no se como seguir. Si alguien tiene una idea como solucinarlo .
Muchas Gracias
Luis
He aquí el código
/////////////////////
REDEFINE BUTTON nbut[2] id 110 OF oDlgcli ACTION odlgcli:end()
REDEFINE BUTTON nbut[3] id 111 OF oDlgcli ACTION nmemo(oQry,lnuevo)
ACTIVATE DIALOG oDlgCli CENTER
IF lSalvar
oQry:iva := ivaa
// ? oQry:informe // aquí lo muestra bien pero no lo graba
oQry:save()
iif(!empty(olbx),olbx:refresh(),.f.) // Repintamos el objeto ListBox
ENDIF
RETURN( NIL )
FUNCTION nmemo(oQry,lnuevo)
local cDato := oQry:informe
local lcancel := .f., oBut1, oBut2, oMem
local odMemo
DEFINE DIALOG odMemo RESOURCE "dialo_memo"
REDEFINE GET oMem VAR cdato MEMO ID 101 of odMemo;
message "Datos varios del cliente" UPDATE;
MULTILINE
odMemo:bStart := { | | oMem:SetSel(0,0) }
REDEFINE BUTTON oBut1 ID 103 of odMemo ACTION (lCancel := .f.,odMemo:end());
message "Sale y Graba"
REDEFINE BUTTON oBut2 ID 102 of odMemo ACTION (lCancel := .t., odmemo:end());
message "Sale sin grabar"
ACTIVATE DIALOG odMemo
If !lCancel
oQry:informe := cDato
endif
return oQry:informeRealmente no se como seguir. Si alguien tiene una idea como solucinarlo .
Muchas Gracias
Luis
