Optimizar tiempo de respuesta con Popup
Hola, tengo el problema de que cuando quiero consultar campos de una tabla de datos por medio de la representación en POPUPS aplicando un filtro, me tarda mucho tiempo, como puedo hacer mejorar el tiempo de despliegue de datos en pantalla para ser consultados, o si existe alguna otra forma mas practica que esa?
P.D. En MS-Dos en tiempo de respuesta es mas rapido con la misma función.
Mi Código:
* ------------ GENERA POPUP PARA CONSULTAS MEDIANTE PARÁMETROS ------------- *
Func FCons(nR1, nC1, nR2, nC2, cC1, nTama)
Priv cTit, cCade, nInd, nFuen
nFuen = IIF(Type("nTama")#"N", 14, nTama)
cCade = cC1
Defi Popu wPopC From nR1,nC1 To nR2,nC2 Prom Fiel &cCade Scro Font 'Courier New', nFuen
cCmd = On('KEY','ESC')
cFin = On('KEY','END')
cTop = On('KEY','HOME')
On Key Labe Esc
On Key Labe ENTER Do pRegresa
On Key Labe LEFTARROW Do pNada
On Key Labe RIGHTARROW Do pNada
Acti Popu wPopC
On Sele Popu wPopC Do pRegresa &&
On Key Labe LEFTARROW
On Key Labe RIGHTARROW
On Key Labe ENTER
On Key Labe Esc &cCmd
On Key Labe End &cFin
On Key Labe Home &cTop
Retu
Gracias de antemano.