FoxPro/Visual FoxPro - Plinio, Kong y todos

Hola amisos,

Veremos si podemos llegar al final de este problema que sera de beneficio para todos.

Tengo un gran problema con vfp9 en la red, sere muy claro, colocando la base de datos en un servidor es imposible trabajar en las terminales:

** Este es mi programa principal de prueba

SET TALK OFF
SET EXCLUSIVE OFF
SET CENTURY on
SET OPTIMIZE ON

OPEN DATABASE x:d.dbc SHARED (esta esta en un servidor)

DO FORM c:supersoftarticulo.scx
** (este formulario tiene pegada una tablas de 80000 registro)
READ EVENTS

**Esta es my busqueda en cuadro de texto, ustedes me ayudaron a hacerla

SELECT ARTICULO
SET ORDER TO DESCRIP
IF this.Value <>' '
m.busca=ALLTRIM(this.Value)
SET FILTER TO ALLTRIM(articulo.descrip)= m.busca
GO top
ELSE
SET FILTER TO
endif
thisform.grid1.Refresh()


Nota:
Cuando coloco una letra con dos terminales conectada dura un rato y hasta se frisan,
en una solo terminal funciona mas o menos, pero si esta usando el programa en el servidor con una sola terminal es aburrido.

Insiste en esto porque no quiero abandonar si alguien tiene la solucion a un problema que puede ser de muchos si no ahora lo sera en el futuro y no quiero salir de vfp para lamentarme luego.

Espero que expertos pongan atencion a esto, gracias.

Gracias, gracias por ponerme junto con Plinio.
La realidad es que no tengo mucha experiencia en VFP. Por el momento no me puedo considerar experto.
Pero muchisimas gracias.

Prueba la busqueda así

SELECT ARTICULO
SET ORDER TO DESCRIP
IF this.Value <>' '
m.busca=ALLTRIM(this.Value)
seek m.busca
ELSE
message("Artículo no encontrado")
endif
thisform.grid1.Refresh()

Trata de no utilizar los SET FILTER ya que demoran mucho tiempo en recavar la inormación, y ya que tienes un indice busca directamente por el indice.

Que tal mis amigos,

Siempre confie en ustedes y esto si funciona muy bien, como dice erreique usando SEEK es la solucion a la lentitud, probe con varias terminales y funciona bien rapido.

Ahora ayudenme en esto:

si en un boton tengo esto para guardar:
SELECT ARTICULO
APPEND BLANK
GATHER MEMVAR

SCATTER MEMVAR BLANK
THISFORM.REFRESH

Como puedo hacer que cuando pulse la tecla F10 se ejecute este bottom, si hay otra forma mejor denme una manita.

Gracias doble.

en el form, keypress pones que cada vez que presione f10 (nKeyCode=-9) se ejecute thisform.boton1.click

if nKeyCode=-9 &&F10
nodefault
thisform.boton1.click &&En el caso que tengas ese codigo en Click.
endif

Saludos.

Ademas tienes que poner la propiedad del Form KeyPreview =.T. para que te intercepte las pulsaciones del teclado estes donde estes en el Form