FoxPro/Visual FoxPro - Necesito Código para filtrar Búsqueda en tabla!!! FoxPro

SELECT mitabla

SET FILTER TO ALLTRIM(thisform.mitext.Value) $mitabladesart

GO TOP

DO WHILE NOT EOF()

       INSERT INTO tmpcotiza01 (desart, codart) ;

                                 VALUES (ALLTRIM(mitabla.desart), mitabla.codart)

      SELECT mitabla

      SKIP

ENDDO

SET FILTER TO

IF LASTKEY()=13

    IF LEN(ALLTRIM(thisform.text1.value))>0

       SEEK (ALLTRIM(thisform.text1.value))

       thisform.grid1.refresh()

       KEYBOARD '{RIGHTARROW}'

    ENDIF

 ENDIF

If empty(thisform.text1.value)

Else

Select mi_tabla

Set order to mi_campo

Seek ALLTRIM(thisform.text1.value)

if found()

Wait window "dato encontrado, ahora saber donde vas a poner los datos"

Else

Wait window "el dato ingresado no existe, intente de nuevo"

Thisform.text1.value=""

return 0

Endif

Endif

SELECT * FROM mitabla;

WHERE  miDato = ALLTRIM(thisform.mitext.Value);

INTO CURSOR _TuCursor

SELECT _TuCursor

GO TOP

DO WHILE NOT EOF()

      SCATTER MEMVAR

       INSERT INTO tmpcotiza01 (desart, codart) ;

                                 VALUES (m.desart, m.codart)

      SKIP

ENDDO