on change ( cCliente:=oGetCliente:GetText() )
cText := MemoRead('miarchivo.txt')
oServer:Execute("UPDATE mitabla SET campotexto = "+Clipvalue2Sql(cText) + " where id= 1")
#include "FiveWin.ch"
Static nWIDTH
Static nHEIGHT
FUNCTION Main()
nWIDTH := GetDesktopWidth()
nHEIGHT := GetDesktopHeight()
RETURN Nil