FoxPro/Visual FoxPro - Problema con buscar

   
Vista:

Problema con buscar

Publicado por Fernando (25 intervenciones) el 26/01/2010 21:53:16
Hola amigos tengo un problema que esta por volver loco, les explico.
tengo un formulario con un textbox y un grid. Lo que hago es buscarcar en el text un articulo. lo hago asi.

En el metodo "InteractiveChange"

LOCAL lc, lnRecno
SELECT Articulos
lc = ALLT(THIS.VALUE)
lnRecno = RECNO()
IF articulos.desartic >= lc
IF NOT BOF()
SKIP 1
ENDIF
IF articulos.desartic > lc && debe quedar donde estaba
IF lnRecno <= RECC()
GO RECNO()
ELSE
GO BOTT
ENDIF
RETURN
* ENDIF
IF NOT EMPTY(ORDER()) && busqueda con indice
SEEK lc
ELSE
GO TOP
LOCATE REST FOR articulos.desartic=lc WHILE articulos.desartic <= lc NOOPTIMIZE
ENDIF
ELSE
LOCATE REST FOR articulos.desartic=lc WHILE articulos.desartic <= lc NOOPTIMIZE
ENDIF

IF lnRecno # RECNO()
THISFORM.buscar.grid1.SETFOCUS
THISFORM.buscar.txtCiudades.SETFOCUS
ENDIF
RETURN

Pero que pasa cuando estoy en el programa de vox probando me funciona de mil maravillas pero cuando creo un ejecutable y luego lo ejecuto. La primera ves me busca genial pero despues al volver a intentarlo me envia al ultimo registro y de ahi no se mueve. Y no se porque hace eso si me podrian ayudar saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder