Aqui dejo adjunto la imagen de mi servidor y la del manage cuando hago la conexion antes de que truene y el codigo
#Include "Fivewin.ch"
FUNCTION Main()
LOCAL cServer := '//192.168.0.201:2812/', i
REQUEST LETO
RDDSETDEFAULT("LETO")
IF Leto_Connect(cServer)==-1
msginfo("no hay conexion con el servidor "+cServer)
return NIL
ELSE
msginfo("Conexion establecida con el servidor "+cServer)
ENDIF
DBCREATE(cServer+"prueba1",;
{{"campo1", "N", 3, 0},;
{"campo2", "C", 15, 0},;
{"fecha" , "D", 8, 0}})
msginfo("creo la dbf")
DBUSEAREA(.t.,,cServer+"prueba1","prueba1")
msginfo("abrio la dbf")
Index on prueba1->campo1 TAG campo1
msginfo("creo el indice")
FOR i := 1 TO 100
prueba1->(RLock())
prueba1->(DbAppend())
prueba1->campo1 := i
prueba1->campo2 := "Registro "+str(i,3)
prueba1->fecha := date()
prueba1->(DbUnlock())
NEXT
prueba1->(dbseek(50))
msginfo(prueba1->campo2)
prueba1->(dbclosearea())
RETURN NIL
[img=http://img297.imageshack.us/img297/2788/letoimgkl9.jpg][/url]
http://img297.imageshack.us/img297/2788/letoimgkl9.jpg
salu2
paco