FoxPro/Visual FoxPro - Grid interactiva

Estoy Utilizando una red Cuando realizo el paso a paso me funciona Utilizando el evento interactiveChage me funciona pero Cuando le quito el paso ha paso la red no se activa.

Envio como Realice el Procedimiento para que por favor alguien me pueda fallando Ayudar ES QUE ESTOY

IF LEN (ALLTRIM (this.value))> 1
SELECT *;
DE prdref;
Donde = refmina THISFORM.txtarti.VALUE;
EN prdref CURSOR READWRITE

codigo11 = IZQUIERDA (codi_arti, 12)
Prdref.refmina SELECT como codigo, prdref.existencia AS cantidad, prdref.codi_arti;
DE prdref;
Donde = prdref.refmina THISFORM.txtarti.VALUE;
EN CURSOR tmprd READWRITE
SI _TALLY> 0

THISFORM.grid1.RECORDSOURCE = "tmprd"
THISFORM.img1.VISIBLE =. T.
THISFORM.grid1.VISIBLE =. T.
THISFORM.grdrollos.RECORDSOURCE = ""

Rolm.arti SELECT, rolm.rollo, rolm.tramo, ROUND (rolm.exisr, 2) como MTS,;
rolm.bod_rol, rolm.stn_rol, rolm.niv_rol, rolm.sniv_rol, rolm.ubi_rol, tmprd.codi_arti;
DE Rolm, tmprd;
DONDE rolm.arti = tmprd.codi_arti Y rolm.exisr> 0 AND rolm.niv_rol <> "*";
Rolm.arti ORDER BY, rolm.rollo, rolm.tramo;
EN xrollo CURSOR
IZQUIERDA (prodm.codi_arti, 1) = THISFORM.cmbbodega.VALUE
THISFORM.grdrollos.RECORDSOURCE = "xrollo"
GO TOP

ELSE

THISFORM.grid1.RECORDSOURCE = ""
THISFORM.img1.VISIBLE =. F.
THISFORM.grid1.VISIBLE =. F.
codigo11 = ""

ENDIF
ENDIF

El problema va a ser la velocidad de trasmision de la red, no es conveniente usar un interactive change sobre una tabla compartida en red, todabia si fuera un verdadero servidor server client, pero no lo es, es una tabla compartida y hacer un interactive change sobre ella, hace que tengas que traer los datos completos de las tablas implicadas en las consultas.

podrias mas bien crear un cusor de las tablas y ejecutar las consultar sobre el cursor asi, las consultas se harian localmente, sin embargo esto implica que mientras no se llame de nuevo a la creacion del servidor los datos podrian ser cambiados por otro cliente remoto.